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每 一 位 严肃 的 计算 机 科学 家 都 应 该 阅读 这 本 书 。 由 于 本 书 清晰 、 简 洁 和 富 于 才智 ， 
我 们 强烈 推荐 本 书 ， 它 适合 所 有 希望 深刻 理解 计算 机 科学 的 人 们 。 | 


Mitchell Wand 
(美国 科学 家 ) 杂志 


本 书 1984 年 出 版 ， 成 型 于 美国 麻 省 理工 学 院 (MIT) 多 年 使 用 的 一 本 教材 ，1996 年 修订 为 第 
2 版 。 在 过 去 的 二 十 多 年 里 ， 本 书 对 于 计算 机 科学 的 教育 计划 产生 了 深刻 的 影响 。 

第 2 版 中 大 部 分 重要 程序 设计 系统 都 重新 修改 并 做 过 测试 ， 包 括 各 种 解释 器 和 编译 器 。 作 者 
根据 其 后 十 余年 的 教学 实践 ， 还 对 其 他 许多 细节 做 了 相应 的 修改 。 

本 书 自 出 版 以 来 ， 世 界 各 地 已 有 100 多 所 院 校 采用 本 书 做 教材 ， 其 中 包括 美国 斯 坦 福 大 学 、 
美国 普林斯顿 大 学 、 英 国 牛 津 大 学 、 日 本 东京 大 学 等 。 

相关 网 站 有 本 书 源 代码 及 其 他 教 辅 资料 ， 网 址 为 : www-mitpress.mit.edu/sicp/ 
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本 书 从 1980 年 开始 就 是 美国 麻 省 理工 学 院 计 算 机 科学 专业 的 入 门 课程 教材 之 一 ,从 
理论 上 讲解 计算 机 程序 的 创建 、 执 行 和 研究 。 主 要 内 容 包 括 : 构造 过 程 抽象 ， 构 造 数据 
抽象 ， 模 块 化 、 对 象 和 状态 ， 元 语言 抽象 ， 寄 存 器 机 器 里 的 计算 等 。 本 书 描述 生动 有 趣 ， 
分 析 清晰 透彻 ， 是 计算 机 专业 学 生 人 和 门 必 读 教 材 ， 也 是 计算 机 专业 人 上 士 不 可 或 缺 的 参考 


Harold Abelson, et al: Structure and Interpretation of Computer Programs, Second 
Edition (ISBN 0-262-01553-0). 
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出 版 者 的 话 


文艺 复兴 以 降 ， 源 远 流 长 的 科学 精神 和 逐步 形成 的 学 术 规 范 ， 使 西方 国家 在 自然 科学 的 
各 个 领域 取得 了 垄断 性 的 优势 ， 也 正 是 这 样 的 传统 ， 使 美国 在 信息 技术 发 展 的 六 十 多 年 间 名 
家 辈出 、 独 领 风 骚 。 在 商业 化 的 进程 中 ， 美 国 的 产业 界 与 教育 界 越 来 越 紧密 地 结合 ， 计 算 机 
学 科 中 的 许多 泰山 北斗 同时 身 处 科研 和 教学 的 最 前 线 ， 由 此 而 产生 的 经 典 科 学 著作 ， 不 仅 辟 
划 了 研究 的 范畴 ， 还 揭 妊 了 学 术 的 源 变 ， 既 遵循 学 术 规 范 ， 又 自 有 学 者 个 性 ， 其 价值 并 不 会 
因 年 月 的 流逝 而 减退 。 

近年 ， 在 全 球 信息 化 大 潮 的 推动 下 ， 我 国 的 计算 机 产业 发 展 迅猛 ， 对 专业 人 才 的 需求 日 
益 迫 切 。 这 对 计算 机 教育 界 和 出 版 界 都 既是 机 遇 ， 也 是 挑战 ， 而 专业 教材 的 建设 在 教育 战略 
上 显得 举足轻重 。 在 我 国信 息 技 术 发 展 时 间 较 短 、 从 业 人 员 较 少 的 现状 下 ， 美 国 等 发 达 国 家 
在 其 计算 机 科学 发 展 的 几 十 年 间 积 淀 的 经 典 教材 仍 有 许多 值得 借鉴 之 处 。 因 此 ， 引 进 一 批 国 
外 优秀 计算 机 教材 将 对 我 国 计 算 机 教育 事业 的 发 展 起 积极 的 推动 作用 ， 也 是 与 世界 接轨 、 建 
设 真正 的 世界 一 流 大 学 的 必由之路 。 

机 械 工业 出 版 社 华章 图 文 信 息 有 限 公 司 较 早 意识 到 “出 版 要 为 教育 服务 ” 。 自 1998 年 开始 ， 
华章 公司 就 将 工作 重点 放 在 了 渤 选 、 移 译 国 外 优秀 教材 上 。 经 过 几 年 的 不 铺 努 力 ， 我 们 与 
Prentice Hall, Addison-Wesley , McGraw-Hill, Morgan Kaufmann 等 世界 著名 出 版 公司 建立 了 
良好 的 合作 关系 ， 从 它们 现 有 的 数 百 种 教材 中 王选 出 Tanenbaum，Stroustrup，Kernighan， 
Jim Gray 等 大 师 名 家 的 一 批 经 典 作品 ， 以 “计算 机 科学 从 书 ” 为 总 称 出 版 ， 供 读者 学 习 、 研 
究 及 诬 藏 。 大 理 石 纹理 的 封面 ， 也 正体 现 了 这 套 从 书 的 品位 和 格调 。 

“计算 机 科学 丛书 ”的 出 版 工作 得 到 了 国内 外 学 者 的 罗 力 训 助 ， 国 内 的 专家 不 仅 提供 了 中 
AN ERIE S ， 还 不 辞 劳苦 地 担任 了 翻译 和 审 校 的 工作 ， 而 原 书 的 作者 也 相当 关注 其 作品 在 
中 国 的 传播 ， 有 的 还 专 诚 为 其 书 的 中 译本 作 序 。 迄 今 ,“ 计 算 机 科学 丛书 ”已 经 出 版 了 近 百 个 
品种 ， 这 些 书籍 在 读者 中 树立 了 良好 的 口碑 ， 并 被 许多 高 校 采 用 为 正式 教材 和 参考 书籍 ， 为 
进一步 推广 与 发 展 打下 了 坚实 的 基础 。 . 

随 着 学 科 建 设 的 初步 完善 和 教材 改革 的 逐渐 深化 ， 教 育 界 对 国外 计算 机 教材 的 需求 和 应 
用 都 步 入 一 个 新 的 阶段 。 为 此 ， 华 章 公 司 将 加 大 引进 教材 的 力度 ， 在 “华章 教育 ”的 总 规划 
之 下 出 版 三 个 系列 的 计算 机 教材 除 “计算 机 科学 从 书 ” 之 外 ， 对 影印 版 的 教材 ， 则 单独 开 
辟 出 “经 典 原版 书库 ”， 同 时， 引进 全 美 通行 的 教学 辅导 书 “Schaum's Outlines ”系列 组 成 
“全 美 经 典 学 习 指 导 系 列 ”。 为 了 保证 这 三 套 从 书 的 权威 性 ， 同 时 也 为 了 更 好 地 为 学 校 和 老师 
们 服务 ， 华 章 公 司 聘请 了 中 国 科学 院 、 北 京 大 学、 清华 大 学 、 国 防 科技 大 学 、 复 旦 大 学 、 上 
海 交 通 大 学 、 南 京 大 学 、 浙 江 大 学 、 中 国 科技 大 学 、 哈 尔 滨 工业 大 学 、 西 安 交 通 大 学 、 中 国 
人 民 大 学 、 北 京 航空 航天 大 学 、 北 京 邮电 大 学 、 中 出 大 学 、 解 放 军 理工 大 学 、 郑 州 大 学 、 湖 
北 工学 院 、 中 国 国 家 信息 安全 测评 认证 中 心 等 国内 重点 大 学 和 科研 机 构 在 计算 机 的 各 个 领域 
的 著名 学 者 组 成 “专家 指导 委员 会 ”， 为 我 们 提供 选 题 意见 和 出 版 监督 。 

这 三 套 从 书 是 响应 教育 部 提出 的 使 用 外 版 教材 的 号 召 ， 为 国内 高 校 的 计算 机 及 相关 专业 


IV 


的 教学 度 身 订 造 的 。 其 中 许多 教材 均 已 为 M. I T., Stanford, U.C. Berkeley, C. M. U. 等 世界 
名 牌 大 学 所 采用 。 不 仅 涵 盖 了 程序 设计 、 数 据 结 构 、 操 作 系 统 、 计 算 机 体系 结构 、 数 据 库 、 
编译 原理 、 软 件 工程 、 图 形 学 、 通 信和 与 网 络 、 离 散 数学 等 国内 大 学 计算 机 专业 普遍 开设 的 核 
心 课程 ， 而 且 各 具 特 色 一 一 有 的 出 自 语言 设计 者 之 手 、 有 的 历经 三 十 年 而 不 误 、 有 的 已 被 全 
世界 的 几 百 所 高 校 采用 。 在 这 些 圆 熟 通 博 的 名 师 大 作 的 指引 之 下 ， 读 者 必 将 在 计算 机 科学 的 
宫殿 中 由 登 堂 而 人 室 。 

权威 的 作者 、 经 典 的 教材 、 一 流 的 译 者 、 严 格 的 审 校 、 精 细 的 编辑 ， 这 些 因素 使 我 们 的 
图 书 有 了 质量 的 保证 ， 但 我 们 的 目标 是 尽善尽美 ， 而 反馈 的 意见 正 是 我 们 达到 这 一 终极 目标 
的 重要 帮助 。 教 材 的 出 版 只 是 我 们 的 后 续 服务 的 起 点 。 华 章 公司 欢迎 老师 和 读者 对 我 们 的 工 
作 提 出 建议 或 给 予 指正 ， 我 们 的 联系 方法 如 下 : 


电子 邮件 ， hzedu@hzbook.com 

联系 电话 : (010) 68995264 

联系 地 址 : 北京 市 西城 区 百 万 庄 南 街 1 号 
邮政 编码 : 100037 
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“我 认为 ， 在 计算 机 科学 中 保持 计算 中 的 趣味 性 是 # Fo A Bee se ey te 
含 着 趣味 性 。 当 然 ， 那 些 付 钱 的 客户 们 时 常 觉 得 爱 了 骗 。 一 段 时 间 之 后 。 我 们 开始 严肃 地 看 
待 他 们 的 手 绚 。 我 们 开始 感觉 到 ， 自 己 真 的 像 是 要 负 起 成功 地 、 无 差错 地 、 完 美 地 使 用 这 些 
机 器 的 责任 。 我 不 认为 我 们 可 以 做 到 这 些 。 我 认为 我 们 的 责任 是 去 拓展 这 一 领域 ， 将 其 发 展 
到 新 的 方向 ， 并 在 自己 的 家 里 保持 趣味 性 。 我 希望 计算 机 科学 的 领域 绝 不 要 次 失 其 趣味 意识 。 
最 重要 的 是 ， 我 希望 我 们 不 要 变 成 传道 士 ， 不 要 认为 你 是 完 售 圣经 的 人 ， 世 界 上 这 种 人 已 经 
太 多 了。 你 所 知道 的 有 关 计 算 的 东西 ， 其 他 大 也 都 能 学 到 。 绝 不 要 认为 似乎 成 功 计 算 的 钥 野 
就 掌握 在 你 的 手 里 。 你 所 掌握 的 ,也 是 我 认为 并 希望 的 ， 也 就 是 智 翡 ， 那 种 看 到 这 一 机 器 比 
你 第 一 次 站 在 它 面 前 时 能 做 得 更 多 的 能 力 ， 这样 你 才能 将 它 向 前 推进 。” 


Alan J. Perlis (1922 年 4 月 1 日 一 1990 年 1 月 7 日 ) 
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教育 者 、 将 军 、 减 肥 专 家 、 心 理学 家 和 父母 做 规划 (program )， 而 军人 、 学 生 和 另 一 些 
社会 阶层 则 被 人 规划 (are programmed )。 解 决 大 规模 问题 需要 经 过 一 系列 规划 ， 其 中 的 大 部 
分 东西 只 有 在 工作 进程 中 才能 做 出 来 ; 这 些 规划 中 充满 着 与 手头 问题 的 特殊 性 相关 的 情况 。 
如 果 想 要 把 做 规划 这 件 事情 本 身 作为 一 种 智力 活动 来 欣赏 ， 你 就 必须 转 到 计算 机 的 程序 设计 
(programming)， 你 需要 读 或 者 写 计算 机 程序 一 而且 要 大 量 地 做 。 有 关 这 些 程序 具体 是 关于 
什么 的 、 服 务 于 哪 类 应 用 等 等 的 情况 常常 并 不 重要 ， 重 要 的 是 它们 的 性 能 如 何 ， 在 用 于 构造 
更 大 的 程序 时 能 否 与 其 他 程序 平滑 衔接 。 程 序 员 们 必须 同时 追求 具体 部 分 的 完美 和 汇合 的 适 
宜 性 。 在 这 部 书 里 使 用 “程序 设计 ”一 词 时 ， 所 关注 的 是 程序 的 创建 、 执 行 和 研究 ， 这 些 程 
序 是 用 一 种 Lisp 方 言 书写 的 ， 为 了 在 数字 计算 机 上 执行 。 采 用 Lisp 并 没有 对 我 们 可 以 编程 的 范 
围 施 以 任何 约束 或 者 限制 ， 而 只 不 过 确定 了 程序 描述 的 记 法 形式 。 

本 书 中 要 讨论 的 各 种 问题 都 牵涉 到 三 类 需要 关注 的 对 象 ， 人 的 大 脑 、 计 算 机 程序 的 集合 
以 及 计算 机 本 身 。 每 一 个 计算 机 程序 都 是 现实 中 的 或 者 精神 中 的 某 个 过 程 的 一 个 模型 ， 通 过 
人 的 头脑 钱 化 出 来 。 这 些 过 程 出 现在 人 们 的 经 验 或 者 思维 之 中 ， 数 量 上 数不胜数 ， 详 情 琐碎 
繁杂 ， 任 何 时 候 人 们 都 只 能 部 分 地 理解 它们 。 我 们 很 少 能 通过 自己 的 程序 将 这 种 过 程 模拟 到 
永远 令 人 满意 的 程度 。 正 因为 如 此 ， 即 使 我 们 写 出 的 程序 是 一 集 经 过 仔细 雕琢 的 离散 符号 ， 
是 交织 在 一 起 的 一 组 函数 ， 它 们 也 需要 不 断 地 演化 : 当 我 们 对 于 模型 的 认识 更 深入 、 更 扩大 、 
更 广泛 时 ， 就 需要 去 修改 程序 ， 直 至 这 一 模型 最 终 到 达 了 一 种 亚 稳 定 状态 。 而 在 这 时 ， 程 序 
中 就 又 会 出 现 另 一 个 需要 我 们 去 为 之 奋斗 的 模型 。 计 算 机 程序 设计 领域 之 令 人 兴奋 的 源泉 ， 
就 在 于 它 所 引起 连绵 不 绝 的 发 现 ， 在 我 们 的 头脑 之 中 ， 在 由 程序 所 表达 的 计算 机 制 之 中 ， 以 
及 在 由 此 所 导致 的 认识 爆炸 之 中 。 如 果 说 艺术 解释 了 我 们 的 梦想 ， 那 么 计算 机 就 是 以 程序 的 
名 义 执行 着 它们 。 . 

就 其 本 身 的 所 有 能 力 而 言 ， 计 算 机 是 一 位 一 丝 不 敬 的 工匠 : 它 的 程序 必须 正确 ， 我 们 希 
望 说 的 所 有 东西 ， 都 必须 表述 得 准确 到 每 一 点 细节 。 就 像 在 其 他 所 有 使 用 符号 的 活动 中 一 样 ， 
我 们 需要 通过 论证 使 自己 相信 程序 的 真 。 可 以 为 Lisp 本 身 赋 予 一 个 语义 (可 以 说 是 另 一 个 模 
型 ) ， 假 如 说 ， 一 个 程序 的 功能 可 以 在 (例如) 谓词 演算 里 描述 ,那么 就 可 以 用 逻辑 方法 做 出 
一 个 可 接受 的 正确 性 论证 。 不 幸 的 是 ， 随 着 程序 变 得 更 大 更 复杂 (实际 上 它们 几乎 总 是 如 此 ) ， 
这 种 描述 本 身 的 适宜 性 、 一 致 性 和 正确 性 也 都 变 得 非常 值得 怀疑 了 。 因 此 ， 很 少 能 够 看 到 有 
关 大 程序 正确 性 的 完全 形式 化 的 论证 。 因 为 大 的 程序 是 从 小 东西 成 长 起 来 的 ， 开 发 出 一 个 标 
准 化 的 程序 结构 的 武器 库 ， 并 保证 其 中 每 种 结构 的 正确 性 一 一 我 们 称 它们 为 惯用 法 ， 再 学 会 
如 何 利 用 一 些 已 经 证 明 很 有 价值 的 组 织 技术 ， 将 这 些 结构 组 合成 更 大 的 结构 ， 这 些 都 是 至 关 
重要 的 。 本 书 中 将 详尽 地 讨论 这 些 技术 。 理 解 这 些 技 术 ， 对 于 参与 这 种 被 称 为 程序 设计 的 具 
有 创造 性 的 事业 是 最 最 本 质 的 。 特 别 值得 提出 的 是 ， 发 现 并 掌握 强 有 力 的 组 织 技 术 ， 将 提升 
我 们 构造 大 型 的 重要 程序 的 能 力 。 反 过 来 说 ， 因 为 写 大 程序 非常 耗 时 费力 ， 这 也 推动 着 我 们 
去 发 明 新 方法 ， 减轻 由 于 大 程序 的 功能 和 细节 而 引起 的 沉重 负担 。 


VII 


与 程序 不 同 ， 计 算 机 必须 遵守 物理 定律 。 如 果 它 们 要 快速 执行 一 一 几 个 纳 种 做 一 次 状态 转 
换 一 一 那么 就 必须 在 很 短 的 距离 内 传导 电子 (至 多 1.5 英 尺 )。 必 须 消除 由 于 大 量 元 件 而 产生 的 
热量 集中 。 人 们 已 经 开发 出 了 一 些 巧 妙 的 工程 艺术 ， 用 于 在 功能 多 样 性 与 元 件 密度 之 间 求 得 
一 种 平衡 。 在 任何 情况 下 ， 硬 件 都 是 在 比 我 们 编程 时 所 需要 关心 的 层次 更 低 的 层次 上 操作 的 。 
将 我 们 的 Lisp 程 序 变 换 到 “机 器 ”程序 的 过 程 本 身 也 是 抽象 模型 ， 是 通过 程序 设计 做 出 来 的 。 
研究 和 构造 它们 ， 能 使 人 更 加 深刻 地 理解 与 任何 模型 的 程序 设计 有 关 的 程序 组 织 问题 。 当 然 ， 
计算 机 本 身 也 可 以 这 样 模拟 。 请 想 一 想 ， 最 小 的 物理 开关 元 件 在 量子 力学 里 建 模 ， 而 量子 力 
学 又 由 一 组 微分 方程 描述 ， 微 分 方程 的 细节 行为 可 以 由 数值 去 近似 ， 这 种 数值 又 由 计算 机 程 
序 所 描述 ， 计 算 机 程序 的 组 成 …… | 

区 分 出 上 述 三 类 需要 关注 的 对 象 ， 并 不 仅仅 是 为 了 策略 上 的 便利 。 即使 有 人 说 它 不 过 是 
人 头脑 里 的 东西 ， 这 种 逻辑 区 分 也 引起 了 这 些 关 注 焦点 之 间 符 号 流动 的 加 速 ， 它 们 在 人 们 经 
验 中 的 丰富 性 、 活 力 和 潜力 ， 只 能 由 现实 生活 中 的 不 断 演化 去 超越 。 我 们 至 多 只 能 说 ， 这 些 
关注 焦点 之 间 的 关系 是 基本 稳定 的 。 计 算 机 永远 都 不 够 大 也 不 够 快 。 硬 件 技术 的 每 一 次 突破 
都 带 来 了 更 大 规模 的 程序 设计 事业 ， 新 的 组 织 原 理 ， 以 及 更 加 丰富 的 抽象 模型 。 每 个 读者 都 
应 该 反复 地 问 自己 “到 哪里 才 是 头 儿 ， 到 哪里 才 是 头 儿 ? ”一 一 但 是 不 要 问 得 过 于 频繁 ， 以 
免 忽 略 了 程序 设计 的 乐趣 ， 使 自己 陷入 一 种 喜忧参半 的 呆 灌 状态 中 。 

在 我 们 写 出 的 程序 里 ， 有 些 程 序 执行 了 某 个 精确 的 数学 函数 (但 是 绝 不 够 精确 )， 例 如 排 
序 ， 或 者 找 出 一 系列 数 中 的 最 大 元 ， 确 定 素数 性 ， 或 者 找 出 平方 根 。 我 们 将 这 种 程序 称 为 算 
法 ， 关 于 它们 的 最 佳 行为 已 经 有 了 许多 认识 ， 特 别 是 关于 两 个 重要 的 参数 : 执行 的 时 间 和 对 
数据 存储 的 需求 。 程 序 员 应 该 追求 好 的 算法 和 惯用 法 。 即使 某 些 程序 难以 精确 地 描述 ， 程 序 
员 也 有 责任 去 估计 它们 的 性 能 ， 并 要 继续 设法 去 改进 之 。 

Lisp 是 一 个 幸存 者 ， 已 经 使 用 了 四 分 之 一 个 世纪 。 在 现存 的 活 语言 里 ， 只 有 Fortran 比 它 
的 寿命 更 长 些 。 这 两 种 语言 都 支持 着 一 些 重 要 领域 中 的 程序 设计 需要 ，Fortran 用 于 科学 与 工 
程 计算 ，Lisp 用 于 人 工 智能 。 这 两 个 领域 现在 仍然 很 重要 ， 它们 的 程序 员 都 如 此 倾心 于 这 两 
种 语言 ， 因 此 ，Lisp 和 Fortran 都 还 可 能 继续 生存 至 少 四 分 之 一 个 世纪 。 l 

Lisp 一 直 在 改变 着 。 这 本 教科 书 中 所 用 的 Scheme 方言 就 是 从 原来 的 Lisp 里 演化 出 来 的 ， 并 
在 若干 重要 方面 与 之 相 异 ， 包 括 变量 约束 的 静态 作用 域 ， 以 及 允许 函数 产生 出 函数 作为 值 。 
在 语义 结构 上 ，Scheme 更 接近 于 Algol 60 而 不 是 早期 的 Lisp。Algol 60 已 经 不 可 能 再 变 为 活 的 
语言 了 ， 但 它 还 活 在 Scheme 和 Pascal 的 基因 里 。 很 难 找到 这 样 的 两 种 语言 ， 它 们 能 如 此 清晰 地 
代表 着 围绕 这 两 种 语言 而 聚集 起 来 的 两 种 差异 巨大 的 文化 。Pascal 是 为 了 建造 金字 塔 一 一 壮丽 
辉煌 、 令 人 震 憾 ， 是 由 各 就 其 位 的 沉重 巨石 筑 起 的 静态 结构 。 而 Lisp 则 是 为 了 构造 有 机 体 一 一 
同样 的 壮丽 辉煌 并 令 人 震 憾 ， 由 各 就 其 位 但 却 永 不 静止 的 无 数 简单 的 有 机 体 片 段 构成 的 动态 
结构 。 在 两 种 语言 里 都 采用 了 同样 的 组 织 原则 ， 除 了 其 中 特别 重要 的 一 点 不 同 之 外 : 托付 给 
Lisp 程 序 员 个 人 可 用 的 自由 支配 权 ， 要 远 远 超 过 在 Pascal 社 团 里 可 找到 的 东西 。Lisp 程 序 大 大 
抬 高 了 函数 库 的 地 位 , 使 其 可 用 性 超越 了 催生 它们 的 那些 具体 应 用 。 作 为 Lisp 的 内 在 数据 结构 ， 
表 对 于 这 种 可 用 性 的 提升 起 着 最 重要 的 作用 。 表 的 简单 结构 和 自然 可 用 性 反应 到 函数 里 ， 就 
使 它们 具有 了 一 -种 奇异 的 普 适 性 。 而 在 Pascal 里 ， 数 据 结构 的 过 度 声 明 导 致 函数 的 专用 性 ， 阻 
碍 并 惩罚 临时 性 的 合作 。 采 用 100 个 函数 在 一 种 数据 结构 上 操作 ， 远 远 优 于 用 10 个 函数 在 10 个 
数据 结构 上 操作 。 作 为 这 些 情况 的 必然 后 果 ， 金 字 塔 豆 立 在 那里 千年 不 变 ， 而 有 机 体 则 几 须 


演化 ， 否 则 就 会 死亡 。 

为 了 看 清楚 这 种 差异 ， 请 将 本 书 中 给 出 的 材料 和 练习 与 任何 第 一 门 Pascal 课 程 的 教科 书 中 
的 材料 做 一 个 比较 。 请 不 要 费力 地 去 想象 ， 说 这 不 过 是 一 本 在 MIT 采 用 的 教科 书 ， 其 特异 性 
仅仅 是 因为 它 出 自 那个 地 方 。 准 确 地 培 ， 任 何 一 本 严肃 的 关于 Lisp 程 序 设计 的 书 都 应 该 如 此 ， 
无 论 其 学 生 是 谁 ， 在 什么 地 方 使 用 。 

请 注意 ， 这 是 一 本 有 关 程 序 设 计 的 教科 书 ， 它 不 像 大 部 分 关于 Lisp 的 书 ， 因 为 那些 书 多 
半 是 为 人 们 在 人 工 智能 领域 工作 做 准备 。 当 然 ， 无 论 如 何 ， 在 研究 工作 规模 不 断 增 长 的 过 程 
中 ， 软 件 工程 和 人 工 智能 所 关心 的 重要 程序 设计 工作 正 趋 于 相互 结合 。 这 也 解释 了 为 什么 在 
人 工 智能 领域 之 外 的 人 们 对 Lisp 的 兴趣 在 不 断 增加 。 

正如 由 其 目标 可 以 预见 到 的 ， 人 工 智 能 的 研究 产生 出 许多 重要 的 程序 设计 问题 。 在 其 他 
程序 设计 文化 中 ， 问 题 的 洪水 解 化 出 一 种 又 一 种 新 的 语言 。 确 实 ， 在 任何 非常 大 的 程序 设计 
工作 中 ， 一 条 有 用 的 组 织 原则 就 是 通过 发 明 新 语言 ， 去 控制 和 隔离 作业 模块 之 间 的 信息 流动 。 
这 些 语言 趋向 于 变 得 越 来 战 不 基本 ， 逐 渐 逼 近 系 统 的 边界 ， 逼 近 我 们 作为 人 最 经 常 与 之 交互 
的 地 方 。 作 为 这 一 情况 的 结果 ， 在 这 种 系统 里 包含 着 大 量 重复 的 复杂 的 语言 处 理 功能 。Lisp 
有 着 如 此 简单 的 语法 和 语义 ， 程 序 的 语 靶 分 析 可 以 看 作 一 种 很 简单 的 工作 。 这 样 ， 语 法 分 析 
技术 对 于 Lisp 程 序 几 乎 就 没有 价值 ， 语 言 处 理 器 的 构造 对 于 大 型 Lisp 系 统 的 成 长 和 变化 不 会 成 
为 阻碍 。 最 后 ， 正 是 这 种 语法 和 语义 的 极端 简单 性 ， 产 生出 了 所 有 Lisp 程 序 员 的 负担 和 自由 。 
任何 规模 的 Lisp 程 序 ， 除 了 那 种 密 窄 几 行 的 程序 外 ， 都 饱含 着 考虑 周到 的 各 种 功能 。 发 明 并 
调整 ， 调 整 恰 当 后 再 去 发 明 ! 让 我 们 举 起 杯 ， 祝 福 那些 将 他 们 的 思想 镶 人 能 在 重重 括号 之 间 的 
Lisp 程 序 员 。 


Alan J. Perlis 
AR, RPK 


第 2 版 前 言 


软件 很 可 能 确实 与 其 他 任何 东西 都 不 同 ， 它 的 本 意 就 是 被 抛弃 : 这 一 观点 的 全 部 
就 是 总 将 它 看 作 一 个 肥皂 泡 吗 ? 


—— Alan J. Perlis 


自 1980 年 以 来 ， 本 书 的 材料 就 一 直 在 MIT 作 为 计算 机 科学 学 科 入 门 课程 的 基础 。 在 本 书 
第 1 版 出 版 之 前 ， 我 们 已 经 用 这 一 材料 教 了 4 年 课 ， 而 到 这 个 第 2 版 出 版 ， 时 间 又 过 去 了 12 年 。 
我 们 非常 高 兴 地 看 到 这 一 工作 被 广泛 接受 ， 并 被 结合 到 其 他 一 些 教材 中 。 我 们 已 经 看 到 自己 
的 学 生 掌 握 了 本 书 中 的 思想 和 程序 ， 并 将 它们 构筑 到 新 的 计算 机 系统 或 者 语言 的 核心 里 。 这 
就 在 文字 上 实现 了 一 个 古 狐 太 教 法 典 的 双关 语 ， 我 们 的 学 生 已 经 变 成 了 我 们 的 创造 者 。 我 们 
非常 幸运 能 有 如 此 有 能 力 的 学 生 和 如 此 有 建树 的 创造 者 。 | 

在 准备 这 一 新 版 本 的 过 程 中 ， 我 们 结合 进 了 成 百 条 澄清 性 建议 ， 它 们 来 自我 们 自己 的 教 
学 经 验 ， 也 来 自 MIT 和 其 他 地 方 的 同行 们 的 评述 。 我 们 重新 设计 了 本 书 里 主要 的 程序 设计 系 
统 中 的 大 部 分 ， 包 括 通用 型 算术 系统 、 解 释 器 、 寄 存 器 机 器 模拟 器 和 编译 器 ， 也 重 写 了 所 有 
的 程序 实例 ， 以 保证 任何 符合 IEEE 的 Scheme 标准 (IEEE 1990) 的 Scheme 实现 都 能 运行 这 些 
代码 。 

这 一 版 本 中 强调 了 几 个 新 问题 ， 其 中 最 重要 的 是 有 关 在 不 同 的 途径 中 ， 计算 模型 里 对 于 
时 间 的 处 理 所 起 的 中 心 作用 ; 带 有 状态 的 对 象 、 并 发 程序 设计 、 函 数 式 程序 设计 、 情 性 求 值 
和 非 确定 性 程序 设计 。 这 里 为 并 发 和 非 确定 性 新 增加 了 几 节 ， 我 们 也 设法 将 这 一 论题 集成 到 
整 本 书 里 ， 贯 穿 始 终 。 

”本 书 第 1 版 基本 上 是 按照 我 们 在 MIT 一 学 期 课程 的 教学 大 纲 撰写 的 。 由 于 有 了 第 2 版 中 增 
加 的 这 些 新 材料 ， 在 一 个 学 期 里 覆盖 所 有 内 容 已 经 不 可 能 了 ， 所 以 教师 需要 从 中 做 一 些 选择 。 
在 我 们 自己 的 教学 里 ， 有 时 会 跳 过 有 关 逻 辑 程序 设计 的 一 节 (4.4 节 ) ， 让 学 生 使 用 寄存 器 机 
器 模拟 器 ， 但 并 不 去 讨论 它 的 实现 (5.2 节 ) ， 对 于 编译 器 则 只 给 出 一 个 粗略 的 概述 (5.5 节 )。 
即使 如 此 ， 这 还 是 一 个 内 容 非 常 多 的 课程 。 一 些 教师 可 能 希望 只 覆盖 前 面 的 三 章 或 者 四 章 ， 
而 将 其 他 内 容留 给 后 续 课 程 。 

万 维 网 站 点 www-mitpress.mit.edu/sicp 为 本 书 的 使 用 者 提供 支持 。 其 中 包含 了 取 自 本 书 的 
程序 ， 示 例 程 序 作 业 、 辅 助 材料 和 Lisp 的 Scheme 方 言 的 可 下 载 实 现 。 


第 1 版 前 言 


一 人 台 和 计算机 就 像 是 一 把 小 提琴 。 你 可 以 想象 一 个 新 手 试 了 一 个 音符 并 去 入 了 它 。 
后 来 他 说 ， 听 起 来 真 难听 。 我 们 已 经 从 大 众 和 我 们 的 大 部 分 计算 机 科学 家 那里 反复 
听 到 这 种 说 法 。 他 们 说 ， 计 算 机 程序 对 个 别 具 体 用 泛 而 言 确 实 是 好 东西 ， 但 它们 太 
缺 么 弹性。 一 把 小 提 共 或 者 一 人 台 打 字 机 也 同样 缺 和 也 弹性 ， 那 是 你 学 会 了 如 何 去 使 用 
它们 之 前 。 


— Marvin Minsky,“ 为 什么 说 程序 设计 很 容易 成 为 一 种 媒介 ， 
AF RRMA IR, REHM” 


本 书 是 麻 省 理工 学 院 (MIT) 计算 机 科学 的 入 门 教材 。 在 MIT 主 修 电 子 工程 或 者 计算 机 科 
学 的 所 有 学 生 都 必须 学 这 门 课 ， 作 为 “公共 核心 课程 计划 ”的 四 分 之 一 。 这 里 还 包含 两 个 关 
于 电路 和 线性 系统 的 科目 ， 还 有 一 个 关于 数字 系统 设计 的 科目 。 我 们 从 1978 年 开始 涉足 这 些 
科目 的 开发 ， 从 1980 年 秋季 以 后 ， 我 们 就 一 直 按 照 现 在 这 种 形式 教授 这 个 课程 ， 每 年 600 到 
700 个 学 生 。 大 部 分 学 生 此 前 没有 或 者 很 少 有 计算 方面 的 正式 训练 ， 虽 然 许 多 人 玩 过 计算 机 ， 
也 有 少数 人 有 许多 程序 设计 或 者 硬件 设计 的 经 验 。 

我 们 所 设计 的 这 门 计 算 机 科学 导 引 课程 反映 了 两 方面 的 主要 考虑。 首先 ， 我们 希望 建立 
起 一 种 看 法 ， 一 个 计算 机 语言 并 不 仅仅 是 让 计算 机 去 执行 操作 的 一 种 方式 ， 更 重要 的 ， 它 是 
一 种 表述 有 关 方 法 学 的 思想 的 新 颖 的 形式 化 媒介 。 因 此 ， 程 序 必 须 写 得 能 够 供 人 们 阅读 ， 偶 
尔 地 去 供 计 算 机 执行 。 其 次 ， 我 们 相信 ， 在 这 一 层次 的 课程 里 ， 最 基本 的 材料 并 不 是 特定 程 
序 设计 语言 的 语法 ， 不 是 有 效 计算 某 种 功能 的 巧妙 算法 ， 也 不 是 算法 的 数学 分 析 或 者 计算 的 
本 质 基 础 ， 而 是 一 些 能 够 用 于 控制 大 型 软件 系统 的 智力 复杂 性 的 技术 。 

我 们 的 目标 是 ， 使 完成 了 这 一 科目 的 学 生 能 对 程序 设计 的 风格 要 素 和 审美 观 有 一 种 很 好 
的 感觉 。 他 们 应 该 掌握 了 控制 大 型 系统 中 的 复杂 性 的 主要 技术 。 他 们 应 该 能 够 去 读 50 页 长 的 
程序 ， 只 要 该 程序 是 以 一 种 值得 模仿 的 形式 写 出 来 的 。 他 们 应 该 知道 在 什么 时 候 哪 些 东 西 不 
需要 去 读 ， 哪 些 东 西 不 需要 去 理解 。 他 们 应 该 很 有 把 握 地 去 修改 一 个 程序 ， 同 时 又 能 保持 原 
来 作者 的 精神 和 风格 。 

这 些 技能 并 不 仅仅 适用 于 计算 机 程序 设计 。 我 们 所 教授 和 提炼 出 来 的 这 些 技术 ， 对 于 所 
有 的 工程 设计 都 是 通用 的 。 我 们 在 适当 的 时 候 隐 藏 起 一 些 细节 ， 通 过 创建 抽象 去 控制 复杂 性 。 
我 们 通过 建立 约定 的 界面 ， 以 便 能 以 一 种 “混合 与 匹配 ”的 方式 组 合 起 一 些 标准 的 、 已 经 很 
好 理解 的 片段 ， 去 控制 复杂 性 。 我 们 通过 建立 一 些 新 的 语言 去 描述 各 种 设计 ， 每 种 语言 强调 
设计 中 的 一 个 特定 方面 并 降低 其 他 方面 的 重要 性 ， 以 控制 复杂 性 。 

设计 这 门 课 程 的 基础 是 我 们 的 一 种 信念 ,“ 计 算 机 科学 ”并 不 是 一 种 科学 ， 而 且 其 重要 性 
也 与 计算 机 本 身 并 无 太 大 关系 。 计 算 机 革命 是 有 关 我 们 如 何 去 思 考 的 方式 ， 以 及 我 们 如 何 去 
表达 自己 的 思考 的 一 个 革命 。 在 这 个 变化 里 最 基本 的 东西 ， 就 是 出 现 了 这 样 一 种 或 许 最 好 是 
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称 为 过 程 性 认识 论 的 现象 一 一 这 就 是 如 何 从 一 种 命令 式 的 观点 去 研究 知识 的 结构 ， 这 一 观点 
是 与 经 典 数学 领域 中 所 采用 的 更 具 说 明 性 的 观点 完全 不 同 的 。 数 学 为 精确 处 理 “ 是 什么 ” 提 
供 了 一 种 框架 ， 而 计算 则 为 精确 处 理 “ 怎 样 做 ”的 概念 提供 了 一 种 框架 。 

在 教授 这 里 的 材料 时 ， 我们 采用 的 是 Lisp 语 言 的 一 种 方言 。 我 们 绝 没 有 形式 化 地 教授 这 
一 语言 ， 因 为 完全 不 必 那 样 做 。 我 们 只 是 使 用 它 ， 学 生 可 以 在 几 天 之 内 就 学 会 它 。 这 也 是 类 
Lisp 语 言 的 重要 优点 : 它们 只 有 不 多 几 种 构造 复合 表达 式 的 方式 ， 几 平 没有 语法 结构 。 所 有 
的 形式 化 性 质 都 可 以 在 一 个 小 时 里 讲 完 ， 就 像 下 象棋 的 规则 似 的 。 在 很 短 时间 之 后 ， 我 们 就 
可 以 不 再 去 管 语言 的 语法 细节 (因为 这 里 根本 就 没有 )， 而 进入 真正 的 问题 一 一 弄 清 楚 我 们 需 
要 去 计算 什么 ， 怎 样 将 问题 分 解 为 一 组 可 以 控制 的 部 分 ， 如 何 对 这 样 的 部 分 开展 工作 。Lisp 
的 另 一 优势 在 于 ， 与 我 们 所 知 的 任何 其 他 语言 相 比 ， 它 可 以 支持 〈 但 并 不 是 强制 性 的 ) 更 多 
的 能 用 于 以 模块 化 的 方式 分 解 程序 的 大 规模 策略 。 我 们 可 以 做 过 程 性 抽象 和 数据 抽象 ， 可 以 
通过 高 阶 函数 抓 住 公共 的 使 用 模式 ， 可 以 用 赋值 和 数据 操作 去 模拟 局 部 状态 ， 可 以 利用 流 和 
延 时 求 值 连接 起 一 个 程序 里 的 各 个 部 分 ， 可 以 很 容易 地 实现 姓 入 性 语言 。 所 有 这 些 都 融合 在 
一 个 交互 式 的 环境 里 ， 带 有 对 递增 式 程序 设计 、 构 造 、 测 试 和 排除 错误 的 绝 佳 支 持 功 能 。 我 
们 要 感谢 一 代 又 一 代 的 Lisp 大 师 ， 从 John McCarthy 开 始 ， 是 他 们 铸造 起 了 这 样 一 个 具有 空前 
威力 的 如 此 优美 的 好 工具 。 

作为 我 们 所 用 的 Lisp 方 言 ，Scheme 试 图 将 Lisp 和 Algol 的 威力 和 优雅 集成 到 一 起 。 我 们 从 
Lisp 那 里 取 来 了 元 语言 的 威力 ， 它 来 自 简单 的 语法 形式 ， 程 序 与 数据 对 象 的 统一 表示 ， 以 及 
带 有 废料 收集 的 堆 分 配 数据 。 我 们 从 Algol 那 里 取 来 了 词法 作用 域 和 块 结构 ， 这 是 当年 参加 
Algol 委 员 会 的 那些 程序 设计 语言 先驱 者 们 的 礼物 。 我 们 想 特 别提 出 John Reynolds 和 Peter 
Landin， 为 了 他 们 对 丘 奇 的 lambda 演 算 与 程序 设计 语言 的 结构 之 间 关 系 的 真知 灼 见 。 我 们 也 
认识 到 应 该 感谢 那些 数学 家 们 ， 他 们 在 计算 机 出 现 之 前 ， 就 已 经 在 这 一 领域 中 探索 了 许多 年 。 
这 些 先 驱 者 包括 丘 奇 (Alonzo Church )、 罗 塞 尔 (Barkley Rosser ) 、 克 里 尼 (Stephen Kleene ) 
和 库 里 (Haskell Curry ) 。 


致谢 

我 们 希望 感谢 许多 在 这 本 书 和 这 一 教学 计划 的 开发 中 帮助 过 我 们 的 人 们 。 

可 以 把 这 门 课 看 做 是 课程 “6.231” 的 后 继 者 。 “6.231” 是 20 世 纪 60 年 代 后 期 由 Jack 
Wozencraft 和 Arthur Evans, Jr. 在 MIT 教 授 的 有 关 程 序 设计 语言 学 和 lambda 演 算 的 一 门 美妙 课程 。 

我 们 由 Robert Fano 那 里 受 惠 良 多 。 是 他 组 织 了 MIT 电子 工 程 和 计算 机 科学 的 教学 计划 ， 
强调 工程 设计 的 原理 。 他 领 着 我 们 开始 了 这 一 事业 ， 并 为 此 写 出 了 第 一 批 问题 注 记 。 本 书 就 
是 从 那里 演化 出 来 的 。 

我 们 试图 去 教授 的 大 部 分 程序 设计 风格 和 艺术 都 是 与 Guy Lewis Steele 并 .一 起 开发 的 ， 他 
与 Gerald Jay Sussman 在 Scheme 语 言 的 初始 开发 阶段 合作 工作 。 此 外 ， David Turner 、Peter 
Henderson, Dan Friedman, David Wise 和 Will Clinger 也 教 给 我 们 许多 函数 式 程序 设计 社团 所 
掌握 的 技术 ， 它 们 出 现在 本 书 的 许多 地 方 。 

Joel Moses 教 我 们 如 何 考虑 大 型 系统 的 构造 。 他 在 Macsyma 符 号 计算 系统 上 的 经 验 中 得 到 
的 真知 灼 见 是 ， 应 该 避免 控制 中 的 复杂 性 ， 将 精力 集中 到 数据 的 组 织 上 ， 以 反映 所 模拟 世界 
里 的 真实 结构 。 

这 里 的 许多 有 关 程 序 设计 及 其 在 我 们 的 智力 活动 中 位 置 的 认识 是 Maivin Minsky 和 
Seymour Papert 提 出 的 。 从 他 们 那里 我 们 理解 了 , 计算 是 一 种 探索 各 种 思想 的 表达 方式 的 手段 ， 
如 果 不 这 样 做 ， 这 些 思想 将 会 因为 太 复杂 而 无 法 精确 地 处 理 。 他 们 更 强调 说 ， 学 生 编 写 和 修 
改 程序 的 能 力 可 以 成 为 一 种 威力 强大 的 工具 ， 使 这 种 探索 变 成 一 种 自然 的 活动 。 

我 们 也 完全 同意 Alan Perlis 的 看 法 ， 程 序 设计 有 着 许多 乐趣 ， 我 们 应 该 认真 地 支持 程序 设 
计 的 趣味 性 。 这 种 趣味 性 部 分 来 源 于 观看 大 师 们 的 工作 。 我 们 非常 幸运 曾经 在 Bill Gosper 和 
Richard Greenblatt 手 下 学 习 程 序 设 it. 

很 难 列 出 所 有 曾 对 这 一 教学 计划 的 开发 做 出 过 贡献 的 人 们 。 我 们 衷心 感谢 在 过 去 15 年 里 与 
我 们 一 起 工作 过 ， 并 在 此 科目 上 付出 时 间 和 心血 的 所 有 教师 、 答 疑 老师 和 辅导 员 们 ， 特 别 是 
Bill Siebert Albert Meyer, Joe Stoy, Randy Davis, Louis Braida, Eric Grimson, Rod Brooks 、 
Lynn Stein 和 Peter Szolovits 。 我 们 想 特 别 向 Franklyn Turbak (现在 在 Wellesley ) 在 教学 上 的 特 
殊 贡献 表示 谢意 ， 他 在 本 科 生 指导 方面 的 工作 为 我 们 的 努力 设 定 了 一 个 标准 。 我 们 还 要 感谢 
Jerry Saltzer 和 Jim Miller 帮 助 我 们 克服 并 发 性 中 的 难点 ，Peter Szolovits 和 David McAllester 对 于 

-第 4 章 里 非 确定 性 求 值 讨论 的 贡献 。 

许多 人 在 他 们 自己 的 大 学 里 讲授 本 书 时 付出 了 极 大 努力 ， 其 中 与 我 们 密切 合作 的 有 Technion 
的 Jacob Katzenelson Irvine 加 州 大 学 的 Hardy Mayer、 牛 津 大 学 的 Joe Stoy 、 普 度 大 学 的 Elisha 
Sacks 以 及 挪威 科技 大 学 的 Jan Komorowski。 我 们 特别 为 那些 在 其 他 大 学 改制 这 一 课程 ， 并 由 
此 获得 重要 教学 奖 的 同行 们 感到 骄傲 ， 包 括 耶 鲁 大 学 的 Kenneth Yip、 加 州 大 学 伯克利 分 校 的 
Brian Harvey 和 康 乃 尔 大 学 的 Dan Huttenlocher。 

Al Moyé 安 排 我 们 到 惠普 公司 为 工程 师 教授 这 一 课程 ， 并 为 这 些 课程 制作 了 录像 带 。 我 们 
感谢 有 那些 才干 的 教师 一 一 特别 是 Jim Miller, Bill Siebert 和 Mike Eisenberg 一 一 他 们 设计 了 结 
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合 这 些 录像 带 的 继续 教育 课程 ， 并 在 全 世界 的 许多 大 学 和 企业 讲授 。 

其 他 国家 的 许多 教育 工作 者 也 在 翻译 本 书 的 第 1 版 方面 做 了 许多 工作 。Michel Briand, 
Pierre Chamard 和 André Pic 做 出 了 法 文 版 ，Susanne Daniels-Herold 做 了 德 文 版 ，Fumio Motoyoshi 
做 了 日 文 版 。 

要 列举 出 所 有 为 我 们 用 于 教学 的 Scheme 系统 做 出 过 贡献 的 人 是 非常 困难 的 。 除 了 Guy 
Steele 之 外 ， 主 要 的 专家 还 包括 Chris Hanson, Joe Bowbeer, Jim Miller, Guillermo Rozas 和 
Stephen Adams。 在 这 项 工作 中 付出 许多 时 间 的 还 有 Richard Stallman, Alan Bawden, Kent 
Pitman Jon Taft, Neil Mayle 、John Lamping Gwyn Osnos Tracy Larrabee 、George Carrette 、 
Soma Chaudhuri, Bill Chiarchiaro, Steven Kirsch, Leigh Klotz, Wayne Noss, Todd Cass, 
Patrick O’Donnell , Kevin Theobald, Daniel Weise, Kenneth Sinclair, Anthony Courtemanche , 
Henry M. Wu, Andrew Berlin 和 Ruth Shyu 。 

除了 MIT 实 现 之 外 ， 我 们 还 应 该 感谢 那些 在 IEEE Scheme 标准 方面 工 作 的 大 们 ， 包 括 
William Clinger 和 Jonathan Rees, ， 他 们 编写 了 R4RS， 以 及 Chris Haynes, David Bartley, Chris 
Hanson 和 Jim Miller， 他 们 撰写 了 IEEE 标 准 。 

Dan Friedman 多 年 以 来 一 直 是 Scheme 社团 的 领袖 。 这 一 社团 的 工作 范围 已 经 从 语言 设计 
问题 ， 扩 展 到 围绕 着 重要 的 教育 创新 问题 ， 例 如 基于 Schemer s Inc. 的 EdScheme 的 高 中 教学 
计划 ， 以 及 由 Mike Bisenberg 和 由 Brian Harvey 和 Matthew Wright 撰写 的 绝妙 著作 。 

我 们 还 要 感谢 那些 为 本 教材 的 成 书 做 出 贡献 的 人 们 ， 特 别 是 MIT 出 版 社 的 Terry Ehling、 
Larry Cohen 和 Paul Bethge 。Ella Mazel 为 本 书 找到 了 最 美妙 的 封面 图 画 。 对 于 第 2 版 ,我 们 要 
特别 感谢 Bernard 和 Ella Mazel 对 本 书 设计 的 帮助 ， 以 及 David Jones 作 为 TEX 专 家 的 非 几 能 力 。 
我 们 还 要 感谢 下 面 的 读者 ， 他 们 对 于 这 个 新 书稿 提出 了 深刻 的 意见 : Jacob Katzenelson, 
Hardy Mayer, Jim Miller， 特 别 是 Brian Harvey， 他 对 于 本 书 所 做 的 也 就 像 Julie 对 于 Harvey 的 
著作 Simply Scheme 所 做 的 那样 。 

最 后 我 们 还 想 对 资助 组 织 表 示 感 谢 ， 它 们 多 年 来 一 直 支 持 这 项 工作 的 进行 。 包 括 来 自 惠 
普 公 司 的 支持 (由 Ira Goldstein 和 Joel Birnbaum 促 成 )， 还 有 来 自 DARPA 的 支持 (得 到 了 Bob 
Kahn 的 帮助 ) 。 
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第 1 章 构造 过 程 抽象 


心智 的 活动 ,除了 尽力 产生 各 种 简单 的 认识 之 外 ， 主 要 表现 在 如 下 三 个 方面 : 1) 
将 若干 简单 认识 组 合 为 一 个 复合 认识 ， 由 此 产生 出 各 种 复杂 的 认识 。2 ) 将 两 个 认识 
放 在 一 起 对 照 ， 不 管 它们 如 何 简单 或 者 复杂 ， 在 这 样 做 时 并 不 特 它们 合 而 为 一 。 由 
此 得 到 有 关 它们 的 相互 关系 的 认识 。3 ) 将 有 关 认 识 与 那些 在 实际 中 和 它们 同 在 的 所 
有 其 他 认识 隔离 开 ， 这 就 是 抽象 ， 所 有 具有 普遍 性 的 认识 都 是 这 样 得 到 的 。 


John Locke, Se Guy Concerning Homan Daderstanding 
( 有 关 人 类 理解 的 随笔 ，1690 ) 


我 们 准备 学 习 的 是 有 关 计 算 过 程 的 知识 。 计 算 过 程 是 存在 于 计算 机 里 的 一 类 抽象 事物 ， 
在 其 演化 进程 中 ， 这 些 过 程 会 去 操作 一 些 被 称 为 数据 的 抽象 事物 。 人 们 创建 出 一 些 称 为 程序 
的 规则 模式 ， 以 指导 这 类 过 程 的 进行 。 从 作用 上 看 ， 就 像 是 我 们 在 通过 自己 的 写作 魔力 去 控 
制 计算 机 里 的 精灵 似 的 。 

一 个 计算 过 程 确 实 很 像 一 种 神灵 的 巫 术 ， 它 看 不 见 也 摸 不 到 ， 根 本 就 不 是 由 物质 组 成 的 。 
然而 它 却 又 是 非常 真实 的 ， 可 以 完成 某 些 智力 性 的 工作 。 它 可 以 回答 提问 ， 可 以 通过 在 银行 
里 支付 现金 或 者 在 工厂 里 操纵 机 器 人 等 等 方式 影响 这 个 世界 。 我 们 用 于 指挥 这 种 过 程 的 程序 
就 像 是 巫师 的 8 咒语， 它们 是 用 一 些 诡 秘 而 深奥 的 程序 设计 语言 ， 通 过 符号 表达 式 的 形式 精心 
编排 而 成 ， 它 们 描述 了 我 们 希望 相应 的 计算 过 程 去 完成 的 工作 。 

在 正常 工作 的 计算 机 里 ， 一 个 计算 过 程 将 精密 而 准确 地 执行 相应 的 程序 。 这 样 ， 初 学 程 
序 设计 的 人 们 就 像 巫 师 的 徒弟 们 那样 ， 必 须 学 习 如 何 去 理 解 和 预期 他 们 所 发 出 的 咒语 的 效果 。 
程序 里 即使 有 一 点 小 错误 (常常 被 称 为 程序 错误 (bug) 或 者 故障 (glitch ) )， 也 可 能 产生 复 
杂 而 无 法 预料 的 后 果 。 

幸运 的 是 ， 学 习 程 序 的 危险 性 远 远 小 于 学 习 巫 术 ， 因 为 我 们 要 去 控制 的 神灵 以 一 种 很 安 
全 的 方式 被 约束 着 。 而 真实 的 程序 设计 则 需要 极度 细心 ， 需 要 经 验 和 智慧 。 例 如 ， 在 一 个 计 
算 机 辅助 设计 系统 里 的 一 点 小 毛病 ， 就 可 能 导致 一 架 飞 机 或 者 一 座 水 坝 的 灾难 性 损毁 ， 或 者 
一 个 工业 机 器 人 的 自我 破坏 。 

软件 工程 大 师 们 能 组 织 好 自己 的 程序 ， 使 自己 能 合理 地 确信 这 些 程序 所 产生 的 计算 过 程 
将 能 完成 预期 的 工作 。 他 们 可 以 事先 看 到 自己 系统 的 行为 方式 ， 知 道 如 何 去 构 造 这 些 程序 ， 
使 其 中 出 现 的 意外 问题 不 会 导致 灾难 性 的 后 果 。 而 且 ， 在 发 生 了 这 种 问题 时 ， 他 们 也 能 排除 
程序 中 的 错误 。 设 计 良 好 的 计算 系统 就 像 设计 良好 的 汽车 或 者 核反应 堆 一 样 ， 具 有 某 种 模块 
化 的 设计 ， 其 中 的 各 个 部 分 都 可 以 独立 地 构造 、 替 换 、 排 除 错误 。 

用 Lisp 编 程 

为 了 描述 这 类 计算 过 程 ， 我 们 需要 有 一 种 适用 的 语言 。 我 们 将 为 此 使 用 程序 设计 语言 
Lisp 。 正 如 人 们 每 天 用 自然 语言 (如 英语 、 法 语 或 日 语 等 ) 表述 自己 的 想法 ， 用 数学 形式 的 


Zoo HF Bedank 


记 法 描述 定量 的 现象 一 样 ， 我 们 将 要 用 Lisp 表 述 过 程 性 的 思想 。Lisp 是 20 世 纪 50 年 代 后 期 发 明 
的 一 种 记 法 形式 ， 是 为 了 能 对 某 种 特定 形式 的 逻辑 表达 式 ( 称 为 递归 方程 ) 的 使 用 做 推理 。 
递归 方程 可 以 作为 计算 的 模型 。 这 一 语言 是 由 John McCarthy 设 计 的 ， 基 于 他 的 论文 
“Recursive Functions of Symbolic Expressions and Their Computation by Machine” (符号 表达 
式 的 递归 函数 及 其 机 械 计算 , McCarthy 1960). 

虽然 在 开始 时 ，McCarthy 是 想 以 Lisp 作 为 一 种 数学 记述 形式 ,但 它 确实 是 一 种 实用 的 程 
序 设计 语言 。 一 个 Lisp 解 释 器 就 像 是 一 台 机 器 ， 它 能 实现 用 Lisp 语 言 描述 的 计算 过 程 。 第 一 个 
Lisp 解 释 器 是 McCarthy 在 MIT 电 子 研 究 实 验 室 的 人 工 智 能 组 和 MIT 计 算 中 心里 他 的 同事 和 学 生 
的 帮助 下 实现 的 !。Lisp 的 名 字 来 自 表 处 理 (LISt Processing ) ， 其 设计 是 为 了 提供 符号 计算 的 
能 力 ， 以 便 能 用 于 解决 一 些 程序 设计 问题 ， 例 如 代数 表达 式 的 符号 微分 和 积分 。 它 包含 了 运 
用 于 这 类 目的 的 一 些 新 数据 对 象 ， 称 为 原子 和 表 ， 这 是 它 与 那 一 时 代 的 所 有 其 他 语言 之 间 节 
明显 的 不 同 之 处 。 

Lisp 并 不 是 一 个 刻意 的 设计 努力 的 结果 ， 它 以 一 种 试验 性 的 非 正式 的 方式 不 断 演化 ， 以 
满足 用 户 的 需要 和 实际 实现 的 各 种 考虑 。Lisp 的 这 种 非 官方 演化 持续 了 许多 年 ，Lisp 用 户 社团 
具有 抵制 制定 这 一 语言 的 “官方 ”定义 企图 的 传统 。 这 种 演化 方式 以 及 语言 初始 概念 的 灵活 
和 优美 ， 使 得 Lisp 成 为 今天 还 在 广泛 使 用 的 历史 第 二 悠久 的 语言 (只 有 Fortran 比 它 更 老 ) 。 这 
一 语言 还 在 不 断 调整 ， 以 便 去 包容 有 关 程序 设计 的 最 新 思想 。 正 因为 这 样 ， 今 天 的 Lisp 已 经 
形成 了 一 族 方言 ， 它 们 共享 着 初始 语言 的 大 部 分 特征 ， 也 可 能 有 这 样 或 那样 的 重要 差异 。 用 
于 本 书 的 Lisp 方 言 名 为 Scheme , 

由 于 Lisp 的 试验 性 质 以 及 强调 符号 操作 的 特点 ， 开 始 时 的 这 个 语言 对 于 数值 计算 而 言 是 
很 低 效 的 ， 至 少 与 Fortran 比 较 时 是 这 样 。 经 过 这 么 多 年 的 发 展 ， 人 们 已 经 开发 出 了 Lisp 编译 
器 ， 它 们 可 以 将 程序 翻译 为 机 器 代码 ， 这 样 的 代码 能 相当 高 效 地 完成 各 种 数值 计算 。Lisp 已 
经 可 以 非常 有 效 地 用 于 一 些 特殊 的 应 用 领域 ?。 虽 然 Lisp 还 没有 完全 战胜 有 关 它 特 别 低 效 的 诈 
毁 ， 但 它 现在 已 被 用 于 许多 性 能 并 不 是 最 重要 考虑 因素 的 应 用 领域 。 例 如 ，Lisp 已 经 成 为 操 
作 系 统 外 过 语言 的 一 种 选择 ， 作 为 编辑 器 和 计算 机 辅助 设计 系统 的 扩充 语言 等 等 。 

既然 Lisp 并 不 是 一 种 主流 语言 ， 我 们 为 什么 要 用 它 作为 讨论 程序 设计 的 基础 呢 ? 这 是 因 
为 ， 这 一 语言 具有 许多 独 有 的 特征 ， 这 些 特征 使 它 成 为 研究 重要 程序 的 设计 、 构 造 ， 以 及 各 
种 数据 结构 ， 并 将 其 关联 于 支持 它们 的 语言 特征 的 一 种 极 佳 媒 介 。 这 些 特征 之 中 最 重要 的 就 


1Lisp 1 Programmer's Manual 在 1960 年 发 表 , Lisp 1.5 Programmer’s Manual (McCarthy 1965) 在 1962 年 发 表 。 
有 关 Lisp 的 早期 历史 见 McCarthy 1978 , . 

2 在 20 世 纪 70 年 代 ， 最 主要 的 两 个 Lisp 方 言 是 MIT 的 MAC 项 目 中 开发 的 MacLisp (Moon 1978; Pitman 1983), 以 
及 在 Bolt Beranek and Newman Inc. 和 Xerox Palo Alto Research Center 开 发 的 Interlisp (Teitelman 1974), ， 那 时 
主要 的 Lisp 程 序 都 是 用 它们 写 的 Portable Standard Lisp (Hearn 1969; Griss 1981) 是 另 一 种 Lisp 方 言 ， 其 设计 
就 是 为 能 更 容易 地 移植 到 不 同 的 计算 机 上 。MacLisp 又 发 展 出 一 些 子 方言 ， 例 如 加 州 大 学 伯克利 分 校 开 发 的 
Franz Lisp ， 还 有 ZetaLisp (Moon 1981) ， 它 基于 MIT 人 工 智 能 实验 室 设计 的 一 种 专用 处 理 器 ， 这 一 处 理 器 可 以 
非常 高 效 地 运行 Lisp 。 本 书 所 用 的 Lisp 方 言 称 为 Scheme (Steele 1975) ， 是 1975 年 由 MIT 人 工 智 能 实验 室 的 Guy 
Lewis Steele Jr. 和 Gerald Jay Sussman 设计 的 ， 后 来 在 MIT 为 了 教学 使 用 而 重新 实现 。 在 1990 年 Scheme 变 成 了 
IEEE 标 准 (IEEE 1990), Common Lisp 方 言 (Steele 1982, Steele 1990) 是 由 Lisp 社 团 综合 了 早 前 各 种 Lisp 方 言 
的 特征 而 开发 出 来 的 ， 希 望 能 做 成 Lisp 的 工业 标准 。Common Lisp 在 1994 年 成 为 ANSI 标 准 (ANSI 1994), 

3 这 方面 有 一 个 应 用 是 科学 计算 的 重要 突破 一 一 有 关 太 阳 系 统 运动 的 整合 ， 它 将 以 前 的 结果 提高 了 两 个 数量 级 ， 
并 显示 出 太阳 系统 动力 学 的 混 池 性 。 完 成 这 一 计算 依靠 了 一 种 新 的 整合 算法 、 一 个 特殊 的 编译 器 以 及 一 台 专用 
计算 机 ， 所 有 这 些 都 是 在 用 Lisp 写 的 软件 工具 的 帮助 下 实现 的 (Abelson et al. 1992; Sussman 和 Wisdom 1992 ) 。 


是 ， 计 算 过 程 的 Lisp 描 述 ( 称 为 过 程 ) 本 身 又 可 以 作为 Lisp 的 数据 来 表示 和 操作 。 这 一 事实 的 
重要 性 在 于 ， 现 存 的 许多 威力 强大 的 程序 设计 技术 ， 都 依赖 于 填 平 在 “被 动 的 ”数据 和 “ 主 
动 的 ”过 程 之 间 的 传统 划分 。 正 如 我 们 将 要 看 到 的 ，Lisp 可 以 将 过 程 作为 数据 进行 处 理 的 灵 
活性 ， 使 它 成 为 探索 这 些 技术 的 最 方便 的 现存 语言 之 一 。 能 将 过 程 表 示 为 数据 的 能 力 ， 也 使 
Lisp 成 为 编写 那些 必须 将 其 他 程序 当 作 数据 去 操作 的 程序 的 最 佳 语 言 ， 例 如 支持 计算 机 语言 
的 解释 器 和 编译 器 。 除 了 这 些 考虑 之 外 ， 用 Eisp 编程 本 身 也 是 极其 有 趣 的 。 


1.1 程序 设计 的 基本 元 素 


一 个 强 有 力 的 程序 设计 语言 ， 不 仅 是 一 种 指挥 计算 机 执行 任务 的 方式 ， 它 还 应 该 成 为 一 
种 框架 ， 使 我 们 能 够 在 其 中 组 织 自己 有 关 计算 过 程 的 思想 。 这 样 ， 当 我 们 描述 一 个 语言 时 ， 
就 需要 将 注意 力 特别 放 在 这 一 语言 所 提供 的 ， 能 够 将 简单 的 认识 组 合 起 来 形成 更 复杂 认识 的 
方法 方面 。 每 一 种 强 有 力 的 语言 都 为 此 提供 了 三 种 机 制 ; 

“基本 表达 形式 ， 用 于 表示 语言 所 关心 的 最 简单 的 个 体 。 

“组 合 的 方法 ， 通 过 它们 可 以 从 较 简单 的 东西 出 发 构造 出 复合 的 元 素 。 

“ 抽象 的 方法 ， 通 过 它们 可 以 为 复合 对 象 命名 ， 并 将 它们 当 作 单 元 去 操作 。 

在 程序 设计 中 ， 我 们 需要 处 理 两 类 要 素 :， 过 程 和 数据 (以 后 读者 将 会 发 现 ， 它 们 实际 上 
并 不 是 这 样 严格 分 离 的 ) 。 非 形式 地 说 ， 数 据 是 一 种 我 们 希望 去 操作 的 “东西 ”"”， 而 过 程 就 是 
有 关 操 作 这 些 数 据 的 规则 的 描述 。 这 样 ， 任 何 强 有 力 的 程序 设计 语言 都 必须 能 表述 基本 的 数 
据 和 基本 的 过 程 ， 还 需要 提供 对 过 程 和 数据 进行 组 合 和 抽象 的 方法 。 

本 章 只 处 理 简单 的 数值 数据 ， 这 就 使 我 们 可 以 把 注意 力 集中 到 过 程 构造 的 规则 方面 E 
随后 几 章 里 我 们 将 会 看 和 到， 用 于 构造 过 程 的 这 些 规则 同样 也 可 以 用 于 操作 各 种 数据 。 


1.1.1 表达 式 


开始 做 程序 设计 ， 最 简单 方式 就 是 去 观看 一 些 与 Lisp 方 言 Scheme 解释 器 交互 的 典型 实例 。 
设想 你 坐 在 一 台 计算 机 的 终端 前 ， 用 键盘 输入 了 一 个 表达 式 ， 解 释 器 的 响应 就 是 将 它 对 这 一 
表达 式 的 求 值 结果 显示 出 来 。 

你 可 以 键入 的 一 种 基本 表达 式 就 是 数 (更 准确 地 说 ， 你 键入 的 是 由 数字 组 成 的 表述 式 ， 
它 表 示 的 是 以 10 作 为 基数 的 数 )。 如 果 你 给 Lisp 一 个 数 

486 


解释 器 的 响应 是 打印 出 


4 将 数值 作为 “简单 数据 ”看 待 实际 上 完全 是 一 种 虚 张 声势 。 事 实 上 ， 对 于 数值 的 处 理 是 任何 程序 设计 语言 里 
最 错综复杂 而 且 也 最 迷惑 人 的 事项 之 一 ， 其 中 涉及 的 典型 问题 包括 : 某 些 计算 机 系统 区 分 了 整数 〈 例如 2) 和 
实数 (例如 2.71) 。 那 么 实数 2.00 和 整数 2 不 同 吗 ? 用 干 整数 的 算术 运算 是 否 与 用 于 实数 的 运算 相同 呢 ? 用 6 除 
以 2 的 结果 是 3 还 是 3.0? 我 们 可 以 表示 的 最 大 的 数 是 多 少 ? 最 多 能 表示 的 精度 包含 了 多 少 个 十 进 制 位 ? 整数 的 
表示 范围 与 实数 一 样 吗 ? 显然， 上述 这 些 问题 以 及 许多 其 他 问题 ， 都 会 带 来 有 关 伟人 和 截断 误差 的 一 系列 问 
题 一 -这 就 是 数值 分 析 的 整个 科学 领域 。 因为 我 们 在 本 书 中 主要 关心 的 是 大 规模 程序 的 设计 , 而 不 是 数值 技术 ， 
因此 将 忽略 对 这 些 问题 的 讨论 。 本 章 中 有 关 数 值 的 实例 将 没有 常规 的 伟人 动作 ， 而 如 果 对 非 整 数 使 用 具有 有 
限 的 十 进 制 位 数 精度 的 算术 运算 ， 就 会 看 到 这 方面 的 情况 。 

s 在 这 本 书 里 的 任何 地 方 ， 当 我 们 希望 强调 用 户 键入 的 输入 和 解释 器 的 响应 之 间 的 差异 时 ， 就 用 斜体 的 形式 显 
示 后 者 。 . 
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486 。 
可 以 用 表示 基本 过 程 的 表达 形式 (例如 + 或 者 *) ， 将 表示 数 的 表达 式 组 合 起 来 ， 形 成 复 
合 表达 式 ， 以 表示 求 要 把 有 关 过 程 应 用 于 这 些 数 。 例 如 : 

(+ 137 349) 

486 

(- 1000 334) ° 

666 

(* 5 99) 

495 


(/ 10 5) 
2 


(+ 2.7 10) 
12.7 


像 上 面 这 样 的 表达 式 称 为 组 合式 ， 其 构成 方式 就 是 用 一 对 括号 括 起 一 些 表达 式 ， 形 成 一 
个 表 ， 用 于 表示 一 个 过 程 应 用 。 在 表 里 最 左 的 元 素 称 为 运算 罕 ， 其 他 元 素 都 称 为 运算 对 象 。 
要 得 到 这 种 组 合式 的 值 ， 采 用 的 方式 就 是 将 由 运算 符 所 刻画 的 过 程 应 用 于 有 关 的 实际 参数 ， 
而 所 谓 实际 参数 也 就 是 那些 运算 对 象 的 值 。 

将 运算 符 放 在 所 有 运算 对 象 左边 ， 这 种 形式 称 为 前 组 表示 。 刚 开始 看 到 这 种 表示 时 会 感 
到 有 些 不 习惯 ， 因 为 它 与 常规 数学 表示 差别 很 大 。 然 而 前 级 表示 也 有 一 些 优点 ， 其 中 之 一 就 
是 它 完全 适用 于 可 能 带 有 任意 个 实 参 的 过 程 ， 例 如 在 下 面 实例 中 的 情况 : 

(+ 21 35 12 7) 

75 


(* 25 4 12) 
1200 


在 这 里 不 会 出 现 歧 义 ， 因 为 运算 符 总 是 最 左边 的 元 素 ， 而 整个 表达 式 的 范围 也 由 括号 界定 。 
前 绥 表 示 的 第 二 个 优点 是 它 可 以 直接 扩充 ， 允 许 出 现 组 合式 党 套 的 情况 ， 也 就 是 说 ， 多 
许 组 合式 的 元 素 本 身 又 是 组 合式 : 
(+ (* 3 5) (- 10 6)) 
19 


原则 上 讲 ， 对 于 这 种 伐 套 的 深度 ， 以 及 Lisp 解 释 器 可 以 求 值 的 表达 式 的 整体 复杂 性 ， 都 
没有 任何 限制 。 倒 是 我 们 自己 有 可 能 被 一 些 并 不 很 复杂 的 表达 式 搞 糊涂 ， 例 如 : 


(+ (* 3 (+ (*24) (+35))) (+ (- 10 7) 6)) 
对 于 这 个 表达 式 ， 解 释 器 可 以 马上 求 值 出 57 。 将 上 述 表达 式 写成 下 面 的 形式 有 助 于 阅读 : 
(+ (* 3 
(+ (* 2 4) 
(+ 3 5))) 
(+ (- 10 7) 


6)) 
这 就 是 遵循 一 种 称 为 美观 打印 的 格式 规则 。 按 照 这 种 规则 ， 在 写 一 个 很 长 的 组 合式 时 ， 我 们 


令 其 中 的 各 个 运算 对 象 垂直 对 齐 。 这 样 缩 格 排列 的 结果 能 很 好 地 显示 出 表达 式 的 结构 5。 

即使 对 于 非常 复杂 的 表达 式 ， 解 释 器 也 总 是 按 同 样 的 基本 循环 运作 : 从 终端 读 入 一 个 表 
达 式 ， 对 这 个 表达 式 求 值 ， 而 后 打印 出 得 到 的 结果 。 这 种 运作 模式 常常 被 人 们 说 成 是 解释 器 
运行 在 一 个 读 入 一 求 值 一 打印 循环 之 中 。 请 特别 注意 ， 在 这 里 完全 没有 必要 显 式 地 去 要 求解 
释 器 打印 表达 式 的 值 。 


1.1.2 命名 和 环境 


程序 设计 语言 中 一 个 必 不 可 少 的 方面 ， 就 是 它 需 要 提供 一 种 通过 名 字 去 使 用 计算 对 象 的 
方式 。 我 们 将 名 字 标 识 符 称 为 变量 ， 它 的 值 也 就 是 它 所 对 应 的 那个 对 象 。 

在 Lisp 方 言 Scheme 里 ， 给 事物 命名 通过 define (X) 的 方式 完成 输入: 

(define size 2) 
会 导致 解释 器 将 值 2 与 名 字 size 相 关联 :。 一 旦 名 字 size 与 2 关联 之 后 ， 我 们 就 可 以 通过 这 个 
名 字 去 引用 值 2 了 : 

size 

2 

(* 5 size) 

10 

下 面 是 另外 几 个 使 用 efine 的 例子 : 

(define pi 3.14159) 

(define radius 10) 

(* pi (* radius radius) ) 

314.159 


(define circumference (* 2 pi radius)) | 


circumference 
62.8318 


define 是 我 们 所 用 的 语言 里 最 简单 的 抽象 方法 ， 它 允许 我 们 用 一 个 简单 的 名 字 去 引用 一 
个 组 合 运算 的 结果 ， 例 如 上 面 算出 的 circumference。 一 般 而 言 ， 计 算得 到 的 对 象 完全 可 
以 具有 非常 复杂 的 结构 ， 如 果 每 次 需要 使 用 它们 时 ， 都 必须 记 住 并 重复 地 写 出 它们 的 细节 ， 
. 那 将 是 极端 不 方便 的 事情 。 实 际 上 ， 构 造 一 个 复杂 的 程序 ， 也 就 是 为 了 去 一 步 步 地 创建 出 越 
来 越 复杂 的 计算 性 对 象 。 解 释 器 使 这 种 逐步 的 程序 构造 过 程 变 得 非常 方便 ， 因 为 我 们 可 以 通 
过 一 系列 交互 式 动作 ， 逐 步 创建 起 所 需要 的 名 字 - 对象 关联 。 这 种 特征 鼓励 人 们 采用 递增 的 
方式 去 开发 和 调试 程序 。 在 很 大 程度 上 ， 这 一 情况 也 出 于 另 一 个 事实 ， 那 就 是 ， 一 个 Lisp 程 
序 通 常 总 是 由 一 大 批 相对 简单 的 过 程 组 成 的 。 


5Lisp 系 统 通常 都 为 用 户 提供 了 一 些 对 表达 式 进行 格式 化 的 特征 。 其 中 包含 两 个 最 有 用 的 特征 ， 其 一 是 在 开始 一 
个 新 行 时 ， 自 动 缩 格 到 美观 打印 形式 的 准确 位 置 ， 另 一 特征 是 在 输入 右 括号 时 自动 加 亮 显示 与 之 对 应 的 左 括号 。 
7Lisp 邀 循 一 种 约定 ， 规 定 每 个 表达 式 都 有 一 个 值 。 这 一 约定 和 有 关 Lisp 是 一 个 低 效 语言 的 陈旧 说 法 一 起 ， 形 成 
了 Alan Perlis 的 妙语 (由 Oscar Wilde 释 义 ) :“Lisp 程 序 员 知道 所 有 东西 的 值 (value, 价值 )， 但 却 不 知道 任何 


东西 的 代价 (cost) 。 
s 本 书 中 将 不 给 出 解释 器 在 对 定义 求 值 时 的 响应 ， 因 为 这 依赖 于 具体 实现 。 


应 该 看 到 ， 我 们 可 以 将 值 与 符号 关联 ， 而 后 又 能 提取 出 这 些 值 ， 这 意味 着 解释 器 必须 维 
护 某 种 存储 能 力 ， 以 便 保持 有 关 的 名 字 - 值 对 偶 的 轨迹 。 这 种 存储 被 称 为 环境 〈 更 精确 地 说 ， 
是 会 局 环境 ， 因 为 我 们 以 后 将 看 到 ， 在 一 个 计算 过 程 中 完全 可 能 涉及 若干 不 同 环境 ) "。 


1.1.3 组 合式 的 求 值 


本 章 的 一 个 目标 ， 就 是 要 把 与 过 程 性 思维 有 关 的 各 种 问题 隔离 出 来 。 现 在 让 我 们 考虑 组 
合式 的 求 值 问题 。 解 释 器 本 身 就 是 按照 下 面 过 程 工作 的 。 

* 要 求 值 一 个 组 合式 ， 做 下 面 的 事情 : 

1) 求 值 该 组 合式 的 各 个 子 表达 式 。 . 

2) 将 作为 最 左 子 表达 式 〈 运 算 符 ) 的 值 的 那个 过 程 应 用 于 相应 的 实际 参数 ， 所 谓 实际 参 
数 也 就 是 其 他 子 表达 式 (运算 对 象 ) 的 值 。 

即使 是 一 条 这 样 简单 的 规则 ， 也 显示 出 计算 过 程 里 的 一 些 具 有 普遍 性 的 重要 问题 。 首 先 ， 
由 上 面 的 第 一 步 可 以 看 到 ， 为 了 实现 对 一 个 组 合式 的 求 值 过 程 ， 我 们 必须 先 对 组 合式 里 的 每 
个 元 素 执行 同样 的 求 值 过 程 。 因 此 ， 在 性 质 上 ， 这 一 求 值 过 程 是 递归 的 ， 也 就 是 说 ， 它 在 自 
己 的 工作 步骤 中 ， 包 含 着 调用 这 个 规则 本 身 的 需要 "。 

在 这 里 应 该 特别 注意 ， 采 用 递归 的 思想 可 以 多 么 简洁 地 描述 深度 和 仍 套 的 情况 。 如 果 不 用 
递归 ， 我 们 就 需要 把 这 种 情况 看 成 相当 复杂 的 计算 过 程 。 例 如 ， 对 下 列表 达 式 求 值 : 

(* (+ 2 (* 4 6)) 

(+ 3 5 7)) 

需要 将 求 值 规则 应 用 于 4 个 不 同 的 组 合式 。 如 图 1-1 中 所 示 ， 我 们 可 以 采用 一 棵 树 的 形式 ， 用 
图 形 表 示 这 一 组 合式 的 求 值 过 程 ， 其 中 的 每 个 组 合式 用 一 个 带 分 支 的 结 点 表示 ， 由 它 发 出 的 
分 支 对 应 于 组 合式 里 的 运算 符 和 各 个 运算 对 象 。 终 端 结 点 ( 即 那些 不 再 发 出 分 支 的 结 点 ) 表 
示 的 是 运算 符 或 者 数值 。 以 树 的 观点 看 这 种 求 值 过 程 ， 可 以 设想 那些 运算 对 象 的 值 向 上 穿行 ， 
从 终端 结 点 开始 ， 而 后 在 越 来 越 高 的 层次 中 组 合 起 来 。 一 般 而 言 ， 我 们 应 该 把 递归 看 做 一 种 
处 理 层 次 性 结构 的 ( 像 树 这 样 的 对 象 ) 极 强 有 力 的 技术 。 事 实 上 ,“ 值 向 上 穿行 ”形式 的 求 值 
形式 是 一 类 更 一 般 的 计算 过 程 的 一 个 例子 ， 这 种 计算 过 程 称 为 树 形 积累 。 

进一步 的 观察 告诉 我 们 ， 反 复 地 应 用 第 一 个 步骤 ， 总 可 以 把 我 们 带 到 求 值 中 的 某 一 点 ， 
在 这 里 遇 到 的 不 是 组 合式 而 是 基本 表达 式 ， 例 如 数 、 内 部 运算 符 或 者 其 他 名 字 。 处 理 这 些 基 
础 情况 的 方式 如 下 规定 : 

* 数 的 值 就 是 它们 所 表示 的 数值 。 

。 内 部 运算 符 的 值 就 是 能 完成 相应 操作 的 机 器 指令 序列 。  ， 

* 其 他 名 字 的 值 就 是 在 环境 中 关联 于 这 一 名 字 的 那个 对 象 。 
我 们 可 以 将 第 二 种 规定 看 作 是 第 三 种 规定 的 特殊 情况 ， 为 此 只 需 将 像 + 和 * 一 类 的 运算 符 也 
包含 在 全 局 环境 里 ， 并 将 相应 的 指令 序列 作为 与 之 关联 的 “ 值 "。 对 于 初学 者 ， 应 该 指出 的 关 
键 一 点 是 ， 环 境 所 扮演 的 角色 就 是 用 于 确定 表达 式 中 各 个 符号 的 意义 。 在 如 Lisp 这 样 的 交互 


° 第 3 章 将 说 明 ， 无 论 对 于 理解 解释 器 的 工作 ， 还 是 实现 解释 器 而 言 ， 环 境 的 概念 都 是 至 关 重要 的 。 

0 这 一 求 值 规 则 说 ， 在 它 的 第 一 步 要 对 组 合式 的 最 左 元 素 求 值 ， 这 一 说 法 看 起 来 好 像 上 有 点 奇怪 ， 因 为 在 这 里 出 
现 的 只 是 + 和 * 一 类 的 运算 符 ， 它 们 表示 的 是 内 部 基本 过 程 ， 例 如 求 和 和 求 乘积 。 后 面 将 看 到 这 一 规则 是 有 
用 的 ， 因 为 我 们 还 需要 处 理 那 些 运算 符 部 分 也 是 组 合 表达 式 的 情况 。 


图 1-1 树 形 表示 方法 ， 其 中 显示 了 每 个 子 表达 式 的 值 


式 语 言 里 ， 如 果 没 有 关于 有 关 环境 的 任何 信息 ， 那 么 说 例如 表达 式 〈+ x 1) 的 值 是 毫 无 意 
义 的 ， 因 为 需要 有 环境 为 符号 x 提供 意义 (甚至 需要 它 为 符号 + 提供 意义 )。 正 如 我 们 将 要 在 
第 3 章 看 到 的 ， 环 境 是 具有 普遍 性 的 概念 ， 它 为 求 值 过 程 的 进行 提供 了 一 种 上 下 文 ， 对 于 我 们 
理解 程序 的 执行 起 着 极其 重要 的 作用 。 

请 注意 ， 上 面 给 出 的 求 值 规则 里 并 没有 处 理 定 义 。 例 如 ， 对 (define x 3) 的 求 值 并 
不 是 将 define 应 用 于 它 的 两 个 实际 参数 : 其 中 的 一 个 是 符号 x 的 值 ， 另 一 个 是 3。 这 是 因为 
define 的 作用 就 是 为 x 关联 一 个 值 (HRA, (define x 3) 并 不 是 一 个 组 合式 ) 。 

一 般 性 求 值 规则 的 这 种 例外 称 为 特殊 形式 ，define 是 至 今 我 们 已 经 看 到 的 惟一 的 一 种 特 
殊 形式 ， 下 面 还 将 看 到 另外 一 些 特殊 形式 。 每 个 特殊 形式 都 有 其 自身 的 求 值 规则 ， 各 种 不 同 
种 类 的 表达 式 (每 种 有 着 与 之 相关 联 的 求 值 规则 ) 组 成 了 程序 设计 语言 的 语法 形式 。 与 大 部 
分 其 他 程序 设计 语言 相 比 ，Lisp 的 语法 非常 简单 。 也 就 是 说 ， 对 各 种 表达 式 的 求 值 规 则 可 以 
描述 为 一 个 简单 的 通用 规则 和 一 组 针对 不 多 的 特殊 形式 的 专门 规则 "。 


1.14 复合 过 程 


我 们 已 经 看 到 了 Lisp 里 的 某 些 元素 ， 它 们 必然 也 会 出 现在 任何 一 种 强 有 力 的 程序 设计 语 
言 里 。 这 些 东西 包括 ， 

* 数 和 算术 运算 是 基本 的 数据 和 过 程 。 

。 组 合式 的 幅 套 提供 了 一 种 组 织 起 多 个 操作 的 方法 。 

。 定义 是 一 种 受 限 的 抽象 手段 ， 它 为 名 字 关 联 相应 的 值 。 

现在 我 们 来 学 习 过 程 定义 ， 这 是 一 种 威力 更 加 强大 的 抽象 技术 ， 通 过 它 可 以 为 复合 操作 


u 这 里 的 特殊 语法 形式 ， 只 不 过 是 为 那些 完全 可 以 采用 统一 形式 描述 的 东西 给 出 的 另 一 种 表面 结构 ， 通 常 被 称 
为 语法 的 粮农 ， 这 个 术语 源 自 Peter Landin。 与 其 他 语言 相 比 ，Lisp 程 序 员 更 少 关心 语法 的 问题 (与 此 相对 应 ， 
查看 一 下 Pascal 的 手册 ， 就 可 以 看 到 它 将 多 少 篇 幅 用 于 描述 语法 )。Lisp 对 语法 的 靳 视 情 况 ， 部 分 地 归 因 于 它 
的 灵活 性 ， 因 此 使 它 很 容易 改变 表面 的 语法 形式 。 此 外 还 源 自 对 许多 “方便 的 ”语法 结构 的 看 法 ， 认 为 那样 
做 产生 出 的 语言 更 少 统一 性 ， 在 程序 变 得 更 大 更 复杂 时 ， 最 终 带 来 的 麻烦 比 它们 的 价值 更 大 。 按 照 Alan Perlis 
的 说 法 , “语法 的 糖衣 会 导致 分 号 的 癌症 ”。 
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提供 名 字 ， 而 后 就 可 以 将 这 样 的 操作 作为 一 个 单元 使 用 了 。 
现在 我 们 要 考察 如 何 表述 “平方 ”的 想法 。 我 们 可 能 想 说 “ 求 某 个 东西 的 平方 ， 就 是 用 
它 自身 去 乘 以 它 自身 ”。 在 这 个 语言 里 ,这 件 事情 应 该 表述 为 : 
(define (square x) (* x x)) 
可 以 按 如 下 方式 理解 这 一 描述 : 
(define (square x) (* x 
f 1 1 1 1 f 
去 平方 某 个 东西 RE E 和 CAs 
这 样 我 们 就 有 了 一 个 复合 过 程 ， 给 它 取 的 名 字 是 sguare。 这 一 过 程 表 示 的 是 将 一 个 东西 乘 以 
它 自 身 的 操作 。 被 乘 的 东西 也 给 定 了 一 个 局 部 名 字 x， 它 扮演 着 与 自然 语言 里 代词 同样 的 角色 。 
求 值 这 一 定义 的 结果 是 创建 起 一 个 复合 过 程 ， 并 将 它 关 联 于 名 字 square' 。 
过 程 定 义 的 一 般 形 式 是 : 
(define (<name> <formal parameters>) <body>) 
其 中 <name> 是 一 个 符号 ， 过 程 定义 将 在 环境 中 关联 于 这 个 符号 ”>。<formal parameters> (形式 参 
数 ) 是 一 些 名 字 ， 它 们 用 在 过 程 体 中 ， 用 于 表示 过 程 应 用 时 与 它们 对 应 的 各 个 实际 允 数 。 
<body> 是 一 个 表达 式 ， 在 应 用 这 一 过 程 时 ， 这 一 表达 式 中 的 形式 参数 将 用 与 之 对 应 的 实际 参 
数 取 代 ， 对 这 样 取代 后 的 表达 式 的 求 值 ， 产 生出 这 个 过 程 应 用 的 值 *。<name> 和 <formal 
parameters> 被 放 在 一 对 括号 里 ， 成 为 一 组 ， 就 像 实际 调用 被 定义 过 程 时 的 写法 。 
定义 好 square 之 后 ， 我 们 就 可 以 使 用 它 了 : 


(square 21) 
441 


(square (+ 2 5)) 
49 


(square (square 3)) 
81 


我 们 还 可 以 用 square 作 为 基本 构件 去 定义 其 他 过 程 。 例 如 ,x + 六 可 以 表述 为 : 
{+ {square x) (Square y)) 
现在 我 们 很 容易 定义 一 个 过 程 sum-of -squares ,给 它 两 个 数 作为 实际 参数 ， 让 它 产 生 这 两 
个 数 的 平方 和 : 
{define (sum-of-squares x y) 
(+ {square x) (square y))) 


(sum-of-squares 3 4) 
25 


2 可 以 看 到 ， 这 里 实际 上 组 合 了 两 个 不 同 操作 : 建立 了 一 个 过 程 ， 并 为 它 给 定 了 名 字 square 。 完 全 可 能 将 这 两 
个 概念 分 离开 ， 能 够 那样 做 也 是 非常 重要 的 。 我 们 可 以 创建 一 个 过 程 但 并 不 子 以 命名 ， 也 可 以 给 以 前 创建 好 
的 过 程 命 名 。 在 1.3.2 节 里 将 会 做 这 些 事情 。 

3 在 本 书 里 描述 表达 式 的 语法 形式 时 , 用 尖 括 号 括 起 的 斜体 符号 (例如 <name> ) 表示 表达 式 中 的 一 些 “ 空 位置 。 
在 实际 采用 这 种 表 达 式 时 就 需要 填充 它们 。 

4 更 一 般 的 情况 是 ， 过 程 体 可 以 是 一 系列 的 表达 式 。 此 时 解释 器 将 顺序 求 值 这 个 序列 中 的 各 个 表达 式 ， 并 将 最 
后 一 个 表达 式 的 值 作 为 整个 过 程 应 用 的 值 并 返回 它 。 


现在 我 们 又 可 以 用 sum-of-squares 作 为 构件 ， 进 一 步 去 构造 其 他 过 程 : 

(define (f a) 

(sum-of-squares (+ a 1) (* a 2))) 

(£ 5) 
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复合 过 程 的 使 用 方式 与 基本 过 程 完 全 一 样 。 实 际 上 ， 如 果 人 们 只 看 上 面 sum-of-squares 的 定 
义 ， 根 本 就 无 法 分 辨 出 square 究竟 是 〈 像 + 和 * 那样 ) 直接 做 在 解释 器 里 呢 ， 还 是 被 定义 为 
一 个 复合 过 程 。 


1.1.5 过程 应 用 的 代 换 模型 


为 了 求 值 一 个 组 合式 (其 运算 符 是 一 个 复合 过 程 的 名 字 )， 解 释 器 的 工作 方式 将 完全 按照 
1.1.3 节 中 所 描述 的 那样 ， 采 用 与 以 运算 符 名 为 基本 过 程 的 组 合式 一 样 的 计算 过 程 。 也 就 是 说 ， 
解释 器 将 对 组 合式 的 各 个 元 素 求 值 ， 而 后 将 得 到 的 那个 过 程 〈 也 就 是 该 组 合式 里 运算 符 的 值 ) 
应 用 于 那些 实际 参数 〈 即 组 合式 里 那些 运算 对 象 的 值 ) 。 

我 们 可 以 假定 ， 把 基本 运算 符 应 用 于 实 参 的 机 制 已 经 在 解释 器 里 做 好 了 。 对 于 复合 过 程 ， 
过 程 应 用 的 计算 过 程 是 : 

。 将 复合 过 程 应 用 于 实际 参数 ， 就 是 在 将 过 程 体 中 的 每 个 形 参 用 相应 的 实 参 取代 之 后 ， 对 

这 一 过 程 体 求 值 。 

为 了 说 明 这 种 计算 过 程 ， 让 我 们 看 看 下 面 组 合式 的 求 值 ; 

(£ 5) . 
其 中 的 f 是 1.1.4 节 定义 的 那个 过 程 。 我 们 首先 提取 出 £ 的 体 : 

(sum-of-squares (+ a 1) (* a 2)) 

而 后 用 实际 参数 5 代 换 其 中 的 形式 参数 : 

(sum-of-squares (+ 5 1) (* 5 2)) 
这 样 ， 问 题 就 被 归 约 为 对 另 一 个 组 合式 的 求 值 ， 其 中 有 两 个 运算 对 象 ， 有 关 的 运算 符 是 sum- 
of-squares 。 求 值 这 一 组 合式 牵涉 到 三 个 子 问题 : 我 们 必须 对 其 中 的 运算 符 求 值 ， 以 便 得 
到 应 该 去 应 用 的 那个 过 程 ， 还 需要 求 值 两 个 运算 对 象 ， 以 得 到 过 程 的 实际 参数 。 这 里 的 《+5 
1) 产生 出 6 (* 5 2) 产生 出 10 ， 因 此 我 们 就 需要 将 sum-of-squares 过 程 用 于 6 和 10。 
用 这 两 个 值 代 换 sum-of-squares 体 中 的 形式 参数 x 和 y ， 表 达 式 被 归 约 为 : 

(+ (square 6) (square 10)) 
使 用 square 的 定义 又 可 以 将 它 归 约 为 ; 

(+ (* 6 6) (* 10 10)) 
通过 乘法 又 能 将 它 进一步 归 约 为 : 

(+ 36 100) 

最 后 得 到 : 
136 
上 面 描述 的 这 种 计算 过 程 称 为 过 程 应 用 的 代 换 模型 ， 在 考虑 本 章 至 今 所 定义 的 过 程 时 ， 
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我 们 可 以 将 它 看 作 确 定 过 程 应 用 的 “意义 ”的 一 种 模型 。 但 这 里 还 需要 强调 两 点 : 
。 代 换 的 作用 只 是 为 了 帮助 我 们 领会 过 程 调用 中 的 情况 ， 而 不 是 对 解释 器 实际 工作 方式 的 
具体 描述 。 通 常 的 解释 器 都 不 采用 直接 操作 过 程 的 正文 ， 用 值 去 代 换 形式 参数 的 方式 去 
完成 对 过 程 调用 的 求 值 。 在 实际 中 ， 它 们 一 般 采 用 提供 形式 参数 的 局 部 环境 的 方式 ， 产 
生 “ 代 换 ” 的 效果 。 我 们 将 在 第 3 章 和 第 4 章 考察 一 个 解释 器 的 细节 实现 ， 在 那里 更 完整 
地 讨论 这 一 问题 。. 
。 随 着 本 书 讨论 的 进展 ， 我 们 将 给 出 有 关 解 释 器 如 何 工 作 的 一 系列 模型 ， 一 个 比 一 个 更 精 
细 ， 并 最 终 在 第 5 章 给 出 一 个 完整 的 解释 器 和 一 个 编译 器 。 这 里 的 代 换 模型 只 是 这 些 模 
型 中 的 第 一 个 一 一 作为 形式 化 地 考虑 这 种 求 值 过 程 的 起 点 。 一 般 来 说 ， 在 模拟 科学 研究 
或 者 工程 中 的 现象 时 ， 我 们 总 是 从 最 简单 的 不 完全 的 模型 开始 。 随 着 更 细致 地 检查 所 考 
虚 的 问题 ， 这 些 简 单 模型 也 会 变 得 越 来 越 不 合适 ， 从 而 必须 用 进一步 精 化 的 模型 取代 。 
代 换 模型 也 不 例外 。 特 别 地 ， 在 第 3 章 中 ， 我 们 将 要 讨论 将 过 程 用 于 “变化 的 数据 ”的 
问题 ， 那 时 就 会 看 到 替换 模型 完全 不 行 了 ， 必 须 用 更 复杂 的 过 程 应 用 模型 来 代替 它 ”。 
应 用 序 和 正则 序 
按照 1.1.3 节 给 出 的 有 关 求 值 的 描述 ， 解 释 器 首先 对 运算 符 和 各 个 运算 对 象 求 值 ， 而 后 将 
得 到 的 过 程 应 用 于 得 到 的 实际 参数 。 然 而 ， 这 并 不 是 执行 求 值 的 惟一 可 能 方式 。 另 一 种 求 值 
模型 是 先 不 求 出 运算 对 象 的 值 ， 直 到 实际 需要 它们 的 值 时 再 去 做 。 采 用 这 种 求 值 方式 ， 我 们 
就 应 该 首先 用 运算 对 象 表达 式 去 代 换 形式 参数 ， 直 至 得 到 一 个 只 包含 基本 运算 符 的 表达 式 ， 
然后 再 去 执行 求 值 。 如 果 我 们 采用 这 一 方式 ， 对 下 面 表达 式 的 求 值 ， 
(£ 5) 
将 按照 下 面 的 序列 逐步 展开 : 
(sum-of-squares (+ 5 1) (* 5 2)) 
(+ (square (+ 5 1)) (square (* 5 2)) ) 
(+ (* (+ 5 1) (+ 5 1)) (* (* 5 2) (* 5 2))) 
而 后 是 下 面 归 约 : | 
(+ (* 6 6) (* 10 10)) 
(+ 36 100) 
136 
这 给 出 了 与 前 面 求 值 模型 同样 的 结果 ， 但 其 中 的 计算 过 程 却 是 不 一 样 的 。 特 别 地 ， 在 对 下 面 
表达 式 的 归 约 中 ， 对 于 (+5 1) 和 (* 5 2) 的 求 值 各 做 了 两 次 : 
(* x x) 
其 中 的 x 分 别 被 代 换 为 (+5 1) 和 (* 5 2), 
这 种 “完全 展开 而 后 归 约 ”的 求 值 模型 称 为 正则 序 求 值 ， 与 之 对 应 的 是 现在 解释 器 里 实 
际 使 用 的 “ 先 求 值 参数 而 后 应 用 ”的 方式 ， 它 称 为 应 用 序 求 值 。 可 以 证 明 ， 对 那些 可 以 通过 
5 虽然 代 换 模型 看 起 来 似乎 非常 简单 ， 但 令 人 吃惊 的 是 ， 给 出 代 换 过 程 的 严格 数学 定义 却 异常 复杂 。 问 题 在 于 ， 
用 作 过 程 中 形式 参数 的 名 字 ， 可 能 会 与 该 过 程 可 能 应 用 的 那些 表达 式 中 的 (同样 ) 名 字 相 互 混淆 。 在 逻辑 和 
程序 设计 的 语义 学 文献 里 ， 关 于 代 换 的 充满 错误 的 定义 有 一 个 很 长 的 历史 。 请 参考 Stoy 1977 中 有 关 代 换 的 详 
细 讨 论 。 
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替换 去 模拟 ， 并 能 产生 出 合共 值 的 过 程 应 用 (包括 本 书 前 两 章 中 的 所 有 过 程 )， 正 则 序 和 应 用 
序 求 值 将 产生 出 同样 的 值 (参见 练习 1.5 中 一 个 “非法 ” 值 的 例子 ， 其 中 正则 序 和 应 用 序 将 给 
出 不 同 的 结果 )。 

Lisp 采 用 应 用 序 求 值 ， 部 分 原因 在 于 这 样 做 能 避免 对 于 表达 式 的 重复 求 值 (例如 上 面 的 
(+5 1) 和 (* 5 2) 的 情况 )， 从 而 可 以 提高 一 些 效 率 。 更 重要 的 是 ， 在 超出 了 可 以 采用 
替换 方式 模拟 的 过 程 范围 之 后 ， 正 则 序 的 处 理 将 变 得 更 复杂 得 多 。 而 在 另 一 些 方面 ， 正 则 序 
也 可 以 成 为 特别 有 价值 的 工具 ， 我 们 将 在 第 3 章 和 第 4 章 研 究 它 的 某 些 内 在 性 质 “。 


1.1.6 条 件 表 达 式 和 谓词 


至 此 我 们 能 定义 出 的 过 程 类 的 表达 能 力 还 非常 有 限 ， 因 为 还 没 办 法 去 做 某 些 检 测 ， 而 后 
依据 检测 的 结果 去 确定 做 不 同 的 操作 。 例 如 ， 我 们 还 无 法 定义 一 个 过 程 ， 使 它 能 计算 出 一 个 
数 的 绝对 值 。 完 成 此 事 需 要 先 检查 一 个 数 是 正 的 、 负 的 或 者 零 ， 而 后 依据 遇 到 的 不 同情 况 ， 
按照 下 面 规则 采取 不 同 的 动作 ; 

x 如 果 x> 0 
|x|=40 如 果 x = 0 
-x 如 果 x < 0 


这 种 结构 称 为 一 个 分 情况 分 析 ， 在 Lisp 里 有 着 一 种 针对 这 类 分 情况 分 析 的 特殊 形式 ， 称 为 
cond (表示 “条 件 ”)。 其 使 用 形式 如 下 : 


(define {abs x) 
(cond ‘(> x 0) x) 
(f= x 0) 0) 
((< x 0) (- x)))) 
条 件 表达 式 的 一 般 性 形式 为 : 
(cond (<pi> <el>) 
(<P> <e>) 


(<pn> <e>) ) 
这 里 首先 包含 了 一 个 符号 cond， 在 它 之 后 跟着 一 些 称 为 子 句 的 用 括号 括 起 的 表达 式 对 偶 
(<p> <e> )。 在 每 个 对 偶 中 的 第 一 个 表达 式 是 一 个 谓词 ， 也 就 是 说 ， 这 是 一 个 表达 式 ， 它 的 
值 将 被 解释 为 真 或 者 假 "。 

条 件 表达 式 的 求 值 方式 如 下 ; 首先 求 值 谓词 <p;> ， 如 果 它 的 值 是 false ， 那 么 就 去 求 值 
<ps> ， 如 果 <p2> 的 值 是 false 就 去 求 值 <p3>。 这 一 过 程 将 继续 做 下 去 ， 直 到 发 现 了 其 个 谓词 
的 值 为 真 为 止 。 此 时 解释 器 就 返回 相应 子 句 中 的 序列 表达 式 <e> 的 值 ， 以 这 个 值 作 为 整个 条 件 
表达 式 的 值 。 如 果 无 法 找到 值 为 真 的 <p> ，cond 的 值 就 没有 定义 。 


16 第 3 童 将 引进 流 处 理 的 概念 ， 这 是 一 种 采用 了 正则 序 的 受 限 形式 去 处 理 明显 的 “无 限 ” 数 据 结构 的 方式 。 在 
4.2 节 将 修改 Scheme 解 释 器 ， 做 出 Scheme 的 一 种 采用 正则 序 求 值 的 变形 。 

7 “解释 为 真 或 者 假 ”的 意思 如 下 : 在 Scheme 里 存在 这 两 个 特殊 的 值 ， 它 们 分 别 用 常量 从 和 杂 表 示 。 当 解释 器 
检查 一 个 谓词 的 值 时 ， 它 将 术 解 释 为 假 ， 而 将 所 有 其 他 的 值 都 作为 真 〔 这样， 提供 旬 在 逻辑 上 就 是 不 必要 的 ， 
只 是 为 了 方便 )。 在 本 书 中 将 使 用 true 和 false ， 令 它们 分 别 关 联 于 机 和 。 
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N TFAA TEE aA AB EE LA BL BS FE, 也 指 那 种 能 求 出 真 或 者 假 的 值 的 表达 式 。 求 
绝对 值 的 过 程 abs 使 用 了 基本 谓词 > 、< 和 =”“， 这 几 个 谓词 都 以 两 个 数 为 参数 ， 分 别 检查 第 
一 个 数 是 否 大 于 、 小 于 或 者 等 于 第 二 个 数 ， 并 据 此 分 别 返回 真 或 者 假 。 

写 绝对 值 函 数 的 另 一 种 方式 是 

(define (abs x) 

(cond ((< x 0) (- x)) 
(else x))) 
用 自然 语言 来 说 ， 就 是 “如 果 x 小 于 0 就 返回 一 x， 否 则 就 返回 x”。else 是 一 个 特殊 符号 ， 可 
以 用 在 cond 的 最 后 一 个 子 句 中 <p> 的 位 置 ,这样 做 时 , 如 果 该 cond 前 面 的 所 有 子 句 都 被 跳 过 ， 
它 就 会 返回 最 后 子 句 中 <e> 的 值 。 事 实 上 ， 所 有 永远 都 求 出 真 值 的 表达 式 都 可 以 用 在 这 个 <p> 
的 位 置 上 。 
下 面 是 又 一 种 写 绝对 值 函数 的 方式 
{define (abs x) 
(if (< x 0) 
(- x) 
x)) 
这 里 采用 的 是 特殊 形式 if ， 它 是 条 件 表 达 式 的 一 种 受 限 形式 ， 适 用 于 分 情况 分 析 中 只 有 两 个 
情况 的 需要 。ifE 表 达 式 的 一 般 形 式 是 : 

(if <predicate> <consequent> <alternative>) 

在 求 值 一 个 if 表 达 式 时 ， 解 释 器 从 求 值 其 <predicate> 部 分 开始 ， 如 果 <predicate> 得 到 真 值 ， 
解释 器 就 去 求 值 <consequent> 并 返回 其 值 ， 否 则 它 就 去 求 值 <alternative> 并 返回 其 值 ”。 

除了 一 批 基本 谓词 如 <、= 和 > 之 外 ， 还 有 一 些 逻辑 复合 运算 符 ， 利 用 它们 可 以 构造 出 各 
种 复合 谓词 。 最 常用 的 三 个 复合 运算 符 是 : 

* (and <e> 。。。 <e,>) 

解释 器 将 从 左 到 右 一 个 个 地 求 值 <e> ， 如 果 某 个 <e> 求 值得 到 假 ， 这 一 and 表 达 式 的 值 就 
是 假 ， 后 面 的 那些 <e> 也 不 再 求 值 了 。 如 果 前 面 所 有 的 <e> 都 求 出 真 值 ， 这 一 and 表 达 式 的 值 
就 是 最 后 那个 <e> 的 值 。 

e (Or <e> ses <€,>) 

解释 器 将 从 左 到 右 一 个 个 地 求 值 <e> ， 如 果 某 个 <e> 求 值得 到 真 ，or 表 达 式 就 以 这 个 表达 
式 的 值 作为 值 ， 后 面 的 那些 <e> 也 不 再 求 值 了 。 如 果 所 有 的 <e> 都 求 出 假 值 ， 这 一 or 表达 式 的 
值 就 是 假 。 

* (not <e>) 

如 果 <e> 求 出 的 值 是 假 , not 表达 式 的 值 就 是 真 ， 否 则 其 值 为 假 。 

注意 ,and 和 or 都 是 特殊 形式 而 不 是 普通 的 过 程 ， 因 为 它们 的 子 表达 式 不 一 定 都 求 值 。 
not 则 是 一 个 普通 的 过 程 。 

作为 使 用 这 些 逻 辑 复 合 运算 符 的 例子 ， 数 x 的 值 位 于 区 间 5 < x< 10 之 中 的 条 件 可 以 写 为 : 


8 abs DAR 负 号 运算 符 “ 一 ”"， 这 个 运算 符 作用 于 一 个 对 象 时 (例如 写 (一 x))， 表 示 求 出 其 负 值 。 

3 在 if 和 cond 之 闻 的 另 一 个 小 差异 是 每 个 cond 子 名 的 <e> 部 分 可 以 是 一 个 表达 式 的 序列 ， 如 果 对 应 的 <p> 确 定 
为 真 ，<e> 中 的 表达 式 就 会 顺序 地 求 值 ， 并 将 其 中 最 后 一 个 表达 式 的 值 作为 整个 cond 的 值 返 回 。 而 在 if 表达 
式 里 ，<consequent> 和 <alternative> 都 只 能 是 单个 表达 式 。 
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(and (> x 5) (< x 10)) 


作为 男 一 个 例子 ， 下 面 定 义 了 一 个 谓词 ， 它 检测 某 个 数 是 否 大 于 或 者 等 于 另 一 个 数 : 
(define (>= x y) 
(or (> x y) (= x y))) 


或 者 也 可 以 定义 为 : 
(define (>= x y) 
(not (< x y))) 


练习 1.1 下 面 是 一 系列 表达 式 ， 对 于 每 个 表达 式 ， 解 释 器 将 输出 什么 结果 ?假定 这 一 系 
列表 达 式 是 按照 给 出 的 顺序 逐个 求 值 的 。 

10 

(+ 5 3 4) 

(~ 9 1) 

(/ 6 2) 

(+ (* 2 4) (- 4 6)) 

(define a 3) 

(define b (+ a 1)) 

(+ a b (* a b)) 

(= a b) 


(if (and (> b a) (< b (* a b))) 
b 
a) 


(cond ((= a 4) 6) 
((= b 4) (+ 6 7 a)) 
(else 25)) 


(+ 2 (if (> ba) b a)) 


(* (cond ((> a b) a) 
((< a b) b} 
(else -1)) 

(+ a 1)) 


练习 1.2 请 将 下 面 表达 式 变 换 为 前 级 形式 : 
4 
s+4+(2-(3-(6+)] 
3(6-2)(2-7) 
”练习 1.3 请 定义 一 个 过 程 ， 它 以 三 个 数 为 参数 ， 返 回 其 中 较 大 的 两 个 数 之 和 。 
练习 1.4 “请 仔细 考察 上 面 给 出 的 允许 运算 符 为 复合 表达 式 的 组 合式 的 求 值 模型 ， 根 据 对 这 
一 模型 的 认识 描述 下 面 过 程 的 行为 : 


(define (a-plus-abs-b a b) 
((if (> b 0) + -) a b)) 


练习 1.5 Ben Bitdiddle 发 明了 一 种 检测 方法 ， 能 够 确定 解释 器 究竟 采用 哪 种 序 求 值 ， 是 
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采用 应 用 序 ， 还 是 采用 正则 序 。 他 定义 了 下 面 两 个 过 程 ; 
(define (p) (P)) 
(define (test x y) 
(if (= x 0) 
0 
y)) 
而 后 他 求 值 下 面 的 表达 式 : 


(test 0 (p)) 


如 果 某 个 解释 器 采用 的 是 应 用 序 求 值 ,Bena 会 看 到 什么 样 的 情况 ? 如 果 解 释 器 采用 正则 序 求 值 ， 
他 又 会 看 到 什么 情况 ? 请 对 你 的 回答 做 出 解释 。( 无 论 采 用 正则 序 或 者 应 用 序 ， 假 定 特殊 形式 
if 的 求 值 规 则 总 是 一 样 的 。 其 中 的 谓词 部 分 先行 求 值 ， 根 据 其 结果 确定 随后 求 值 的 子 表达 式 
部 分 。) 


1.1.7 实例， 采用 牛顿 法 求 平方 根 


上 面 介绍 的 过 程 都 很 像 常规 的 数学 国 数 ， 它 们 描述 的 是 如 何 根据 一 个 或 者 儿 个 参数 去 确 
定 一 个 值 。 然 而 ， 在 数学 的 函数 和 计算 机 的 过 程 之 间 有 一 个 重要 差异 ， 那 就 是 ， 这 一 过 程 还 
必须 是 有 效 可 行 的 。 

作为 目前 情况 下 的 一 个 实例 ， 现 在 我 们 来 考虑 求 平方 根 的 问题 。 我 们 可 以 将 平方 根 国 数 
定义 为 : 

VX = 那样 的 y， 使 得 y 之 0 而 且 y2 =x 
这 就 描述 出 了 一 个 完全 正统 的 数学 函数 ， 我 们 可 以 利用 它 去 判断 某 个 数 是 否 为 另 一 个 数 的 平 
方 根 ， 或 根据 上 面 叙 述 ， 推 导出 一 些 有 关 平 方 根 的 一 般 性 事实 。 然 而 ， 在 另 一 方面 ， 这 一 定 
义 并 没有 描述 一 个 计算 过 程 ， 因 为 它 确实 没有 告诉 我 们 ， 在 给 定 了 一 个 数 之 后 ， 如 何 实 际 地 
找到 这 个 数 的 平方 根 。 即 使 将 这 个 定义 用 类 似 Lisp 的 形式 重 写 一遍 也 完全 无 济 于 事 : 

(define (sgrt x) 

(the y (and (>= y 0) 
(= (square y) x)))) 
这 只 不 过 是 重新 提出 了 原来 的 问题 。 

函数 与 过 程 之 间 的 了 矛盾， 不 过 是 在 描述 一 件 事 情 的 特征 ， 与 描述 如 何 去 做 这 件 事情 之 间 
的 普遍 性 差异 的 一 个 具体 反映 。 换 一 种 说 法 ， 人 们 有 时 也 将 它 说 成 是 说 明 性 的 知识 与 行动 性 
的 知识 之 间 的 差异 。 在 数学 里 ， 人 们 通常 关心 的 是 说 明 性 的 描述 (是 什么 ),， 而 在 计算 机 科学 
里 ， 人 们 则 通常 关心 行动 性 的 描述 (怎么 做 ) ”。 

计算 机 如 何 算 出 平方 根 昵 ? 最 常用 的 就 是 牛顿 的 逐步 副 进 方法 。 这 一 方法 告诉 我 们 ， 如 


2 说 明 性 描述 和 行动 性 描述 有 着 内 在 的 联系 ， 就 像 数学 和 计算 机 科学 有 着 内 在 联系 一 样 。 举 个 例子 ， 说 一 个 程 
序 产 生 的 结果 “正确 ”"”， 就 是 给 出 了 一 个 有 关 该 程序 性 质 的 说 明 性 语句 。 存 在 着 大 量 的 研究 工作 ， 其 目标 就 是 
创建 起 一 些 技术 ， 设 法 证 明 一 个 程序 是 正确 的 。 在 这 一 领域 中 有 许 多 技术 性 困难 ， 究 其 根源 ， 都 出 自 需 要 在 
行动 性 语句 (程序 是 由 它们 构造 起 来 的 ) 和 说 明 性 语句 (它们 可 以 用 于 推导 出 某 些 结果 ) 之 间 转 来 转 去 。 在 
与 此 相关 的 研究 分 支 里 ， 有 一 个 当前 在 程序 设计 语言 设计 领域 中 很 重要 的 问题 ， 那 就 是 所 谓 的 其 高 级 语言 ， 
在 这 种 语言 里 编程 就 是 写 说 明 性 的 语句 。 这 里 的 想法 是 将 解释 器 做 得 足够 复杂 ， 程 序 员 描 述 了 需要 “做 什么 ” 
的 知识 之 后 ， 这 种 解释 器 就 能 自动 产生 出 “怎样 做 ”的 知识 。 一 般 而 言 这 是 不 可 能 做 到 的 ， 但 在 这 一 领域 已 
经 取得 了 巨大 进步 。 第 4 章 我 们 将 再 来 考虑 这 一 想法 。 


果 对 x 的 平方 根 的 值 有 了 一 个 猜测 y， 那 么 就 可 以 通过 执行 一 个 简单 操作 去 得 到 一 个 更 好 的 猜 
测 ， 只 需要 求 出 y 和 Xx/y 的 平均 值 ( 它 更 接近 实际 的 平方 根 值 ) ”。 例 如 ， 可 以 用 这 种 方式 去 计 
算 2 的 平方 根 ， 假 定 初始 值 是 1 : - 
猜测 G] 平均 值 
2 2+) 


1 —=2 —-l. 
1 2 5 


15 2 21.3333 (1.3333 + 1.5) 
1.5 2 


= 1.4167 


(1.4167 + 1.4118) 


1.4167 — 2 _ 214118 = 1.4142 


1.4167 
1.4142 ... we 
继续 这 一 计算 过 程 ， 我 们 就 能 得 到 对 2 的 平方 根 的 越 来 越 好 的 近似 值 。 
现在 ， 让 我 们 设法 用 过 程 的 语言 来 描述 这 一 计算 过 程 。 开 始 时 ， 我 们 有 了 被 开 方 数 的 值 
(现在 需要 做 的 就 是 算出 它 的 平方 根 ) 和 一 个 猜测 值 。 如 果 猜 测 值 已 经 足够 好 了 ， 有 关 工 作 也 
就 完成 了 。 如 若 不 然 ， 那 么 就 需要 重复 上 述 计算 过 程 去 改进 猜测 值 。 我 们 可 以 将 这 一 基本 策 
略 写成 下 面 的 过 程 : 
(define (sqrt-iter guess x) 
(if (good-enough? guess x) 
guess 
(sqrt-iter (improve guess x) 
x))) 


改进 猜测 的 方式 就 是 求 出 它 与 被 开 方 数 除 以 上 一 个 猜测 的 平均 值 : 
(define (improve guess x) 
(average guess (/ x guess.))) 


其 中 
(define (average x y) 
(/ (+ x y) 2)) 


我 们 还 必须 说 明 什么 叫做 “足够 好 "。 下 面 的 做 法 只 是 为 了 说 明 问 题 ， 它 确实 不 是 一 个 很 好 的 
检测 方法 (参见 练习 1.7) 。 这 里 的 想法 是 ， 不 断 改进 答案 直至 它 足 够 接近 平方 根 ， 使 得 其 平 
方 与 被 开 方 数 之 差 小 于 某 个 事先 确定 的 误差 值 (这 里 用 的 是 0.001) 7, 


(define (good-enough? guess x) 
(< (abs (- (square guess) x)) 0.001)) 


最 后 还 需要 一 种 方式 来 启动 整个 工作 。 例 如 ， 我 们 可 以 总 用 1 作为 对 任何 数 的 初始 猜测 值 ”: 


21 这 一 平方 根 算法 实际 上 是 牛顿 法 的 一 个 特例 ， 牛 顿 革 是 一 种 寻找 方程 的 根 的 通用 技术 。 平 方 根 算法 本 身 是 由 
亚历山大 的 Heron 在 公元 一 世纪 提出 的 。 我 们 将 在 1.3.4 节 看 到 如 何 用 Lisp 描 述 一 般 性 的 牛顿 法 。 

2 我 们 将 在 谓词 名 字 的 最 后 用 一 个 问号 ， 以 玫 人 注意 到 它们 是 谓词 。 这 不 过 是 一 种 风格 上 的 约定 。 对 于 解释 器 
而 言 ， 问 号 也 就 是 一 个 普通 的 字符 。 

2 请 注意 ， 这 里 所 用 的 初始 猜测 是 1.0 而 不 是 1 。 在 许 多 Lisp 实 现 中 ， 这 样 做 并 不 会 造成 任何 不 同 。MIT Scheme 
区 分 了 精确 的 整数 和 十 进 制 数值 ， 两 个 整数 的 商 是 一 个 有 理 数 而 不 是 十 进 制 数值 。 例 如 ， 用 6 去 除 10 将 得 到 
5/3 ， 而 用 6.0 去 除 10.0 得 到 的 是 1.6666666666666667 (我 们 将 在 2.1.1 节 学 习 怎样 实现 有 理 数 的 算术 运算 )。 如 
果 我 们 用 1 作为 平方 根 程序 的 初始 猜测 ，x 就 会 是 一 个 精确 的 整数 ， 随 后 在 平方 根 过 程 里 算出 的 所 有 值 都 将 是 
有 理 数 而 不 是 十 进 制 数值 。 对 有 理 数 和 十 进 制 数值 的 混合 运算 总 是 产生 十 进 制 数值 。 所 以 ， 开 始 时 采用 初始 
猜测 1.0， 将 迫使 随后 的 所 有 结果 都 得 到 十 进 制 的 数值 。 
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(define (sqrt x) 
(sqrt-iter 1.0 x)) 
如 果 把 这 些 定义 都 送 给 解释 器 ， 我 们 就 可 以 使 用 sqrt 了 ， 就 像 可 以 使 用 其 他 过 程 一 样 : 
(sqrt 9) 
3.00009155413138 


(sqrt (+ 100 37)) 
11.704699917758145 


(sqrt (+ (sqrt 2) (sqrt 3))) 
1.7739279023207892 


(square (sqrt 1000)) 

1000.000369924366 

这 个 sgrt 程 序 也 说 明 ， 在 用 于 写 纯粹 的 数值 计算 程序 时 ， 至 今 已 介绍 的 简单 程序 设计 语 
言 已 经 足以 写 出 可 以 在 其 他 语言 (例如 C 或 者 Pascal) 中 写 出 的 任何 东西 了 。 这 看 起 来 很 让 人 
吃惊 ， 因 为 这 一 语言 中 其 至 还 没有 包括 任何 迭代 结构 (循环 )， 它 们 用 于 指挥 计算 机 去 一 遍 遍 
地 做 某 些 事情 。 而 在 另 一 方面 ，sgzrt-iter 展 示 了 如 何不 用 特殊 的 选 代 结构 来 实现 选 代 ， 其 
中 只 需要 使 用 常规 的 过 程 调 用 能 力 *。 

练习 1.6 Alyssa P. Hacker 看 不 出 为 什么 需要 将 让 提供 为 一 种 特殊 形式 ， 她 问 :“ 为 什么 
我 不 能 直接 通过 cond 将 它 定义 为 一 个 常规 过 程 呢 ? ”Alyssa 的 朋友 Eva Lu Ator 断 言 确实 可 以 
这 样 做 ， 并 定义 了 if 的 一 个 新 版 本 : 


(define (new-if predicate then-clause else-clause) 
(cond {predicate then-clause) 
(else else-clause))) 


Eva 给 Alyssa 演 示 她 的 程序 : 
(new-if (= 2 3) 0 5) 
5 
(new-if (= 11) 0 5) 
0 . 
她 很 高 兴 地 用 自己 的 new-if 重 写 了 求 平方 根 的 程序 : 
(define (sqrt-iter guess x) 
(new-if (good-enough? guess x) 
guess 
(sqrt-iter (improve guess x) 
. | x) ) ) 
当 Alyssa 试 着 用 这 个 过 程 去 计算 平方 根 时 会 发 生 什么 事情 呢 ? 请 给 出 解释 。 
练习 1.7 ”对 于 确定 很 小 的 数 的 平方 根 而 言 ， 在 计算 平方 根 中 使 用 的 检 测 good-enough? 
是 很 不 好 的 。 还 有 ， 在 现实 的 计算 机 里 ， 算 术 运 算 总 是 以 一 定 的 有 限 精 度 进行 的 。 这 也 会 使 
我 们 的 检测 不 适合 非常 大 的 数 的 计算 。 请 解释 上 述 论断 ， 用 例子 说 明 对 很 小 和 很 大 的 数 ， 这 
种 检测 都 可 能 失败 。 实 现 good-enough? 的 另 一 种 策略 是 监视 猜测 值 在 从 一 次 迭代 到 下 一 次 
的 变化 情况 ， 当 改变 值 相 对 于 猜测 值 的 比率 很 小 时 就 结束 。 请 设计 一 个 采用 这 种 终止 测试 方 
式 的 平方 根 过 程 。 对 于 很 大 和 很 小 的 数 ， 这 一 方式 都 能 工作 吗 ? 


n 关心 通过 过 程 调用 来 实现 迭代 时 的 效率 问题 的 读者 ， 可 以 去 看 1.2.1 节 里 有 关 “ 尾 递归 ”的 说 明 。 
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练习 1.8 求 立 方 根 的 牛顿 法 基于 如 下 事实 ， 如果 y 是 x 的 立方 根 的 一 个 近似 值 ， 那 么 下 式 
将 给 出 一 个 更 好 的 近似 值 : 
XxX/y +2y 
3 
请 利用 这 一 公式 实现 一 个 类 似 平方 根 过 程 的 求 立方 根 的 过 程 。( 在 1.3.4 节 里 ,我 们 将 看 到 如 何 
实现 一 般 性 的 牛顿 法 ， 作 为 这 些 求 平方 根 和 立方 根 过 程 的 抽象 。) 


1.1.8 过 程 作 为 黑箱 抽象 


sqrt 是 我 们 用 一 组 手工 定义 的 过 程 来 实现 一 个 计算 过 程 的 第 一 个 例子 。 请 注意 ， 在 这 里 
sgIt-iter 的 定义 是 递归 的 ， 也 就 是 说 ， 这 一 过 程 的 定义 基于 它 自 身 。 能 够 基于 一 个 过 程 自 
身 来 定义 它 的 想法 很 可 能 会 邻 人 感到 不 安 ， 人 们 可 能 觉得 它 不 够 清晰 ， 这 种 “循环 ”定义 怎 
么 能 有 意义 呢 ? 是 不 是 完全 刻画 了 一 个 能 够 出 计算 机 实现 的 计算 过 程 呢 ? 在 1.2 节 里 ， 我 们 将 
更 细致 地 讨论 这 一 问题 。 现 在 首先 来 看 看 sqrt 实例 所 显示 出 的 其 他 一 些 要 点 。 

可 以 看 到 ， 对 于 平方 根 的 计算 问题 可 以 自然 地 分 解 为 若干 子 问题 :怎样 说 一 个 猜测 是 足 
够 好 了 ， 怎 样 去 改进 一 个 猜测 ， 等 等 。 这 些 工作 中 的 每 一 个 都 通过 一 个 独立 的 过 程 完成 ， 整 
个 sqrt 程 序 可 以 看 做 一 族 过 程 ( 如 图 1-2 所 示 ) ， 它 们 直接 反应 了 从 原 问题 到 子 问题 的 分 解 。 


sqrt 


sqrt-iter 


Z N 


good-enough improve 
square abs average 


图 1-2 sqrt 程序 的 过 程 分 解 


这 一 分 解 的 重要 性 ， 并 不 仅仅 在 于 它 将 一 个 问题 分 解 成 了 几 个 部 分 。 当 然 ， 我 们 总 可 以 
拿 来 一 个 大 程序 ， 并 将 它 分 割 成 若干 部 分 一 一 最 前 面 10 行 、 后 面 10 行 、 再 后 面 10 行 等 等 。 这 
里 最 关键 的 问题 是 ， 分 解 中 的 每 一 个 过 程 完成 了 一 件 可 以 清楚 标明 的 工作 ， 这 使 它们 可 以 被 
用 作 定 义 其 他 过 程 的 模块 。 例 如 ， 当 我 们 基于 square 定 义 过 程 900d-enough? 之 时 ， 就 是 
将 square 看 做 一 个 “黑箱 ”。 在 这 样 做 时 ， 我们 根本 无 须 关注 这 个 过 程 是 如 何 计算 出 它 的 结 
果 的 ， 只 需要 注意 它 能 计算 出 平方 值 的 事实 。 关 于 平方 是 如 何 计算 的 细节 被 隐 去 不 提 了 ， 可 
以 推迟 到 后 来 再 考虑 。 情 况 确 实 如 此 ， 如 果 只 看 900d~enough? 过 程 ， 与 其 说 square 是 一 
个 过 程 ， 不 如 说 它 是 一 个 过 程 的 抽象 ， 邑 所 谓 的 过 程 扫 象 。 在 这 一 抽象 层次 上 ， 任 何 能 计算 
出 平方 的 过 程 都 同样 可 以 用 。 

这 样 ， 如 果 我 们 只 考虑 返回 值 ， 那 么 下 面 这 两 个 求 平方 的 过 程 就 是 不 可 区 分 的 。 它 们 中 


的 每 一 个 都 取 一 个 数值 参数 ， 产 生出 这 个 数 的 平方 作为 值 ”。 

(define (square x) (* x x)) 

(define (square x) 

(exp (double (log x)))) 

(define (double x) (+ x x)) 

由 此 可 见 ， 一 个 过 程 定 义 应 该 能 隐藏 起 一 些 细节 。 这 将 使 过 程 的 使 用 者 可 能 不 必 自 己 去 
写 这 些 过 程 ， 而 是 从 其 他 程序 员 那 里 作为 一 个 黑箱 而 接受 了 它 。 用 户 在 使 用 一 个 过 程 时 ， 应 
该 不 需要 去 和 弄 清 它 是 如 何 实现 的 。 

局 部 名 

过 程 用 户 不 必 去 关心 的 实现 细节 之 一 ， 就 是 在 有 关 的 过 程 里 面 形式 参数 的 名 字 ， 这 是 由 
实现 者 所 选用 的 。 也 就 是 说 ， 下 面 两 个 过 程 定义 应 该 是 无 法 区 分 的 : 

{define (square x) (* x x)) 

(define (square y) (* y y)) 

这 一 原则 〈 过 程 的 意义 应 该 不 依赖 于 其 作者 为 形式 参数 所 选用 的 名 字 ) 从 表面 看 起 来 很 明显 ， 
但 其 影响 却 非常 深远 。 最 直接 的 影响 是 ， 过 程 的 形式 参数 名 必须 局 部 于 有 关 的 过 程 体 。 例 如 ， 
我 们 在 前 面 平方 根 程序 中 的 good-enough? 定 义 里 使 用 了 square: 

(define (good-enough? guess x) 

(< (abs (- (square guess) x)) 0.001)) 
good-enough? 作 者 的 意图 就 是 要 去 确定 ， 函 数 的 第 一 个 参数 的 平方 是 否 位 于 第 二 个 参数 附 
近 一 定 的 误差 范围 内 。 可 以 看 到 ，good-enough3? 的 作者 用 名 字 guess 表 示 其 第 一 个 参数 ， 
用 x 表示 第 二 个 参数 ， 而 送 给 square 的 实际 参数 就 是 guess。 如 果 square 的 作者 也 用 x (上 
面 确实 如 此 ) 表示 参数 ， 那 么 就 可 以 明显 看 出 ，900d-enough? 里 的 x 必须 与 Square 里 的 那 
个 x 不 同 。 在 过 程 square 运 行 时 ， 绝 不 应 该 影响 good-enough? 里 所 用 的 那个 x 的 值 ， 因 为 
在 square 完成 计算 之 后 ，900d-enough? 里 可 能 还 需要 用 x 的 值 。 

如 果 参 数 不 是 它们 所 在 的 过 程 体 里 局 部 的 东西 ， 那 么 gguare 里 的 x 就 会 与 good- 
enough? 里 的 参数 x 相 混 淆 。 如 果 这 样 ，good-enough? 的 行为 方式 就 将 依赖 于 我 们 所 用 的 
square 的 不 同 版 本 。 这 样 ，square 也 就 不 是 我 们 所 希望 的 黑箱 了 。 

过 程 的 形式 参数 在 过 程 体 里 扮演 着 一 种 非常 特殊 的 角色 ， 在 这 里 ， 形 式 参 数 的 具体 名 字 
是 什么 ， 其 实 完全 没有 关系 。 这 样 的 名 字 称 为 约束 变量 ， 因 此 我 们 说 ,一 个 过 程 的 定义 约束 
了 它 的 所 有 形式 参数 。 如 果 在 一 个 完整 的 过 程 定义 里 将 某 个 约束 变量 统一 换 名 ， 这 一 过 程 定 
义 的 意义 将 不 会 有 任何 改变 5。 如 果 一 个 变量 不 是 被 约束 的 ， 我 们 就 称 它 为 自由 的 。 一 个 名 字 
的 定义 被 约束 于 的 那 一 集 表 达 式 称 为 这 个 名 字 的 作用 域 。 在 一 个 过 程 定义 里 ， 被 声明 为 这 个 
过 程 的 形式 参数 的 那些 约束 变量 ， 就 以 这 个 过 程 的 体 作为 它们 的 作用 域 。 

在 上 面 9ood-enough? 的 定义 中 ，guess 和 x 是 约束 变量 , 而 <、-、abs 和 square 则 
是 自由 的 。 要 想 保证 good-enough? 的 意义 与 我 们 对 guess 和 x 的 名 字 选 择 无 关 ， 只 要 求 它 


2 至 于 这 两 个 过 程 中 哪 一 个 实现 更 有 效 ， 这 一 问题 并 不 很 明确 ， 依 赖 于 所 使 用 的 硬件 。 确 实 存在 这 样 的 机 器 ， 
对 于 它们 ， 其 中 那个 “最 明显 的 ”实现 效率 更 低 一 些 。 例 如 ， 考 虑 一 种 机 器 ， 它 有 一 些 范围 很 广 的 对 数 和 反 
对 数 表 ， 以 某 种 非常 有 效 的 方式 存放 着 。 

2 统一 换 名 的 概念 实际 上 也 是 很 微妙 的 ， 很 难 形式 地 定义 好 。 一 些 著名 的 逻辑 学 家 也 在 这 里 犯 过 错误 。 


们 的 名 字 与 <、~、abs 和 square 都 不 同 就 可 以 了 (如 果 将 guess 重 新 命名 为 abs ， 我 们 就 会 
因为 捕获 了 变量 名 abs 而 引进 了 一 个 错误 ， 因 为 这 样 做 就 把 一 个 原本 自由 的 名 字 变 成 约束 的 
了 )。good-enough? 的 意义 当然 与 其 中 的 自由 变量 有 关 ， 显 然 它 的 意义 依赖 于 (在 这 一 定 
义 之 外 的 ) 一 些 事实 : 要 求 符 号 abs 是 一 个 过 程 的 名 字 ， 该 过 程 能 求 出 一 个 数 的 绝对 值 。 如 
RRI Hgood-enough? 的 定义 里 的 abs 换 成 cos ， 它 计算 出 的 就 会 是 另 一 个 不 同 国 数 了 。 


内 部 定义 和 块 结构 
至 今 我 们 才 仅 仅 分 离 出 了 一 种 可 用 的 名 字 : 过 程 的 形式 参数 是 相应 过 程 体 里 的 局 部 名 字 。 
平方 根 程序 还 展现 出 了 另 一 种 情况 ， 我 们 也 会 希望 能 控制 其 中 的 名 字 使 用 。 现 在 这 个 程序 由 
几 个 相互 分 离 的 过 程 组 成 : 
(define (sqrt x) 
(sqrt-iter 1.0 x)) 
(define (sqrt-iter guess x) 
(if (good-enough? guess x) 
guess 
(sqrt-iter (improve guess x) x))) 
(define (good-enough? guess x) 
(< (abs (- (square guess) x)) 0.001)) 
(define (improve guess x) 
(average guess (/ x guess))) 
问题 是 ， 在 这 个 程序 里 只 有 一 个 过 程 对 用 户 是 重要 的 ， 那 就 是 ， 这 里 所 定义 的 这 个 sqzt 确 实 
是 sqrt 。 其 他 的 过 程 (sqrt-iter, good-enough? 和 improve) 则 只 会 干扰 他 们 的 思维 ， 
因为 他 们 再 也 不 能 定义 另 一 个 称 为 good-enough? 的 过 程 ， 作 为 需要 与 平方 根 程序 一 起 使 用 
的 其 他 程序 的 一 部 分 了 ， 因 为 现在 sqrt 需要 它 。 在 许多 程序 员 一 起 构造 大 系统 的 时 候 ， 这 一 
问题 将 会 变 得 非常 严重 。 举 例 来 说 ， 在 构造 一 个 大 型 的 数值 过 程 库 时 ， 许 多 数值 函数 都 需要 
计算 出 一 系列 的 近似 值 ， 因 此 我 们 就 可 能 希望 有 一 些 名 字 为 good-enough? 和 improve 的 过 
” 程 作为 其 中 的 辅助 过 程 。 由 于 这 些 情 况 ， 我 们 也 希望 将 这 种 子 过 程 局 部 化 ， 将 它们 隐藏 到 
sqzrt 里 面 ， 以 使 sqrt 可 以 与 其 他 采用 逐步 逼 进 的 过 程 共存 ， 让 它们 中 的 每 一 个 都 有 自己 的 
good-enough? 过 程 。 为 了 使 这 一 方式 成 为 可 能 ， 我 们 要 允许 一 个 过 程 里 带 有 一 些 内 部 定义 ， 
使 它们 是 局 部 于 这 一 过 程 的 。 例 如 ， 在 解决 平方 根 问题 时 ， 我 们 可 以 写 : 
(define (sqrt x) 
(define (good-enough? guess x) 
(< (abs (~ (square guess) x)) 0.001)) 
(define (improve guess x) 
(average guess (/ x guess))) 
(define (sqrt-iter guess x) 
‘(if (good-enough? guess x) 
guess 
(sqrt-iter (improve guess x) x))) 
(sqrt-iter 1.0 x)) 
这 种 嵌 套 的 定义 称 为 块 结 构 ， 它 是 最 简单 的 名 字 包 装 问题 的 一 种 正确 解决 方式 。 实 际 上 ， 
在 这 里 还 潜藏 着 一 个 很 好 的 想法 。 除 了 可 以 将 所 用 的 辅助 过 程 定义 放 到 内 部 ,我 们 还 可 能 简 
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化 它们 。 因 为 x 在 sqrt 的 定义 中 是 受 约束 的 ,过程 good-enough? 、improve 和 sqrt- 
iter 也 都 定义 在 sqrt 里 面 ， 也 就 是 说 ， 都 在 x 的 定义 域 里 。 这 样 ， 显 式 地 将 x 在 这 些 过 程 之 
间 传 来 传 去 也 就 没有 必要 了 。 我 们 可 以 让 x 作为 内 部 定义 中 的 自由 变量 ， 如 下 所 示 。 这 样 ， 在 
外 转 的 sqrt 被 调用 时 ，x 由 实际 参数 得 到 自己 的 值 。 这 种 方式 称 为 词法 作用 域 "。 
(define (sqrt x) 
(define (good-enough? guess) 
(< (abs (- (square guess) x)) 0.001)) 
(define (improve guess) 
(average guess (/ x guess))) 
(define (sqrt-iter guess) 
(if (good-enough? guess) 
guess 
(sqrt-iter (improve guess)))) 
(sqrt-iter 1.0)) 
下 面 将 广泛 使 用 这 种 块 结构 ， 以 帮助 我 们 将 大 程序 分 解 成 一 些 容易 把 握 的 片段 ”。 块 结构 
的 思想 来 自 程序 设计 语言 Algol 60 ， 这 种 结构 出 现在 各 种 最 新 的 程序 设计 语言 里 ， 是 帮助 我 们 
组 织 大 程序 的 结构 的 一 种 重要 工具 。 


1.2 过 程 与 它们 所 产生 的 计算 


我 们 现在 已 经 考虑 了 程序 设计 中 的 一 些 要 素 : 使 用 过 许多 基本 的 算术 操作 ， 对 这 种 操作 
进行 组 合 ， 通 过 定义 各 种 复合 过 程 ， 对 复合 操作 进行 抽象 。 但 是 ， 即 使 是 知道 了 这 些 ， 我 们 
还 不 能 说 自己 已 经 理解 了 如 何 去 编 程序 。 我 们 现在 的 情况 就 像 是 在 学 下 象棋 的 过 程 中 的 一 个 
阶段 ， 此 时 已 经 知道 了 移动 棋子 的 各 种 规则 ， 但 却 还 不 知道 典型 的 开局 、 战 术 和 策略 。 就 像 
初学 象棋 的 人 们 那样 ， 我 们 还 不 知道 编程 领域 中 各 种 有 用 的 常见 模式 ,缺少 有 关 各 种 棋 步 的 
价值 (值得 定义 哪些 过 程 ) 的 知识 ， 缺 少 对 所 走 棋 步 的 各 种 后 果 ( 执 行 一 个 过 程 的 效果 ) 做 
出 预期 的 经 验 。 | 

能 够 看 清楚 所 考虑 的 动作 的 后 果 的 能 力 ， 对 于 成 为 程序 设计 专家 是 至 关 重要 的 ， 就 像 这 
种 能 力 在 所 有 综合 性 的 创造 性 的 活动 中 的 作用 一 样 。 要 成 为 一 个 专业 摄影 家 ， 必 须 学 习 如 何 
去 考察 各 种 景象 ， 知 道 在 各 种 可 能 的 暴光 和 显影 选择 条 件 下 ， 景 象 中 各 个 区 域 在 影像 中 的 明 
暗 程 度 。 只 有 在 此 之 后 ， 人 才能 去 做 反 向 推理 ， 对 取得 所 需 效果 应 该 做 的 取景 、 亮 度 、 上 曝光 
和 显影 等 等 做 出 规划 。 在 程序 设计 里 也 一 样 ， 在 这 里 ， 我 们 需要 对 计算 过 程 中 各 种 动作 的 进 
行情 况 敌 出 规划 ， 用 一 个 程序 去 控制 这 一 过 程 的 进展 。 要 想 成 为 专家 ， 我 们 就 需要 学 会 去 看 
清 各 种 不 同 种 类 的 过 程 会 产生 什么 样 的 计算 过 程 。 只 有 在 掌握 了 这 种 技能 之 后 ， 我 们 才能 学 
会 如 何 去 构 造 出 可 靠 的 程序 ， 使 之 能 够 表现 出 所 需要 的 行为 。 

一 个 过 程 也 就 是 一 种 模式 ， 它 描述 了 一 个 计算 过 程 的 局 部 演化 方式 ， 描 述 了 这 一 计算 过 
程 中 的 每 个 步骤 是 怎样 基于 前 面 的 步 受 建立 起 来 的 。 在 有 了 一 个 刻画 计算 过 程 的 过 程 描述 之 


2 词法 作用 域 要 求 过 程 中 的 自由 变量 实际 引用 外 围 过 程 定义 中 所 出 现 的 约束 ， 也 就 是 说 ， 应 该 在 定义 本 过 程 的 
环境 中 去 寻找 它们 。 我 们 将 在 第 3 章 看 到 这 种 规定 的 细节 工作 情况 ， 在 那里 我 们 将 要 研究 环境 的 概念 和 解释 器 
的 一 些 行为 细节 。 

2 储 套 的 定义 必须 出 现在 过 程 体 之 前 。 如 果 我 们 运行 一 个 程序 ,但 是 其 中 的 定义 与 使 用 混杂 在 一 起 ， 管 理 程序 
将 不 负 任何 责任 。 
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后 ,我 们 当然 希望 能 做 出 一 些 有 关 这 一 计算 过 程 的 整体 或 全 局 行为 的 论断 。 一 般 来 说 这 是 非 
常 困难 的 ， 但 我 们 至 少 还 是 可 以 试 着 去 描述 过 程 演化 的 一 些 典 型 模式 。 
在 这 一 节 里 ， 我 们 将 考察 由 一 些 简 单 过 程 所 产生 的 计算 过 程 的 “形状 "， 还 将 研究 这 些 计 
算 过 程 消耗 各 种 重要 计算 资源 〈 时 间 和 空间 ) 的 速率 。 这 里 将 要 考察 的 过 程 都 是 非常 简单 的 ， 
它们 所 扮演 的 角色 就 像 是 摄影 术 中 的 测试 模式 ， 是 作为 极度 简化 的 摄影 模式 ， 而 其 自身 并 不 
是 很 实际 的 例子 。 
(factorial 6) 一 一 一 


(* 6 (factorial 5)) 

(* 6 (* 5 (factorial 4))) 
5 (factorial 3)))) 
5 4 (* 3 (factorial 2))))) 
5 4 (* 3 (* 2 (factorial 1)))))) 

(* 5 (* 4 (* 3 (* 2 1))))) 
5 4 
5 4 
5 ) 
) 


一 
* 
心 


(* 3 2)))) 
6))) 


图 1-3 计算 6! 的 线性 递归 过 程 
1.2.1 线性 的 递归 和 选 代 
首先 考虑 由 下 面 表达 式 定义 的 阶乘 函数 : 


ni=n-(n—1l) -(n-2) -3-2.1 
计算 阶乘 的 方式 有 许多 种 ， 一 种 最 简单 方式 就 是 利用 下 述 认 识 : ATTE YAn, oI RST 
n 乘 以 (2 一 1) !: 

ni=n- [(n—-1) :x 2) 3 .2.1]=n:(n—1)! 
这 样 ， 我 们 就 能 通过 算出 (n -1) !， 并 将 其 结果 乘 以 nm 的 方式 计算 出 心 。 如 果 再 注意 到 1 就 是 
1， 这 些 认识 就 可 以 直接 翻译 成 一 个 过 程 了 : 

(define (factorial n) f 

(if (= n 1) 


1 
(* n (factorial (- n 1))))) 


我 们 可 以 利用 1.1.5 节 介绍 的 代 换 模型 ， 观 看 这 一 过 程 在 计算 6! 时 表现 出 的 行为 ， 如 图 1-3 所 
7B o : 
现在 让 我 们 采用 另 一 种 不 同 的 观点 来 计算 阶乘 。 我 们 可 以 将 计算 阶乘 的 规则 描述 为 : 
先 乘 起 1 和 2 ， 而 后 将 得 到 的 结果 乘 以 ]， 而 后 再 乘 以 ， 这 样 下 去 直到 达到 n 。 更 形式 地 说 ， 我 
们 要 维持 着 一 个 变动 中 的 乘积 product ， 以 及 一 个 从 1 到 “的 计数 器 counter ， 这 一 计算 过 程 可 以 
描述 为 counter 和 product 的 如 下 变化 ， 从 一 步 到 下 一 步 ， 它 们 都 按照 下 面 规则 改变 : 

product 一 counter - product 


counter — counter + 1 


可 以 看 到 ， 刀 也 就 是 计数 器 counter 超 过 "时 乘积 product 的 值 。 


Hab EHR 


我 们 又 可 以 将 这 一 描述 重 构 为 一 个 计算 阶乘 的 过 程 2 ， 
(define (factorial n) 
(fact-iter 1 1 n)) 


(define (fact-iter product counter max-count) 
(if (> counter max-count) 
product 
(fact-iter (* counter product) 
{+ counter 1) 
max-count) ) ) 


与 前 面 一 样 ， 我 们 也 可 以 应 用 替换 模型 来 查看 6! 的 计算 过 程 ， 如 图 1-4 所 示 。 


{factorial 6) 
(fact-iter 11 
(fact-iter 12 6) 
(fact-iter 2 3 6) 
(fact-iter 6 4 6) 
(fact-iter 24 5 6) 
(fact-iter 120 6 6) 
(fact-iter 720 7 6) 
720 


图 1-4 计算 6! 的 线性 选 代 过 程 


现在 对 这 两 个 计算 过 程 做 一 个 比较 。 从 一 个 角度 看 ， 它 们 并 没有 很 大 差异 : 两 者 计算 的 
都 是 同一 个 定义 域 里 的 同一 个 数学 函数 ， 都 需要 使 用 与 * 正 比 的 步骤 数目 去 计算 出 2?! 。 确 实 ， 
这 两 个 计算 过 程 甚至 采用 了 同样 的 乘 运算 序列 ， 得 到 了 同样 的 部 分 乘积 序列 。 但 在 另 一 方面 ， 
如 果 我 们 考虑 这 两 个 计算 过 程 的 “形状 "， 就 会 发 现 它们 的 进展 情况 大 不 相同 。 

考虑 第 一 个 计算 过 程 。 代 换 模 型 揭示 出 一 种 先 逐 步 展 开 而 后 收缩 的 形状 ， 如 图 1-3 中 的 箭 
头 所 示 。 在 展开 阶段 里 ， 这 一 计算 过 程 构造 起 一 个 推迟 进行 的 操作 所 形成 的 链条 在 这 里 是 
一 个 乘法 的 链条 )， 收 缩 阶段 表现 为 这 些 运算 的 实际 执行 。 这 种 类 型 的 计算 过 程 由 一 个 推迟 执 
行 的 运算 链条 刻画 ， 称 为 一 个 递归 计算 过 程 。 要 执行 这 种 计算 过 程 ， 解 释 器 就 需要 维护 好 那 
些 以 后 将 要 执行 的 操作 的 轨迹 。 在 计算 阶乘 x! 时 ， 推 迟 执行 的 乘法 链条 的 长 度 也 就 是 为 保存 
其 轨迹 需要 保存 的 信息 量 ， 这 个 长 度 随 着 " 值 而 线性 增长 〈 正 比 于 ")， 就 像 计算 中 的 步骤 数目 
一 样 。 这 样 的 计算 过 程 称 为 一 个 线性 递归 过 程 。 

与 之 相对 应 ,第 二 个 计算 过 程 里 并 没有 任何 增长 或 者 收缩 。 对 于 任何 一 个 x-， 在 计算 过 程 
中 的 每 一 步 ， 在 我 们 需要 保存 轨迹 里 ， 所 有 的 东西 就 是 变量 product 、counter 和 和 max- 


2 在 实际 程序 里 ， 我 们 可 能 会 用 上 一 节 介 绍 的 块 结构 将 Eact-iter 的 定义 隐藏 起 来 : 


(define (factorial n) 
(define (iter product counter) 
(if (> counter n} 
product 
(iter (* counter product) 
(+ counter 1)))) 


(iter 1 1)) . 
在 上 面 没有 这 样 做 ， 是 因为 希望 尽 可 能 减少 需要 同时 考虑 的 事项 。 
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其 状态 可 以 用 固定 数目 的 状态 变量 描述 的 计算 过 程 ， 而 与 此 同时 ， 又 存在 着 一 套 固定 的 规则 ， 
描述 了 计算 过 程 在 从 一 个 状态 到 下 一 状态 转换 时 ， 这 些 变量 的 更 新 方式 ， 还 有 一 个 〈 可 能 有 
的 ) 结束 检测 ， 它 描述 这 一 计算 过 程 应 该 终止 的 条 件 。 在 计算 忆 时 ， 所 需 的 计算 步骤 随 着 7 线 
性 增长 ， 这 种 过 程 称 为 线性 迭代 过 程 。 

我 们 还 可 以 从 另 一 个 角度 来 看 这 两 个 过 程 之 间 的 对 比 。 在 选 代 的 情况 里 ， 在 计算 过 程 中 
的 任何 一 点 ， 那 几 个 程序 变量 都 提供 了 有 关 计 算 状 态 的 一 个 完整 描述 。 如 果 我 们 令 上 述 计算 
在 某 两 个 步骤 之 间 停 下 来 ， 要 想 重 新 唤醒 这 一 计算 ， 只 需要 为 解释 器 提供 有 关 这 三 个 变量 的 
值 。 而 对 于 递归 计算 过 程 而 言 ， 这 里 还 存在 着 另外 的 一 些 “ 隐 含 ” 信 息 ， 它 们 并 未 保存 在 程 
序 变量 里 ， 而 是 由 解释 器 维持 着 ， 指 明了 在 所 推迟 的 运算 所 形成 的 链条 里 的 漫游 中 , “这 一 计 
算 过 程 处 在 何 处 "。 这 个 链条 越 长 ， 需 要 保存 的 信息 也 就 越 多 ?0。 

在 做 迭代 与 递归 之 间 的 比较 时 ， 我 们 必须 当心 ， 不 要 搞 混 了 递归 计算 过 程 的 概念 和 递归 
过 程 的 概念 。 当 我 们 说 一 个 过 程 是 递归 的 时 候 ， 论 述 的 是 一 个 语法 形式 上 的 事实 ， 说 明 这 个 
过 程 的 定义 中 (直接 或 者 间接 地 ) 引用 了 该 过 程 本 身 。 在 说 某 一 计算 过 程 具 有 某 种 模式 时 
(例如 ， 线 性 递归 ) ， 我 们 说 的 是 这 一 计算 过 程 的 进展 方式 ， 而 不 是 相应 过 程 书写 上 的 语法 形 
式 。 当 我 们 说 某 个 递归 过 程 (例如 fact-~iter) 将 产生 出 一 个 迭代 的 计算 过 程 时 ， 可 能 会 使 
人 感到 不 舒服 。 然 而 这 一 计算 过 程 确实 是 迭代 的 ， 因 为 它 的 状态 能 由 其 中 的 三 个 状态 变量 完 
全 刻画 ， 解 释 器 在 执行 这 一 计算 过 程 时 ， 只 需要 保持 这 三 个 变量 的 轨迹 就 足够 了 。 

区 分 计算 过 程 和 写 出 来 的 过 程 可 能 使 人 感到 困惑 ， 其 中 的 一 个 原因 在 于 各 种 常见 语言 
(包括 Ada 、Pascal 和 C ) 的 大 部 分 实现 的 设计 中 ， 对 于 任何 递归 过 程 的 解释 ， 所 需要 消耗 的 存 
储量 总 与 过 程 调用 的 数目 成 正比 ， 即 使 它 所 描述 的 计算 过 程 从 原理 上 看 是 和 迭代 的 。 作 为 这 一 
事实 的 后 果 ， 要 在 这 些 语言 里 描述 迭代 过 程 ， 就 必须 借助 于 特殊 的 “循环 结构 ”， 如 do 、 
repeat 、until、for 和 while 等 等 。 我 们 将 在 第 5 章 里 考察 的 Scheme 的 实现 则 设 有 这 一 缺 
陷 ， 它 将 总 能 在 常量 空间 中 执行 沈 代 型 计算 过 程 ， 即 使 这 一 计算 是 用 一 个 递归 过 程 描述 的 。 
具有 这 一 特性 的 实现 称 为 尾 递归 的 。 有 了 一 个 尾 递 归 的 实现 ， 我 们 就 可 以 利用 常规 的 过 程 调 
用 机 制 表 述 和 迭代， 这 也 会 使 各 种 复杂 的 专用 迭代 结构 变 成 不 过 是 一 些 语法 糖衣 了 ”。 

练习 1.9 ”下面 几 个 过 程 各 定义 了 一 种 加 起 两 个 正 整数 的 方法 ， 它 们 都 基于 过 程 inc (E 
将 参数 增加 1 ) 和 dec ( 它 将 参数 减少 1)。 

(define (+ a b) 

(if (= a 0) 
b 
(ine (+ (dec a) b)))) 


(define (+ a b) 
(if (= a 0) 


0 在 第 5$ 章 里 ， 我 们 将 要 讨论 过 程 在 寄存 器 机 器 上 的 实现 ， 那 时 将 看 到 所 有 的 和 迭代 过 程 都 可 以 “以 硬件 的 方式 ” 
实现 为 一 个 机 器 ， 其 中 只 有 固定 数目 的 寄存 器， 无 须 任 何 辅助 存储 器 。 与 这 种 情况 不 同 ， 要 实现 递归 计算 过 
程 ， 就 需要 一 种 机 器 ， 其 中 使 用 了 一 个 称 为 堆栈 的 辅助 数据 结构 。 

3 长 期 以 来 ， 昆 递归 一 直 被 看 作 一 种 编译 技巧 。 尾 递归 的 坚实 语义 基础 由 Carl Hewitt (1977) 提供 ， 他 用 计算 
的 “消息 传递 ”模型 解释 尾 递归 。 第 3 章 将 讨论 这 种 模型 。 在 该 工作 的 启发 下 ，Gerald Jay Sussman 和 Guy 
Lewis Steele Jr. (Steele 1975) 为 Scheme 构造 了 尾 递归 的 解释 器 。Steele 后 来 证 明了 尾 递归 是 编译 过 程 调 用 
的 自然 方式 的 推论 (Steele 1977 ) 。Scheme 的 IEEE 标 准 要 求 $Scheme 解 释 器 必须 是 尾 递归 的 。 


b 
(+ (dec a) (inc b)))) 
请 用 代 换 模型 展示 这 两 个 过 程 在 求 值 (+4 5) 时 所 产生 的 计算 过 程 。 这 些 计 算 过 程 是 递归 
的 或 者 迭代 的 吗 ? 
练习 1.10 下面 过 程 计算 一 个 称 为 Ackermann 函数 的 数学 函数 ; 
(define (a x y) 
(cond ((= y 0) 0) 
((= x 0) (* 2 y)) 
((= y 1) 2) 
{else (A (- x 1) 
(A x (- Y 1)))))) 
下 面 各 表达 式 的 值 是 什么 : 
(A 1 10) 
(A 2 4) 
(A 3 3) 
请 考虑 下 面 的 过 程 ， 其 中 的 AR 就 是 上 面 定义 的 过 程 : 
(define (£f n) (A 0 n)) 
(define (g n) (A 1 n)) 
(define (h n) (A 2 n)) 
(define (k n) (* 5 n n)) 


请 给 出 过 程 E 、g 和 h 对 给 定 整数 值 " 所 计算 的 函数 的 数学 定义 。 例 如 ，(k n) 计算 的 是 5m 。 
1.2.2 树 形 递 归 


另 一 种 常见 计算 模式 称 为 树 形 递 为 。 作 为 例子 ， 现 在 考虑 斐 波 那 契 (Fibonacci) 数 序列 
的 计算 ， 这 一 序列 中 的 每 个 数 都 是 前 面 两 个 数 之 和 : 

0, 1, 1, 2, 3, 5, 8, 13, 21, = 
一 般 说 ， 斐 波 那 契 数 由 下 面 规则 定义 : 


0 如 果 n=0 
Fib(n) = /1 gnal 
Fib(n-1)+Fib(n-2) ”否则 


我 们 马上 就 可 以 将 这 个 定义 翻译 为 一 个 计算 斐 波 那 契 数 的 递归 过 程 ， 
(define (fib n) 
(cond ((= n 0) 0) 
((= n 1) 1) 
(else (+ (fib (- n 1)) 
(fib (- n 2)))))) > 
涛 虑 这 一 计算 的 模式 。 为 了 计算 (fib 5) ， 我 们 需要 计算 出 (fib 4) 和 (fib 3). 
而 为 了 计算 (fib 4) ， 又 需要 计算 (fib 3) 和 (fib 2)。 一 般 而 言 ， 这 一 展开 过 程 看 起 
来 像 一 棵 树 ， 如 图 1-5 所 示 。 请 注意 ， 这 里 的 每 县 分 裂 为 两 个 分 支 (除了 最 下 面 )， 反 映 出 对 


/MN 


fib 1 fib 0 1 


| 


1 0 


图 1-5 计算 (fib 5) 中 产生 的 树 形 递 归 计 算 过 程 


fib 过 程 的 每 个 调用 中 两 次 递归 调用 自身 的 事实 。 

上 面 过 程 作为 典型 的 树 形 递 归 具 有 教育 意义 ， 但 它 却 是 一 种 很 粳 的 计算 斐 波 那 契 数 的 方 
法 ， 因 为 它 做 了 太 多 的 宛 余 计算 。 在 图 1-5 中 , R (fib 3) 差不多 是 这 里 的 一 半 工 作 ， 这 一 
计算 整个 地 重复 做 了 两 次 。 事 实 上 ， 不 难 证 明 ， 在 这 一 过 程 中 , 计算 (fib 1) 和 (fib 0) 
的 次 数 (一 般 说 ， 也 就 是 上 面 树 里 树叶 的 个 数 ) 正好 是 Fib(n +1)。 要 领会 这 种 情况 有 多 人 么 精 
糕 ， 我 们 可 以 证 明 Fib(m) 值 的 增长 相对 于 ?是 指数 的 。 更 准确 地 说 ( 见 练习 1.13) ，Fib(n) 就 是 
最 接近 如/ V5 的 整数 ， 其 中 : 

$=(1+ V5)/2~1.6180 
就 是 黄金 分 割 的 值 ， 它 满足 方程 : 
=9+1 
这 样 ， 该 过 程 所 用 的 计算 步 台 数 将 随 着 输入 增长 而 指数 性 地 增长 。 在 另 一 方面 ， 其 空间 需求 
只 是 随 着 输入 增长 而 线性 增长 ， 因 为 ， 在 计算 中 的 每 一 点 ， 我 们 都 只 需 保存 树 中 在 此 之 上 的 
结 点 的 轨迹 。 一 般 说 ， 树 形 递归 计算 过 程 里 所 需 的 步骤 数 将 正比 于 树 中 的 结 点 数 ， 其 空间 需 
求 正比 于 树 的 最 大 深度 。 

我 们 也 可 以 规划 出 一 种 计算 斐 波 那 契 数 的 迭代 计算 过 程 ， 其 基本 想法 就 是 用 一 对 整数 2 和 

b， 将 它们 分 别 初始 化 为 Fib(1) = 1 和 Fib(0) =0， 而 后 反复 地 同时 使 用 下 面 变换 规则 : 
a—a +b 


N 


ba 
不 难 证 明 ， 在 n 次 应 用 了 这 些 变 换 后 ,a 和 4b 将 分 别 等 于 Fib(n + 1) 和 Fib(n)。 因 此 ， 我 们 可 以 用 
下 面 过 程 ， 以 迭代 方式 计算 斐 波 那 契 数 : 


(define (fib n) 
(fib-iter 1 0 n)) 


(define (fib-iter a b count) 
(if (= count 0) 
b 
(fib-iter (+ a b) a (- count 1)))) 
计算 Fib(n) 的 这 种 方法 是 一 个 线性 迭代 。 这 两 种 方法 在 计算 中 所 需 的 步骤 上 差异 巨大 一 一 后 
一 方法 相对 于 n 为 线性 的 ， 前 一 个 的 增长 像 Fib(n) 一 样 快 ， 即 使 不 大 的 输入 也 可 能 造成 很 大 
的 差异 。 

但 是 我 们 也 不 应 做 出 结论 ， 说 树 形 递归 计算 过 程 根 本 没有 用 。 当 我 们 考虑 的 是 在 层次 结 
构 性 的 数据 上 操作 ， 而 不 是 对 数 操作 时 ， 将 会 发 现 树 形 递归 计算 过 程 是 一 种 自然 的 、 威 力 强 
大 的 工具 ”。 即 使 是 对 于 数 的 计算 ， 树 形 递归 计算 过 程 也 可 能 帮助 我 们 理解 和 设计 程序 。 以 计 
算 斐 波 那 契 数 的 程序 为 例 ， 虽 然 第 一 个 Eib 过 程 远 比 第 二 个 低 效 ， 但 它 却 更 加 直截了当 ， 基 
本 上 就 是 将 斐 波 那 契 序列 的 定义 直接 翻译 为 Lisp 语 言 。 而 要 规划 出 那个 迭代 过 程 ， 则 需要 注 
意 到 ， 这 一 计算 过 程 可 以 重新 塑造 为 一 个 采用 三 个 状态 变量 的 迭代。 

实例 ， 换 零钱 方式 的 统计 

要 想得到 一 个 迭代 的 斐 波 那 契 算 法 需要 一 点 点 智慧 。 与 此 相对 应 ， 现 在 考虑 下 面 的 问题 : . 
给 了 半 美 元 、 四 分 之 一 美元 、10 美 分 、5 美 分 和 1 美 分 的 硬币 ， 将 1 美元 换 成 零钱 ， 一 共有 多 少 
种 不 同方 式 ? 更 一 般 的 问题 是 ， 给 定 了 任意 数量 的 现金 ， 我 们 能 写 出 一 个 程序 ， 计 算出 所 有 
换 零钱 方式 的 种 数 吗 ? 

采用 递归 过 程 ， 这 一 问题 有 一 种 很 简单 的 解法 。 假 定 我 们 所 考虑 的 可 用 硬币 类 型 种 类 排 
了 某 种 顺序 ， 于 是 就 有 下 面 的 关系 : 

将 总 数 为 & 的 现金 换 成 ?种 硬币 的 不 同方 式 的 数 上 且 等 于 

© 将 现金 数 a 换 成 除 第 一 种 硬币 之 外 的 所 有 其 他 硬币 的 不 同方 式 数目 ， 加 上 

。 将 现金 数 a -d 换 成 所 有 种 类 的 硬币 的 不 同方 式 数目 ， 其 中 的 4 是 第 一 种 硬币 的 币值 。 

要 问 为 什么 这 一 说 法 是 对 的 ， 请 注意 这 里 将 换 零钱 分 成 两 组 时 所 采用 的 方式 ， 第 一 组 里 
都 没有 使 用 第 一 种 硬币 ， 而 第 二 组 里 都 使 用 了 第 一 种 硬币 。 显 然 ， 换 成 零钱 的 全 部 方式 的 数 
目 ， 就 等 于 完全 不 用 第 一 种 硬币 的 方式 的 数目 ， 加 上 用 了 第 一 种 硬币 的 换 零钱 方式 的 数目 。 
而 后 一 个 数目 也 就 等 于 去 掉 一 个 第 一 种 硬币 值 后 ， 剩 下 的 现金 数 的 换 零钱 方式 数目 。 

这 样 就 可 以 将 某 个 给 定 现 金 数 的 换 零 钱 方式 的 问题 ， 递 归 地 归 约 为 对 更 少 现金 数 或 者 更 
少 种 类 硬币 的 同一 个 问题 。 仔 细 考 虑 上 面 的 归 约 规则 ， 设 法 使 你 确信 ， 如 果 采 用 下 面 方 式 处 
理 退 化 情况 ， 我 们 就 能 利用 上 面 规则 写 出 一 个 算法 来 ”: 

。 如 果 a 就 是 90， 应 该 算 作 是 有 1 种 换 零 钱 的 方式 。 

。 如 果 a 小 于 0， 应 该 算 作 是 有 0 种 换 零钱 的 方式 。 

。 如果" 是 0， 应 该 算 作 是 有 0 种 换 零钱 的 方式 。 

我 们 很 容易 将 这 些 描述 翻译 为 一 个 递归 过 程 : 


(define (count-change amount) 


?我 们 已 经 在 1.1.3 节 里 遇 到 过 这 种 情况 的 例子 。 在 求 值 表达 式 时 ， 解 释 器 本 身 采 用 的 就 是 树 形 的 递归 计算 过 程 。 
3 例如 ， 仔 细 地 将 上 述 归 约 规则 用 于 将 10 分 换 成 5 分 和 1 分 零钱 的 问题 。 


(CC amount 5)) 


(define (cc amount kinds-of-coins) 
(cond ((= amount 0) 1) 
((or (< amount 0) (= kinds-of-coins 0)) 0) 
(else (+ (cc amount 
(- kinds~of-coins 1)) 
(cc (- amount 
(first-denomination kinds-of-coins) ) 


kinds-of~coins))))) 


(define (first-denomination kinds-of-coins) 
(cond ((= kinds-of-coins 1) 1) 
((= kinds-of-coins 2) 5) 
((= kinds-of-coins 3) 10) - 
((= kinds-of-coins 4) 25) 
((= kinds-of-coins 5) 50))) 
(过 程 first~denomination 以 可 用 的 硬币 种 数 作 为 输入 ， 返 回 第 一 种 硬币 的 币值 。 这 里 认 
为 硬币 已 经 从 最 大 到 最 小 排列 好 了 ， 其 实 采 用 任何 顺序 都 可 以 )。 我 们 现在 就 能 回答 开始 的 问 
题 了 ， 下 面 是 换 1 美 元 硬币 的 不 同方 式 数目 : 
(count-change 100) 
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count-change 产 生出 一 个 树 形 的 递归 计算 过 程 ， 其 中 的 元 余 计 算 与 前 面 fib 的 第 一 种 
实现 类 似 ( 它 计 算出 292 需 要 一 点 时 间 )。 在 另 一 方面 ， 要 想 设 计 出 一 个 更 好 的 算法 ， 使 之 能 
算出 同样 结果 ， 就 不 那么 明显 了 。 我 们 将 这 一 问题 留 给 读者 作为 一 个 挑战 。 人 们 认识 到 ， 树 
形 递归 计算 过 程 有 可 能 极其 低 效 ， 但 常常 很 容易 描述 和 理解 ， 这 就 导致 人 们 提出 了 一 个 建议 ， 
希望 能 利用 世界 上 的 这 两 个 最 好 的 东西 。 人 们 希望 能 设计 出 一 种 “灵巧 编译 器 ”， 使 之 能 将 一 
个 树 形 递归 的 过 程 翻译 为 一 个 能 计算 出 同样 结果 的 更 有 效 的 过 程 “。 

练习 1.11 ”函数 f 由 如 下 的 规则 定义 : 如 果 n <3， 那 么 An) =n， 如 果 n >3， 那 么 fln) = 
ftn 一 1) +2fn 一 2) +3fn 一 3)。 请 写 一 个 采用 递归 计算 过 程 计算 三 的 过 程 。 再 写 一 个 采用 迭代 


计算 过 程 计算 了 的 过 程 。 
练习 1.12 下 面 数值 模式 称 为 帕斯卡 三 角形 ; 
1 
1 1 
121 
1331 
14641 


2% 对 付 元 余 计 算 的 一 种 途径 是 通过 重新 安排 ， 使 计算 过 程 能 自动 构造 出 一 个 已 经 计算 出 的 值 的 表格 。 每 次 要 求 
对 某 一 参数 调用 过 程 时 ， 首 先 去 查看 这 个 值 是 否 已 在 表 里 ， 如 果 存 在 就 可 以 避免 重复 计算 。 这 一 策略 被 称 为 
表格 技术 或 记 亿 技术 ， 它 也 很 容易 实现 。 有 时 采用 表格 技术 可 以 将 原本 需要 指数 步骤 的 计算 过 程 (例如 
count-change) 转变 成 空间 和 时 间 需 求 都 相对 于 输入 线性 增长 的 计算 过 程 。 参 见 练习 3.27。 
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三 角形 边界 上 的 数 都 是 1 ， 内 部 的 每 个 数 是 位 于 它 上 面 的 两 个 数 之 和 ”。 请 写 一 个 过 程 ， 它 采 
用 递归 计算 过 程 计算 出 帕斯卡 三 角形 。 

练习 1.13 ”证 明 Fib(n) 是 最 接近 4/ V5 的 整数 ， 其 中 多 =(1+ V5)/2 。 提 示 : 利用 归纳 法 和 
- 斐 波 那 契 数 的 定义 〈( 见 1.2.2 节 )， 证 明 Fib( =(gr 一 7)/ V5 。 


1.2.3 增长 的 阶 


前 面 一 些 例子 说 明 ， 不 同 的 计算 过 程 在 消耗 计算 资源 的 速率 上 可 能 存在 着 巨大 差异 。 描 
述 这 种 差异 的 一 种 方便 方式 是 用 增长 的 阶 的 记 法 ， 以 便 我 们 理解 在 输入 变 大 时 ， 某 一 计算 过 
程 所 需 资 源 的 粗略 度量 情况 。 

令 n 是 一 个 参数 ， 它 能 作为 问题 规模 的 一 种 度量 ， 令 R(n) 是 一 个 计算 过 程 在 处 理 规 模 为 n 
的 问题 时 所 需要 的 资源 量 。 在 前 面 的 例子 里 ， 我 们 取 n 为 给 定 函数 需要 计算 的 那个 数 ， 当 然 也 
存在 其 他 可 能 性 。 例 如 ， 如 果 我 们 的 目标 是 计算 出 一 个 数 的 平方 根 的 近似 值 ， 那 么 就 可 以 将 n 
取 为 所 需 精 度 的 数字 个 数 。 对 于 和 撼 阵 乘 法 ， 我 们 可 以 将 z 取 为 矩阵 的 行 数 。 一 般 而 言 ， 总 存在 
着 某 个 有 关 问 题 特性 的 数值 ， 使 我 们 可 以 相对 于 它 去 分 析 给 定 的 计算 过 程 。 与 此 类 似 ，R(n) 
也 可 以 是 所 用 的 内 部 寄存 器 数目 的 度量 值 ， 也 可 能 是 需要 执行 的 机 器 操作 数目 的 度量 值 ， 或 
者 其 他 类 似 东 西 。 在 每 个 时 刻 只 能 执行 固定 数目 的 操作 的 计算 机 里 ， 所 需 的 时 间 将 正比 于 需 
要 执行 的 基本 机 器 指令 条 数 。 

我 们 称 R(n) RAON) 的 增长 阶 ， 记 为 R(n) =O) GR Nn) 的 theta”) ， 如 果 存 在 
与 无 关 的 整数 kL 和 Kk。， 使 得 : 

kfm) <R(n) <kfin) 


对 任何 足够 大 的 n 值 都 成 立 ( 换 名 话说， 对 足够 大 的 上 ， 值 RCn) 总 位 于 kfln) 和 koftn) 之 间 )。 
.举例 来 说 ， 在 1.2.1 节 中 描述 的 计算 阶乘 的 线性 递归 计算 过 程 里 ， 步 又 数目 的 增长 正比 于 
输入 #。 也 就 是 说 ， 这 一 计算 过 程 所 需 步 骤 的 增长 为 8(n)， 其 空间 需求 的 增长 也 是 B@(n)。 对 于 
迄 代 的 阶乘 ， 其 步 数 还 是 8(n) 而 空间 是 B(1) ， 即 为 一 个 常数 “。 树 形 递归 的 斐 波 那 契 计算 需 
BOP) 步 和 8B(n) 空间 ， 这 里 的 g 就 是 1.2.2 节 中 描述 的 黄金 分 割 率 。 
增长 的 阶 为 我 们 提供 了 对 计算 过 程 行为 的 一 种 很 粗略 的 描述 。 例 如 ， 某 计算 过 程 需要 必 步 ， 
另 一 计算 过 程 需 要 1000n? 步 ， 还 有 一 个 计算 过 程 需 要 3n? +10n+17 步 ， 它 们 增长 的 阶 都 是 
B(n?)。 但 在 另 一 方面 ， 增 长 的 阶 也 为 我 们 在 问题 规模 改变 时 ， 预 期 一 个 计算 过 程 的 行为 变化 
提供 了 有 用 的 线索 。 对 于 一 个 8(n) (RE) 的 计算 过 程 ， 规 模 增 大 一 倍 大 致 将 使 它 所 用 的 资 


5 帕斯卡 三 角形 的 元 素 又 称 为 二 项 式 系 数 ， 因 其 中 第 n 行 就 是 (x+y) "的 展开 式 的 系数 。 计 算 这 些 系数 的 这 一 
模式 发 表 在 布 赖 斯 - 帕斯卡 有 关 概 率 论 的 开创 性 工作 “ 论 算术 三 角形 ”(Traité du triangle arithmétique ) 中 。 
根据 Knuth (1973 )， 同 样 的 模式 也 出 现在 中 国 数学 家 朱 世 杰 于 1303 成 书 的 《四 元 玉 鉴 》， 还 出 现在 12 世 纪 波 
斯 诗人 和 数学 家 Omar Khayyam 的 论文 ， 以 及 12 世 纪 印 度数 学 家 Bhéscara Achsrya 的 论文 中 。 (这 一 三 角形 也 称 
为 “页 宪 三 角形 ”( 贾 宪 ， 朱 朝 960-1127 年 ) 和 “杨辉 三 角形 ”( 杨辉 ，1261)， 是 中 国 古 代数 学 的 辉煌 成 就 。 
一 一 译 者 注 ) 

% 这 些 说 法 都 是 经 过 了 很 大 简化 。 例 如 ， 如 果 采 用 “机 器 操作 ”去 计算 步 数 ， 我 们 实际 上 就 做 了 一 个 假定 ， 候 
定 所 需 执行 的 各 种 机 器 操作 ， 例 如 执行 一 次 乘法 与 需要 乘 的 那 两 个 数 的 大 小 无 关 。 如 果 需 要 乘 的 数 非 常 大 ， 
这 一 假定 实际 上 是 不 成 立 的 。 对 于 空间 的 估计 也 需要 做 类 似 的 说 明 。 与 计算 过 程 的 设计 和 描述 的 情况 类 似 ， 
对 于 计算 过 程 的 分 析 也 可 以 在 不 同 的 抽象 层次 上 进行 。 
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源 增加 了 一 倍 。 对 于 一 个 指数 的 计算 过 程 ， 问 题 规模 每 增加 1 都 将 导致 所 用 资源 按照 某 个 常数 
倍增 长 。 在 1.2 节 剩 下 的 部 分 ， 我 们 将 考察 两 个 算法 ， 其 增长 的 阶 都 是 对 数 型 增长 的 ， 因 此 ， 
当 问题 规模 增 大 一 倍 时 ， 所 需 资 源 量 只 增加 一 个 常数 。 


练习 1.14 ”请 画 出 有 关 的 树 ， 展 示 1.2.2 节 的 过 程 count-change 在 将 11 美 分 换 成 硬币 时 
所 产生 的 计算 过 程 。 相 对 于 被 换 现金 量 的 增加 ， 这 一 计算 过 程 的 空间 和 步 数 增长 的 阶 各 是 什 
么 ? 

练习 1.15 EA (AMER) x 足够 小 时 ， 其 正弦 值 可 以 用 sinx ~x 计 算 ， 而 三 角 恒 等 式 : 

4x 


sinx =3 sinŽ —4sin? = 
3 3 


可 以 减 小 sin 的 参数 的 大 小 (为 完成 这 一 练习 ， 我 们 认为 一 个 角 是 “足够 小 ”， 如 果 其 数值 不 大 
于 0.1 弧 度 )。 这 些 想 法 都 体现 在 下 述 过 程 中 : 

(define (cube x) (* x x x)) 

(define (p x) (- (* 3 x) (* 4 (cube x)))) 


(define (sine angle) 
(if (not (> (abs angle) 0.1)) 
angle 
(p (sine (/ angle 3.0))))) 


a) 在 求 值 (sine 12.15) 时 , p 将 被 使 用 多 少 次 ? 
b) 在 求 值 (sine a) 时 ， 由 过 程 sine 所 产生 的 计算 过 程 使 用 的 空间 和 步 数 (作为 a 的 函 
数 ) 增长 的 阶 是 什么 ? 


12.4 RE 


现在 考虑 对 一 个 给 定 的 数 计 算 乘 寡 的 问题 ， 我 们 希望 这 一 过 程 的 参数 是 一 个 基数 和 一 个 
正 整 数 的 指数 Xx， 过 程 计算 出 b*。 做 这 件 事 的 一 种 方式 是 通过 下 面 这 个 递归 定义 ;: 


br=b - br! 
bo =1 
它 可 以 直接 翻译 为 如 下 过 程 ; 
(define (expt b n) 
(if (= n 0) 


1 
, (* b (expt b (- n 1))))) 
这 是 一 个 线性 的 递归 计算 过 程 ， 需 要 B(n) 步 和 8B(n) 空间 。 就 像 阶乘 一 样 ， 我 们 很 容易 将 其 形 
式 化 为 一 个 等 价 的 线性 和 欠 代 : 
(define (expt b n) 
(expt-iter bn 1)) 
(define (expt-iter b counter product) 
(if (= counter 0) 


product 
(expt-iter b 


{- counter 1) 
(* b product)))) 


这 一 版 本 需要 8B(n) 步 和 6B(1) 空间 。 
我 们 可 以 通过 连续 求 平 方 ， 以 更 少 的 步 又 完成 乘客 计算 。 例 如 ， 不 是 采用 下 面 这 样 的 方 
AAD.: 
b - (b ; (b; (b - (b - (b - (b .Db)))))) 
而 是 用 三 次 乘法 算出 它 来 : 
B=b-b 
bt =b .hb2 
b =b* - bt 
这 一 方法 对 于 指数 为 2 的 乘 宕 都 可 以 用 。 如 果 采 用 下 面 规则 ， 我 们 就 可 以 借助 于 连续 求 平 
方 ， 去 完成 一 般 的 乘 寡 计算 : 
b" = (by? 若 n 是 偶数 
b"=b - br! 若是 奇数 
这 一 方法 可 以 定义 为 如 下 的 过 程 : 
(define (fast-expt b n) 
(cond ((= n 0) 1) 
((even? n) (square (fast-expt b (/ n 2)))) 
(else (* b (fast-expt b (- n 1)))))) 
其 中 检测 一 个 整数 是 否 偶数 的 谓词 可 以 基于 基本 过 程 rxemainder 定 义 : 


(define (even? n) 
(= (remainder n 2) 0)) 


由 fast-expt 演 化 出 的 计算 过 程 ， 在 空间 和 步 数 上 相对 于 m 都 是 对 数 的 。 要 看 到 这 些 情况 ， 
请 注意 ， 在 用 fast-expt 计 算 j2 时 ， 只 需要 比 计算 六 多 做 一 次 乘法 。 每 做 一 次 新 的 乘法 ， 能 
够 计算 的 指数 值 (大 约 ) 增 大 一 倍 。 这 样 ， 计 算 指 数 上 所 需要 的 乘法 次 数 的 增长 大 约 就 是 以 2 
为 底 的 x 的 对 数值 ， 这 一 计算 过 程 增长 的 阶 为 @(log n)”. 

随 着 n 变 大 ，B(log n) 增长 与 B(n) 增长 之 间 的 差异 也 会 变 得 非常 明显 。 例 如 对 n =1000， 
fast-expt 只 需要 14 次 乘法 *。 我 们 也 可 能 采用 连续 求 平方 的 想法 ， 设 计 出 一 个 具有 对 数 步 
BEHER RERA ( 见 练习 1.16 )。 但 是 ， 就 像 迭 代 算法 的 常见 情况 一 样 ， 写 出 这 一 算 
法 就 不 像 对 递归 算法 那样 直截了当 了 ”。 

练习 1.16 请 定义 一 个 过 程 ， 它 能 产生 出 一 个 按照 选 代 方 式 的 求 填 计 算 过 程 ， 其 中 使 用 一 
系列 的 求 平方 ， 就 像 一 样 East-~expt 只 用 对 数 个 步骤 那样 。( 提 示 : 请 利用 关系 OP = 
(Bb?) ， 除 了 指数 x 和 基数 b 之 外 ， 还 应 维持 一 个 附加 的 状态 变量 a ， 并 定义 好 状态 变换 ， 使 得 


? 更 准确 地 说 ， 这 里 所 需 乘 法 的 次 数 等 于 "的 以 2 为 底 的 对 数值 ， 再 加 上 m 的 二 进 制 表示 中 1 的 个 数 减 1。 这 个 值 总 
小 于 m 的 以 2 为 底 的 对 数值 的 两 倍 。 对 于 对 数 的 计算 过 程 而 言 ， 在 阶 记 法 定义 中 的 任意 常量 后 和 操 ， 意 味 着 对 数 
的 底 并 没有 关系 。 因 此 这 种 过 程 被 描述 为 8dlog 2), 

3 你 可 能 奇怪 什么 人 会 关心 去 求 数 的 1000 次 乘 圭 。 参 看 1.2.6 节 。 

» 这 一 迭代 算法 也 是 一 个 古董 ， 它 出 现在 公元 前 200 年 之 前 Achirya Pingala 所 写 的 Chandah-sutra 里 。 有 关 求 等 的 
这 一 算法 和 其 他 算法 的 完整 讨论 和 分 析 ， 请 参看 Knuth 1981 的 4.6.3 节 。 
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从 一 个 状态 转 到 另 一 状态 时 乘积 a b" 不 变 。 在 计算 过 程 开 始 时 令 a 取 值 1， 并 用 计算 过 程 结束 时 
4 的 值 作 为 回答 。 一 般 说 ， 定 义 一 个 不 变量 ， 要 求 它 在 状态 之 间 保 持 不 变 ， 这 一 技术 是 思考 迭 
代 算 法 设计 问题 时 的 一 种 非常 强 有 力 的 方法 。) 

练习 1.17 ”本 节 里 的 求 宪 算法 的 基础 就 是 通过 反复 做 乘法 去 求 乘 逢 。 与 此 类 似 ， 也 可 以 
通过 反复 做 加 法 的 方式 求 出 乘积 。 下 面 的 乘积 过 程 与 expt 过 程 类 似 (其 中 假定 我 们 的 语言 只 
有 加 法 而 没有 乘法 ): 

(define (* a b) 

(if (= b 0) 
0 
(+ a (* a (~ b1))))) 

这 一 算法 具有 相对 于 b 的 线性 步 数 。 现 在 假定 除了 加 法 之 外 还 有 运算 aoub1e， 它 能 求 出 一 个 
整数 的 两 倍 ， 还 有 halve， 它 将 一 个 (偶数 ) 除 以 2。 请 用 这 些 运 算 设计 一 个 类 似 fast- 
expt 的 求 乘积 过 程 ， 使 之 只 用 对 数 的 计算 步 数 。 . 

练习 1.18 ”利用 练习 1.16 和 1.17 的 结果 设计 一 个 过 程 ， 它 能 产生 出 一 个 基于 加 、 加 倍 和 折 
半 运 算 的 迭代 计算 过 程 ， 只 用 对 数 的 步 数 就 能 求 出 两 个 整数 的 乘积 ”。 

练习 1.19 “存在 着 一 种 以 对 数 步 数 求 出 斐 波 那 契 数 的 巧妙 算法 。 请 回忆 1.2.2 节 ib- 
iter 计 算 过 程 中 状态 变量 a 和 5 的 变换 规则 ，a4a 一 4a +b 和 b 一 4， 现 在 将 这 种 变换 称 为 7 变换 。 通 
过 观察 可 以 发 现 ， 从 1 和 0 开始 将 7 反复 应 用 次， 将 产生 出 一 对 数 Fib(a + 1) 和 Fib(n) 。 换 句 话 
说 ， 斐 波 那 契 数 可 以 通过 将 六 (BRT HK) 应 用 于 对 偶 (1 0) 而 产生 出 来 。 现 在 将 [看 做 
ER KAT Pp =0 且 4 =1 的 特殊 情况 ， 其 中 7 是 对 于 对 偶 (a, b) 按照 4 一 bq +ag + ap Filb—bp 
+aq 规 则 的 变换 。 请 证 明 ， 如 果 我 们 应 用 变换 Tp 两 次 ， 其 效果 等 同 于 应 用 同样 形式 的 一 次 变 
Tyg, FP AP Ag 可 以 由 p 和 9 计算 出 来 。 这 就 指明 了 一 条 求 出 这 种 变换 的 平方 的 路 径 ， 使 
我 们 可 以 通过 连续 求 平方 的 方式 去 计算 T"， 就 像 fast-expt 过 程 里 所 做 的 那样 。 将 所 有 这 些 
集中 到 一 起 ， 就 形成 了 下 面 的 过 程 ， 其 运行 只 需要 对 数 的 步 数 ”， 

define (fib n 

(fib-iter 1 0 0 1 n)) 


(define (fib-iter a b p q count) 
(cond ((= count 0) b) 
((even? count) 
(fib-iter a 


b 

<??> ; compute p' 
<??> ; compute q' 
(/ count 2))) 


(else (fib-iter (+ (* b q) (* aq) (* a p)) 
(+ (* b p) (* a q)) 
P 
q 
(- count 1))))) 


4 这 一 算法 有 时 被 称 为 乘法 的 “俄罗斯 农民 的 方法 "， 它 的 历史 也 很 悠久 。 使 用 它 的 实例 可 以 在 菜 因 德 纸 草书 
(Rhind Papyrus) 中 找到 ， 这 是 现存 最 悠久 的 两 份 数学 文献 之 一 ， 由 一 位 名 为 Ah-mose 的 埃及 抄写 人 写 于 大 约 
公元 前 1700 年 (而 且 是 另 一 份 年 代 更 久远 的 文献 的 复制 品 ) 。 

4 这 一 练习 是 Joy Stoy 给 我 们 建议 的 ， 基 于 在 Kaldewaij 1990 的 一 个 例子 。 
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1.2.5 最 大 公约 数 


两 个 整数 < 和 b 的 最 大 公约 数 (GCD ) 定义 为 能 除 尽 这 两 个 数 的 那个 最 大 的 整数 。 例 如 ， 
16 和 28 的 GCD 就 是 4 。 在 第 2 章 里 ， 当 我 们 要 去 研究 有 理 数 算术 的 实现 时 ， 就 会 需要 GCD ， 以 
便 能 把 有 理 数 约 化 到 最 简 形式 (要 将 有 理 数 约 化 到 最 简 形 式 ， 我 们 必须 将 其 分 母 和 分 子 同 时 
除 掉 它们 的 GCD。 例 如 ，16/28 将 约 简 为 4/7 ) 。 找 出 两 个 整数 的 GCD 的 一 种 方式 是 对 它们 做 因 
数 分 解 ， 并 从 中 找 出 公共 因子 。 但 存在 着 一 个 更 高 效 的 著名 算法 。 

这 一 算法 的 思想 基于 下 面 的 观察 如果" 是 4 除 以 b 的 余数 ， 那 么 4 和 5 的 公约 数 正好 也 是 5 
的 "的 公约 数 。 因 此 我 们 可 以 借助 于 等 式 : 

GCD(a, b) =GCD(b, r) 
这 就 把 一 个 GCD 的 计算 问题 连续 地 归 约 到 越 来 越 小 的 整数 对 的 GCD 的 计算 问题 。 例 如 : 
GCD(206, 40) =GCD(40, 6) 
=GCD(6, 4) 
=GCD(4, 2) 
=GCD(2, 0) 
=2 


将 GCD (206, 40) 归 约 到 GCD (2, 0) ， 最 终 得 到 2。 可 以 证 明 ， 从 任意 两 个 正 整数 开始 ， 反 复 执 
行 这 种 归 约 ， 最 终 将 产生 出 一 个 数 对 ， 其 中 的 第 二 个 数 是 0， 此 时 的 GCD 就 是 另 一 个 数 。 这 一 
计算 GCD 的 方法 称 为 欧 几 里 得 算法 。 
不 难 将 欧 几 里 得 算法 写成 一 个 过 程 : 
(define (gcd a b) 
(if (= b 0) 
(gcd b (remainder a b)))) 


这 将 产生 一 个 迭代 计算 过 程 ， 其 步 数 依 所 涉及 的 数 的 对 数 增长 。 
欧 几 里 得 算法 所 需 的 步 数 是 对 数 增长 的 ， 这 一 事实 与 斐 波 那 契 数 之 间 有 一 种 有 趣 关 系 : 
Lam6 定 理 ， 如 果 欧 几 里 得 算法 需要 用 k 步 计算 出 一 对 整数 的 GCD， 那 么 这 对 数 中 较 小 的 
那个 数 必然 大 于 或 者 等 于 第 k 个 斐 波 那 契 数 ”。 l 


4 这 一 算法 称 为 欧 儿 里 得 算法 ， 是 因为 它 出 现在 欧 几 里 得 的 《几何 原本 》 (Elements, B78, KHA 公元 前 300 
年 )。 根 据 Knuth (1973) 的 看 法 ， 这 一 算法 应 该 被 认为 是 最 老 的 非 平凡 算法 。 古 埃及 的 乘 方法 (练习 1.18) 
确实 年 代 更 和 久远， 但 按 Knuth 的 看 法 ， 欧 几 里 得 算法 是 已 知 的 最 早 描述 为 一 般 性 算法 的 东西 ， 而 不 是 仅仅 给 出 
一 集 示例 。 

4 这 一 定理 是 1845 年 由 Gabriel Lamk 证 明 的 Gabriel Lamé 是 法 国 数 学 家 和 工程 师 ， 他 以 在 数学 物理 领 域 的 贡献 
而 闻名 。 为 了 证 明 这 一 定理 ， 考 虚数 对 序列 (au br) ， 其 中 at >b:， 假 设 欧 几 里 得 算法 在 第 K 步 结束 。 这 一 证 明 
基于 下 述 论断 ; 如 果 Caras bep) 一 au bD 一 (qr, bed) 是 归 约 序列 中 连续 的 三 个 数 对 , 我们 必 然 有 bi Sbi tbii 
为 验证 这 一 论断 ， 我 们 需要 注意 到 ， 这 里 的 每 个 归 约 步 难 都 是 通过 应 用 变换 41 = by, bea 二 Qt 除 以 bi 的 余数 。 
第 二 个 等 式 意味 着 ai =9b: ths, RPE 个 正 整 数 。 因 为 9 至 少 是 1 ， 所 以 我 们 有 ax = gp +b Sbi +b. 
但 在 前 面 一 个 归 约 步 中 有 bi41 =44， 因 此 br a= ab +brt。 这 就 证 明了 上 述 论断 。 现 在 就 可 以 通过 对 kK 归纳 来 
证 明 这 一 定理 了 ， 假 设 k 是 算法 结束 所 需要 的 步 数 。 对 k=1 结 论 成 立 ， 因为 此 时 不 过 是 要 求 5 不 小 于 Fib(1) =1, 
现在 假定 结果 对 所 有 小 于 等 于 k 的 整数 都 成 立 ， 让 我 们 来 设法 建立 对 k++1 的 结果 。 令 (argi, be 41) 一 (Gb po 一 
(ann ba) 是 归 约 计算 过 程 中 的 几 个 连续 的 数 对 ， 我 们 有 bi >Fib(% 一 1) 以 及 bi 之 Fib(h)。 这 样 ， 应 用 我 们 在 上 
面 已 证 明 的 论断 ， 再 根据 Fibonacci 数 的 定义 ， 就 可 以 给 出 b+1 Bde + b > Fib(k) + Fib(k 一 1) =Fib(k +1), Z 
完成 了 Lamé 定 理 的 证 明 。 
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我 们 可 以 利用 这 一 定理 ， 做 出 欧 几 里 得 算法 的 增长 阶 估计 。 令 mn 是 作为 过 程 输入 的 两 个 数 
中 较 小 的 那个 ， 如 果 计 算 过 程 需要 上 步 ， 那 么 我 们 就 一 定 有 mn Fb) = 册 V5 。 这 样 ， 步 数 k 的 
增长 就 是 上 的 对 数 《对 数 的 底 是 9)。 这 样 ， 算 法 的 增长 阶 就 是 8(log n). 

练习 1.20 ”一 个 过 程 所 产生 的 计算 过 程 当然 依赖 于 解释 器 所 使 用 的 规则 。 作 为 一 个 例子 
考虑 上 面 给 出 的 迭代 式 gcd 过 程 ， 假 定 解 释 器 用 第 1.1.5 节 讨论 的 正则 序 去 解释 这 一 -过程 (对 
if 的 正则 序 求 值 规则 在 练习 1.5 中 描述 )。 请 采用 (正则 序 的 ) 代 换 方法 ， 展 示 在 求 值 表达 式 
(ged 206 40) 中 产生 的 计算 过 程 ， 并 指明 实际 执行 的 remainder 运 算 。 在 采用 正则 序 求 
值 (ged 206 40) 中 实际 执行 了 多 少 次 remainder 运算? 如 果 采 用 应 用 序 求 值 呢 ? 


1.2.6 实例 ， 素数 检测 


本 节 将 描述 两 种 检查 整数 4 是 否 素数 的 方法 ， 第 一 个 具有 B( Vn) 的 增长 阶 ， 而 另 一 个 “ 概 
率 ”算法 具有 B(1og n) 的 增长 阶 。 本 节 最 后 的 练习 提出 了 若干 基于 这 些 算法 的 编程 作业 。 


寻找 因子 
自古 以 来 ， 数学 家 就 被 有 关 素数 的 问题 所 吸引 ， 许多 人 都 研究 过 确定 整数 是 否 素数 的 方 
法 。 检 测 一 个 数 是 否 素数 的 一 种 方法 就 是 找 出 它 的 因子 。 下 面 的 程序 能 找 出 给 定数 x 的 (大 于 
1 的 ) 最 小 整数 因子 。 它 采用 了 一 种 直接 方法 ， 用 从 2 开始 的 连续 整数 去 检查 它们 能 否 整除 "。 
(define (smallest-divisor n) 
(find-divisor n 2)) 
(define (find-divisor n test-divisor) 
(cond ((> (square test-divisor) n) n) 
( (divides? test-divisor n) test-divisor) 


(else (find-divisor n (+ test-divisor 1))))) 


(define (divides? a b) 
(= (remainder b a) 0)) 


我 们 可 以 用 如 下 方式 检查 一 个 数 是 否 素 数 : n 是 素数 当 且 仅 当 它 是 自己 的 最 小 因子 : 


(define (prime? n) 
(= n (smallest-divisor n))) 


find-divisor 的 结束 判断 基于 如 下 事实 ， 如 果 n 不 是 素数 ， 它 必然 有 一 个 小 于 或 者 等 于 Vn 
的 因子 4 。 这 也 意味 着 该 算法 只 需 在 1 和 Vn 之 间 检 查 因子 。 由 此 可 知 ， 确 定 是 否 素数 所 需 的 
步 数 将 具有 8B( Vn) 的 增长 阶 。 


费 马 检查 
O(log n) 的 素数 检查 基于 数论 论 中 著名 的 费 马 小 定理 的 结果 we。 


4 如 果 d 是 rz 的 因子 ， 那 么 4/n 当 然 也 是 。 而 d 和 d/n 绝 不 会 都 大 于 Vn 。 
seis ie MT (1601—1665) 是 现代 数论 的 奠基 人， 他 得 出 了 次 多 有 关 数 论 的 重要 理论 结果 ， 但 他 通 
常 只 是 通告 这 些 结果 ， 而 没有 提供 证 明 。 费 马 小 定理 是 在 1640 年 他 所 写 的 一 封 信里 提 到 的 ， 公 开发 表 的 第 
一 个 证 明 由 欧 拉 在 1736 年 给 出 (更 早 一 些 ， 同 样 的 证 明 也 出 现在 莱 布 尼 艾 的 未 发 表 的 手稿 中 ) 。 费 马 的 最 著 
名 结果 -_- 称 为 费 马 的 最 后 定理 -一 是 1637 年 草草 写 在 他 所 读 的 书籍 《算术 》 里 (3 世纪 希腊 数学 家 丢 番 图 
所 著 ) ， 还 带 有 一 旬 注 释 “我 已 经 发 现 了 一 个 极其 美妙 的 证 明 ， 但 这 本 书 的 边栏 太 小 ， 无 法 将 它 写 在 这 里 ” 。 
找 出 费 马 最 后 定理 的 证 明成 为 数论 中 最 著名 的 挑战 。 完 整 的 解 最 终 由 普林斯顿 大 学 的 安德鲁 ， 怀 尔 斯 在 
1995 年 给 出 。 
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费 马 小 定理 .如果 n 是 一 个 素数 ，a 是 小 于 的 任意 正 整 数 ， 那 么 4a 的 n 次 方 与 4 模 n 同 余 。 
(两 个 数 称 为 是 模 n 同 余 ， 如 果 它 们 除 以 4 的 余数 相同 。 数 a 除 以 4 的 余数 称 为 4 取 模 n 的 余数 ,或 
简称 为 4 取 模 n) 。 | 

如 果 n 不 是 素数 ， 那 么 ， 一 般 而 言 ， 大 部 分 的 a <n 都 将 满足 上 面 关 系 。 这 就 引出 了 下 面 这 
个 检查 素数 的 算法 对 于 给 定 的 整数 x ， 随 机 任 取 一 个 4a<n 并 计算 出 a* 取 模 n 的 余数 。 如 果 得 
到 的 结果 不 等 于 a， 那 么 x 就 肯定 不 是 素数 。 如 果 它 就 是 a ， 那 么 "是 素数 的 机 会 就 很 大 。 现 在 
再 另 取 一 个 随机 的 a 并 采用 同样 方式 检查 。 如 果 它 满足 上 述 等 式 ， 那 么 我 们 就 能 对 n 是 素数 有 
更 大 的 信心 了 。 通 过 检查 越 来 越 多 的 4 值 ， 我 们 就 可 以 不 断 增加 对 有 关 结 果 的 信心 。 这 一 算法 
称 为 费 马 检查 。 

为 了 实现 费 马 检查 ， 我 们 需要 有 一 个 过 程 来 计算 一 个 数 的 寡 对 另 一 个 数 取 模 的 结果 : 

(define (expmod base exp m) 

(cond ((= exp 0) 1) 
((even? exp) 
(remainder (square (expmod base (/ exp 2) m)) 
m)) 
(else 
(remainder (* base (expmod base (- exp 1) m)) 
m)))) 
这 个 过 程 很 像 1.2.4 节 的 East-expt 过 程 ， 它 采用 连续 求 平 方 的 方式 ， 使 相对 于 计算 中 指数 ， 
步 数 增长 的 阶 是 对 数 的 “。 

执行 费 马 检查 需要 选取 位 于 1 和 n 一 1 之 间 (包含 这 两 者 ) 的 数 4， 而 后 检查 的 "次 项 取 模 " 
的 余数 是 否 等 于 a。 随 机 数 a 的 选取 通过 过 程 random 完 成 ， 我 们 假定 它 已 经 包含 在 Scheme 的 
基本 过 程 中 ， 它 返回 比 其 整数 输入 小 的 某 个 非 负 整数 。 这 样 ， 要 得 到 1 和 n 一 1 之 间 的 随机 数 ， 
只 需 用 输入 n 一 1 去 调用 random， 并 将 结果 加 1: 

{define (fermat-test n) 

(define (try-it a) 
(= (expmod ann) a)) 


(try-it (+ 1 (random (- n 1))))) 


下 面 这 个 过 程 的 参数 是 某 个 数 ， 它 将 按照 由 另 一 参数 给 定 的 次 数 运 行 上 述 检查 URE 
次 检查 都 成 功 ， 这 一 过 程 的 值 就 是 真 ， 否 则 就 是 假 : 
(define (fast-prime? n times) 
(cond ((= times 0) true) 
((fermat-test n) (fast-prime? n (~ times 1))) 
(else false))) 


概率 方法 
从 特征 上 看 ， 费 马 检 查 与 我 们 前 面 已 经 熟悉 的 算法 都 不 一 样 。 前 面 那些 算法 都 保证 计算 


的 结果 一 定 正 确 ， 而 费 马 检查 得 到 的 结果 则 只 有 概率 上 的 正确 性 。 说 得 更 准确 些 ， 如 果 数 不 


4 对 于 指数 值 e 大 于 1 的 情况 ， 所 采用 归 约 方式 是 基于 下 面 事 实 : 对 任意 的 zx、? 和 m ， 我 们 总 可 以 通过 分 别 计算 
了 到 模 m 和 y 取 模 m ， 而 后 将 它们 生 起 来 之 后 取 横 mn， 得 到 * 乘 y 取 模 的 余数 。 例 如 ， 在 e 是 偶数 时 ， 我 们 计算 b” 取 
模 m 的 余数 ， 求 它 的 平方 ， 而 后 再 求 它 取 模 m 的 余数 。 这 种 技术 非常 有 用 ， 因 为 它 意味 着 我 们 的 计算 中 不 需要 
去 处 理 比 m 大 很 多 的 数 (请 与 练习 1.25 比 较 )、 


能 通过 费 马 检查 ， 我 们 可 以 确信 它 一 定 不 是 素数 。 而 n 通 过 了 这 一 检查 的 事实 只 能 作为 它 是 素 
数 的 一 个 很 强 的 证 据 ， 但 却 不 是 对 n 为 素数 的 保证 。 我 们 能 说 的 是 ， 对 于 任何 数 %x， 如 果 执 行 
这 一 检查 的 次 数 足 够 多 ， 而 且 看 到 ”通过 了 检查 ， 那 么 就 能 使 这 一 素数 检查 出 错 的 概率 减 小 到 
所 需要 的 任意 程度 。 

不 幸 的 是 ， 这 一 断言 并 不 完全 正确 。 因 为 确实 存在 着 一 些 能 骗 过 费 马 检查 的 整数 ， 某 些 
数 n 不 是 素数 但 却 具有 这 样 的 性 质 ， 对 任意 整数 a <n， 都 有 a” 与 4 模 n 同 余 。 由 于 这 种 数 极其 罕 
见 ， 因 此 费 马 检 查 在 实践 中 还 是 很 可 靠 的 ”。 也 存在 着 一 些 费 马 检 查 的 不 会 受骗 的 变形 ， 它 们 
也 像 费 马 方法 一 样 ， 在 检查 整数 4 是 否 为 素数 时 ， 选 择 随机 的 整数 a <n 并 去 检查 某 些 依赖 于 n 
和 a 的 关系 (练习 1.28 是 这 类 检查 的 一 个 例子 )。 另 一 方面 ， 与 费 马 检查 不 同和 的 是 可 以 证 明 ， 
对 任意 的 数 x， 相 应 条 件 对 整数 a <n 中 的 大 部 分 都 不 成 立 ， 除 非 n 是 素数 。 这 样 ， 如 果 n 对 某 个 
随机 选 出 的 a 能 通过 检查 ，n 是 素数 的 机 会 就 大 于 一 半 。 如 果 n 对 两 个 随机 选择 的 a 能 通过 检查 ， 
n 是 素数 的 机 会 就 大 于 四 分 之 三 。 通 过 用 更 多 随机 选择 的 a 值 运行 这 一 检查 ,我们 可 以 使 出 现 
错误 的 概率 减 小 到 所 需要 的 任意 程度 。 

能 够 证 明 ， 存 在 着 使 这 样 的 出 错 机 会 达到 任意 小 的 检查 算法 ， 激 发 了 人 们 对 这 类 算法 的 
极 大 兴趣 ， 已 经 形成 了 人 所 共 知 称 为 概率 算法 的 领域 。 在 这 一 领域 中 已 经 有 了 大 量 研究 工作 ， 
概率 算法 也 已 被 成 功 地 应 用 于 许多 重要 领域 ”。 

练习 1.21 使 用 smallest-divisor 过 程 找 出 下 面 各 数 的 最 小 因子 : 199, 1999, 19999, 

练习 1.22 大 部 分 Lisp 实 现 都 包含 一 个 runtime 基 本 过 程 ， 调 用 它 将 返回 一 个 整数 ， 表 示 
系统 已 经 运行 的 时 间 (例如 ， 以 微 秒 计 )。 在 对 整数 n 调 用 下 面 的 timed-prime-test 过 程 
时 ， 将 打印 出 a 并 检查 n 是 否 为 素数 。 如 果 n 是 素数 ， 过 程 将 打印 出 三 个 星 号 ， 随 后 是 执行 这 一 
检查 所 用 的 时 间 量 。 

(define (timed-prime-test n) 

(newline) 


(display n) 
(start-prime-test n (runtime) )) 


(define (start-prime-test n start-time) 
(if (prime? n) 
(report-prime (- (runtime) start-time)))) 


(define (report-prime elapsed-time) 
(display " *** ") 
(display elapsed-time) ) 


请 利用 这 一 过 程 写 一 个 search-for-primes 过 程 ， 它 检查 给 定 范围 内 连续 的 各 个 奇数 的 


4 能 够 骗 过 费 马 检查 的 数 称 为 Carmichael 数 ， 我 们 对 它们 知之 其 少 ， 只 知 其 非常 罕见 。 在 100 000 000 之 内 有 255 
个 Carmichael 数 ， 其 中 最 小 的 几 个 是 561 、1105 、1729、2465 、2821 和 6601 。 在 检查 很 大 的 数 是 否 为 素数 时 ， 
所 用 选择 是 随机 的 。 撞 上 能 欺骗 费 马 检查 的 值 的 机 会 比 字 宙 射 线 导致 计算 机 在 执行 “正确 ”算法 中 出 错 的 机 
会 还 要 小 。 对 算法 只 考虑 第 一 个 因素 而 不 考虑 第 二 个 因素 恰好 表现 出 数学 与 工程 的 不 同 。 

4 概率 素数 检查 的 最 惊人 应 用 之 一 是 在 密码 学 的 领域 中 。 虽 然 完 成 200 位 数 的 因数 分 解 现 在 在 计算 上 还 是 不 现实 
的 ， 但 用 费 马 检查 却 可 以 在 几 秒 钟 内 判断 这 么 大 的 数 的 素性 。 这 一 事实 成 为 Rivest、Shamir 和 Adieman (1977 ) 
提出 的 一 种 构造 “不 可 挫 毁 的 密码 ”的 技术 基础 ， 这 一 RSA 算 法 已 成 为 提高 电子 通信 安全 性 的 一 种 使 用 广泛 
的 技术 。 因 为 这 项 研究 和 其 他 相关 研究 的 发 展 ， 素 数 研究 这 一 曾 被 认为 是 “纯粹 ”数学 的 缩影 ， 是 仅仅 因为 
其 自身 原因 而 被 研究 的 课题 ， 现 在 已 经 变 成 在 密码 学 、 电 子 资金 流通 和 信息 查询 领域 是 有 重要 实际 应 用 的 问 


题 了 。 
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素性 。 请 用 你 的 过 程 找 出 大 于 1 000 、 大 于 10 000 、 大 于 100 000 和 大 于 1 000 000 的 三 个 最 小 
的 素数 。 请 注意 其 中 检查 每 个 素数 所 需要 的 时 间 。 因 为 这 一 检查 算法 具有 B(Vn ) 的 增长 阶 ， 
你 可 以 期 望 在 10 000 附 近 的 素数 检查 的 耗 时 大 约 是 在 1 000 附 近 的 素数 检查 的 V10 倍 。 你 得 到 
的 数据 确实 如 此 吗 ? 对 于 100 000 和 1 000 000 得 到 的 数据 ， 对 这 一 Vn 预测 的 支持 情况 如 何 ? 
有 人 说 程序 在 你 的 机 器 上 运行 的 时 间 正 比 于 计算 所 需 的 步 数 ， 你 得 到 的 结果 符合 这 种 说 法 
吗 ? 

练习 1.23 在 本 节 开 始 时 给 出 的 那个 smallest-divisor 过 程 做 了 许多 无 用 检查 : EE 
检查 了 一 个 数 是 否 能 被 2 整除 之 后 , 实际 上 已 经 完全 没 必要 再 检查 它 是 否 能 被 任何 偶数 整除 了 。 
这 说 明 test-divisor 所 用 的 值 不 应 该 是 2，3,，4，,5，6，...， 而 应 该 是 2,，3,，, 5, 7，9，...。 
请 实现 这 种 修改 。 其 中 应 定义 一 个 过 程 next ， 用 2 调用 时 它 返 回 3， 否 则 就 返回 其 输入 值 加 。 
修改 smallest-divisor 过 程 ， 使 它 去 使 用 (next test-divisor) 而 不 是 (+test- 
divisor 1), ittimed-prime-test 结 合 这 个 smallest-~divisor 版 本 ， 运 行 练习 1.22 
里 的 12 个 找 素 数 的 测试 。 因 为 这 一 修改 使 检查 的 步 数 减少 一 半 ， 你 可 能 期 望 它 的 运行 速度 快 
一 倍 。 实 际 情况 符合 这 一 预期 吗 ? 如 果 不 符 合 ， 你 所 观察 到 的 两 个 算法 速度 的 比值 是 什么 ? 
尔 如 何 解 释 这 一 比值 不 是 2 的 事实 ? 

练习 1.24 ”修改 练习 1.22 的 timed-prime-test 过 程 ， 让 它 使 用 fast~prime? ( 费 马 
方法 ) ， 并 检查 你 在 该 练习 中 找 出 的 12 个 素数 。 因 为 费 马 检查 具有 B(1og n) 的 增长 速度 ,对 
接近 1 000 000 的 素数 检查 与 接近 1000 的 素数 检查 作对 期 望 时 间 之 间 的 比较 有 怎样 的 预期 ? 你 
的 数据 确实 表明 了 这 一 预期 吗 ? 你 能 解释 所 发 现 的 任何 不 符合 预期 的 地 方 吗 ? 

练习 1.25 Alyssa P. Hacker 提 出 ， 在 写 expmod 时 我 们 做 了 过 多 的 额外 工作 。 她 说 ， 毕 况 
我 们 已 经 知道 怎样 计算 乘 寡 ， 因 此 只 需要 简单 地 写 : 


(define (expmod base exp m) 
(remainder (fast-expt base exp) m)) 


她 说 的 对 吗 ? 这 一 过 程 能 很 好 地 用 于 我 们 的 快速 素数 检查 程序 吗 ? 请 解释 这 些 问 题 。 
练习 1.26 Louis Reasoner 在 做 练习 1.24 时 遇 到 了 很 大 困难 ， 他 的 fast-prime? 检 查看 起 
来 运行 得 比 他 的 prime? 检 查 还 慢 。Louis 请 他 的 朋友 Eva Lu Ator 过 来 帮忙 。 在 检查 Louis 的 代 
码 时 ， 两 个 人 发 现 他 重 写 了 expmod 过 程 ， 其 中 用 了 一 个 显 式 的 乘法 ， 而 没有 调用 sguare: 
(define (expmod base exp m) 
(cond ((= exp 0) 1) 
((even? exp) 
(remainder (* (expmod base (/ exp 2) m) 
(expmod base (/ exp 2) m)) 
m)) 
(else 
(remainder (* base (expmod base (- exp 1) m)) 
m)))) C 
“我 看 不 出 来 这 会 造成 什么 不 同 ,”Louis 说 。“ 我 能 看 出 ,”Eva 说 ,“ 采 用 这 种 方式 写 出 该 过 程 
时 ， 你 就 把 一 个 8(log n) 的 计算 过 程 变 成 8(n) 的 了 。” 请 解释 这 一 问题 。 
练习 1.27 证明 脚注 47 中 列 出 的 Carmichael 数 确实 能 骗 过 费 马 检查 。 也 就 是 说 ， 写 一 个 过 
程 ， 它 以 整数 n 为 参数 ， 对 每 个 a <n 检 查 a 是否 与 4 模 n 同 余 。 用 你 的 过 程 去 检查 前 面 给 出 的 那 
些 Carmichael 数 。 e 
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练习 1.28 费 马 检 查 的 一 种 不 会 被 欺骗 的 变形 称 为 Miller-Rabin 检 查 (Miller 1976; Rabin 
1980 )， 它 来 源 于 费 马 小 定理 的 一 个 变形 。 这 一 变形 断言 ， 如 果 n 是 素数 ,a 是 任何 小 于 n 的 整 
数 ， 则 a 的 (x 一 1) 次 窒 与 1 模 r 同 余 。 要 用 Miller-Rabin 检 查考 察 数 4 的 素性 ， 我 们 应 随机 地 取 一 
个 数 a <n 并 用 过 程 expmod 求 4 的 (n -1) RBM NN. Rit, 在 执行 expmod 中 的 平方 步骤 时 ， 
我 们 需要 查看 是 否 遇 到 了 “1 取 模 "的 非 平凡 平方 根 ”， 也 就 是 说 ， 是 不 是 存在 不 等 于 1 或 者 一 
1 的 数 ， 其 平方 取 模 ?等 于 1 。 可 以 证 明 ， 如 果 ! 的 这 种 非 平凡 平方 根 存在 ， 那 么 上 就 不 是 素数 。 
还 可 以 证 明 ， 如 果 n 是 非 素 数 的 奇数 ， 那 么 ， 至 少 有 一 半 的 数 a <n， 按照 这 种 方式 计算 a"!， 
将 会 遇 到 1 取 模 n 的 非 平凡 平方 根 。 这 也 是 Miller-Rabin 检 查 不 会 受骗 的 原因 。 请 修改 expmod 
过 程 ， 让 它 在 发 现 1 的 非 平 凡 平 方 根 时 报告 失败 ， 并 利用 它 实现 一 个 类 似 于 fermat-test 的 
wf, ， 完 成 Miller-Rabin 检查 。 通 过 检查 一 些 已 知 素数 和 非 素数 的 方式 考验 你 的 过 程 。 提 示 : 
送出 失败 信号 的 一 种 简单 方式 就 是 让 它 返 回 0。 


1.3 用 高 阶 函 数 做 抽象 


我 们 已 经 看 到 ， 在 作用 上 ， 过程 也 就 是 一 类 抽象 ， 它 们 描述 了 一 些 对 于 数 的 复合 操作 ， 
但 又 并 不 依赖 于 特定 的 数 。 例 如 ， 在 定义 : 

(define (cube x) (* x x x)) 
时 ， 我 们 讨论 的 并 不 是 某 个 特定 数值 的 立方 ， 而 是 对 任意 的 数 得 到 其 立方 的 方法 。 当 然 ， 我 
们 也 完全 可 以 不 去 定义 这 一 过 程 ， 而 总 是 写 出 下 面 这 样 的 表达 式 : 

(* 3 3 3) 

(* x x x) 

(*yyy) 
并 不 Heie Hebe, 1E, RRR EA CET SAE RS OSE Hh, ER ae CEI 
言 恰好 提供 了 的 那些 特定 基本 操作 (例如 这 里 的 乘法 ) 的 层面 上 工作 ， 而 不 能 基于 更 高 级 的 
操作 去 工作 。 我 们 写 出 的 程序 也 能 计算 立方 ,但 是 所 用 的 语言 却 不 能 表述 立方 这 一 概念 。 人 
们 对 功能 强大 的 程序 设计 语言 有 一 个 必然 要 求 ， 就 是 能 为 公共 的 模式 命名 ， 建 立 抽 象 ， 而 后 
直接 在 抽象 的 层次 上 工作 。 过 程 提 供 了 这 种 能 力 ， 这 也 是 为 什么 除 最 简单 的 程序 语言 外 ， 其 
他 语言 都 包含 定义 过 程 的 机 制 的 原因 。 1 

然而 ， 即 使 在 数值 计算 过 程 中 ， 如 果 将 过 程 限制 为 只 能 以 数 作为 参数 ， 那 也 会 严重 地 限 
制 我 们 建立 抽象 的 能 力 。 经 常 有 一 些 同样 的 程序 设计 模式 能 用 于 若干 不 同 的 过 程 。 为 了 把 这 
种 模式 描述 为 相应 的 概念 ， 我 们 就 需要 构造 出 这 样 的 过 程 ， 让 它们 以 过 程 作为 参数 ， 或 者 以 
过 程 作 为 返回 值 。 这 类 能 操作 过 程 的 过 程 称 为 高 阶 过程 。 本 节 将 展示 高 阶 过 程 如 何 能 成 为 强 
有 力 的 抽象 机 制 ， 极 大 地 增强 语言 的 表述 能 力 。 


1.3.1 过 程 作为 参数 
考虑 下 面 的 三 个 过 程 ， 第 一 个 计算 从 a 到 5 的 各 整数 之 和 : 


(define {sum-integers a b) 
(if (> a b} 
0 
(+ a (sum-integers (+ a 1) b)))) 


第 二 个 计算 给 定 范围 内 的 整数 的 立方 之 和 : 
(define (sum-cubes a b) 
(if (> a b) 
0 
(+ (cube a) (sum-cubes (+ a 1) b)))) 
第 三 个 计算 下 面 的 序列 之 和 : 
1 1 1 
一 一 十 — + 一 一 十 … 
13 5-7 9-41 
它 将 (非常 缓慢 地 ) 收敛 ”到 my/8 : 
(define (pi-sum a b) 
(if (> a b) 
0 
(+ (/ 1.0 (* a (+ a 2))) (pi-sum (+ a 4) b)))) 
可 以 明显 看 出 ， 这 三 个 过 程 共享 着 一 种 公共 的 基础 模式 。 它 们 的 很 大 一 部 分 是 共同 的 ， 
只 在 所 用 的 过 程 名 字 上 不 一 样 : 用 于 从 a 算出 需要 加 的 项 的 函数 ,还 有 用 于 提供 下 一 个 a 值 的 
函数 。 我 们 可 以 通过 填充 下 面 模板 中 的 各 空位 ， 产 生出 上 面 的 各 个 过 程 : 
(define (<name> a b) 
(if (> a b) 
0 
(+ (<term> a) 
(<name> (<next> a) b)))) 
这 种 公共 模式 的 存在 是 一 种 很 强 的 证 据 ， 说 明 这 里 实际 上 存在 着 一 种 很 有 用 的 抽象 ， 在 
那里 等 着 浮现 出 来 。 确 实 ， 数 学 家 很 早 就 认识 到 序列 求 和 中 的 抽象 模式 ， 并 提出 了 专门 的 
“RAI”, n: 


D> f(r) = fla) +--+ FO) 


用 于 描述 这 一 概念 。 求 和 记 法 的 威力 在 于 它 使 数学 家 能 去 处 理 求 和 的 概念 本 身 ， 而 不 只 是 某 
个 特定 的 求 和 -- 一 例如 ， 借 助 它 去 形式 化 某 些 并 不 依赖 于 特定 求 和 序列 的 求 和 结果 。 

与 此 类 似 ， 作 为 程序 模式 ， 我 们 也 希望 所 用 的 语言 足够 强大 ， 能 用 于 写 出 一 个 过 程 
表述 求 和 的 概念 ， 而 不 是 只 能 写 计 算 特 定 求 和 的 过 程 。 我 们 确实 可 以 在 所 用 的 过 程 语言 
到 这 些 ， 只 要 按照 上 面 给 出 的 模式 ， 将 其 中 的 “空位 ”翻译 为 形式 参数 : 

(define (sum term a next b) 

(if (> a b) 
0 


(+ (term a) 
(sum term (next a) next b))})) 


请 注意 ，sum 仍 然 以 作为 下 界 和 上 界 的 参数 a 和 b 为 参数 ， 但 是 这 里 又 增加 了 过 程 参数 term 和 
next 。 使 用 sum 的 方式 与 其 他 函数 完全 一 样 。 例 如 ， 我 们 可 以 用 它 去 定义 sum-cubes (还 
需要 一 个 过 程 inc ， 它 得 到 参数 值 加 一 ): 


9 去 
中 做 


4 这 一 序列 通常 被 写成 与 之 等 价 的 形式 (z4) =1- (1/3) + (1/5) - (1/7) +…。 这 归功 于 菜 布 尼 茨 。 我 们 
将 在 3.5.3 节 看 到 如何 用 它 作为 某 些 数值 技巧 的 基础 。 


(define (inc n) (+ n 1)) 
(define (sum-cubes a b) 
(sum cube a inc Pb)) 
我 们 可 以 用 这 个 过 程 算出 从 1 到 10 的 立方 和 : 
(sum-cubes 1 10) 
3025 
利用 一 个 恒 等 函 数 帮 助 算出 项 值 ， 我 们 就 可 以 基于 sum 定 义 出 sum-integers : 
(define (identity x) x) 
(define (sum-integers a b) 
(sum identity a inc b)) 
而 后 就 可 以 求 出 从 1 到 10 的 整数 之 和 了 : 
(sum-integers 1 10) 
55 
我 们 也 可 以 按 同样 方式 定义 pi~sum”. 
(define (pi-sum a b) 
(define (pi-term x) 
(/ 1.0 (* x (+ x 2)))) 
(define (pi-next x) 
(+ x 4)) 
(sum pi-term a pi-next b)) 
利用 这 一 过 程 就 能 计算 出 r 的 一 个 近似 值 了 : 
(* 8 (pi-sum 1 1000)) 
3.139592655589783 
一 旦 有 了 sum， 我 们 就 能 用 它 作为 基本 构件 ， 去 形式 化 其 他 概念 。 例 如 ， 求 出 函数 /在 范 
围 4 和 4b 之 间 的 定 积分 的 近似 值 ， 可 以 用 下 面 公式 完成 
ff- (et 加 + flavdre) + farza Z) ++- |dx 
其 中 的 dx 是 一 个 很 小 的 值 。 我 们 可 以 将 这 个 公式 直接 描述 为 一 个 过 程 : 
(define (integral f a b dx) 
(define (add-dx x) (+ x dx)) 
(* (sum f (+ a (/ dx 2.0)) add-dx b) 
dx)) 
(integral cube 0 1 0.01) 
.24998750000000042 


{integral cube 0 1 0.001) 
.249999875000001 


(cube 在 0 和 1 间 积 分 的 精确 值 是 1/4。) 
练习 1.29 “辛普森 规则 是 另 一 种 比 上 面 所 用 规则 更 精确 的 数值 积分 方法 。 采 用 辛普森 规 


3 注意 ， 我 们 已 经 用 〈1.1.8 节 介绍 的 ) 块 结构 将 i~next 和 pi-term 幅 入 pi~sum 内 部 ， 因 为 这 些 函 数 不 大 可 
能 用 于 其 他 地 方 。 我 们 将 在 1.3.2 节 说 明 如 何 完全 摆脱 这 种 定义 。 


0 ZS 2 


QU, BRET Be Amb Zi CRO BE : 
Ly, +4y, +2y, +4y, +2y, ++ 2Y, +49, +9, | 


其 中 h =(b 一 a)/n，n 是 某 个 偶数 ， 而 yi =flatkh) 〈 增 大 7 能 提高 近似 值 的 精度 ) 。 请 定义 一 个 
具有 参数 [、a 、5 和 n ， 采 用 辛普森 规则 计算 并 返回 积分 值 的 过 程 。 用 你 的 函数 求 出 cube 在 0 
和 1 之 间 的 积分 (用 n=100 和 和 n=1000)， 并 将 得 到 的 值 与 上 面 用 integral 过 程 所 得 到 的 结果 
比较 。 

练习 1.30 ”上 面 的 过 程 sum 将 产生 出 一 个 线性 递归 。 我 们 可 以 重 写 该 过 程 ， 使 之 能 够 迭代 
地 执行 。 请 说 明 应 该 怎样 通过 填充 下 面 定 义 中 缺少 的 表达 式 ， 完 成 这 一 工作 。 

(define (sum term a next b) 

(define (iter a result) 
(if <??> 
<??> 
(iter <??> <??>))) 
(iter <??> <??>)) 

练习 1.31 a) 过 程 sum 是 可 以 用 高 阶 过 程 表 示 的 大 量 类 似 抽 象 中 最 简单 的 一 个 !。 请 写 出 
一 个 类 似 的 称 为 product 的 过 程 ， 它 返回 在 给 定 范围 中 各 点 的 某 个 函数 值 的 乘积 。 请 说 明 如 
何 用 product 定 义 factorial。 另 请 按照 下 面 公式 计算 x 的 近似 值 ?: 

a 2.4.4.6.6.8.… 
4 3.3:3$.9.7.7. 

b) 如 果 你 的 product 过 程 生成 的 是 一 个 递归 计算 过 程 ， 那 么 请 写 出 一 个 生成 迭代 计算 过 
程 的 过 程 。 如 果 它 生成 一 个 迭代 计算 过 程 ， 请 写 一 个 生成 递归 计算 过 程 的 过 程 。 

练习 1.32 a) 请 说 明 ，sum 和 product (练习 1.31) 都 是 另 一 称 为 accumulate 的 更 一 
般 概念 的 特殊 情况 ，accumulate 使 用 某 些 一 般 性 的 累积 函数 组 合 起 一 系列 项 

(accumulate combiner null-value term a next b) 
accumulate 取 的 是 与 sum 和 product 一 样 的 项 和 范围 描述 参数 ， 再 加 上 一 个 〈 两 个 参数 的 ) 
combiner 过程， 它 描述 如 何 将 当前 项 与 前 面 各 项 的 积累 结果 组 合 起 来 ， 另 外 还 有 一 个 
null-value 参 数 ， 它 描述 在 所 有 的 项 都 用 完 时 的 基本 值 。 请 写 出 accumulate ， 并 说 明 我 
们 能 怎样 基于 简单 地 调用 accumulate， 定 义 出 sum 和 Product 来 。 

b) 如 果 你 的 accumulate 过 程 生成 的 是 一 个 递归 计算 过 程 ， 那 么 请 写 出 一 个 生成 迭代 计 
算 过 程 的 过 程 。 如 果 它 生成 一 个 迭代 计算 过 程 ， 请 写 一 个 生成 北 归 计 算 过 程 的 过 程 。 

练习 1.33 ”你 可 以 通过 引进 一 个 处 理 被 组 合 项 的 过 滤器 (filter) 概念 ， 写 出 一 个 比 
accumulate (练习 1.32) 更 一 般 的 版 本 。 也 就 是 说 ， 在 计算 过 程 中 ， 只 组 合 起 由 给 定 范围 
得 到 的 项 里 的 那些 满足 特定 条 件 的 项 。 这 样 得 到 的 filtered-accumulate 抽 象 取 与 上 面 累 


5 练习 1.31 ~1.33 的 意图 是 阅 释 用 一 个 适当 的 抽象 去 整理 许多 有 狐 似 毫 无 关系 的 操作 ， 所 获得 的 巨大 表达 能 力 。 显 
然 ， 虽 然 累积 和 过 滤器 都 是 很 优美 的 想法 ， 我 们 并 没有 急于 将 它们 用 在 这 里 ， 因 为 我 们 还 没有 数据 结构 的 思 
想 ， 无 法 用 它们 去 提供 组 合 这 些 抽象 的 适当 手 眉 我 们 将 在 2.2.3 节 回 到 这 些 思想 ， 那 时 将 说 明 如 何 用 序列 的 
概念 作为 界面 ， 组 合 起 过 滤器 和 累积 ， 去 构造 出 更 强大 得 多 的 抽象 。 我 们 将 在 那里 看 到 ， 这 些 方法 本 身 如 何 
能 成 为 设计 程序 的 强 有 力 而 又 非常 优美 的 途径 。 

?2 这 一 公式 是 由 17 世 纪 英国 数学 家 John Wallis 发 现 的 。 
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积 过 程 同 样 的 参数 ， 再 加 上 一 个 另外 的 描述 有 关 过 滤器 的 谓词 参数 。 请 写 出 filtered- 
accumulate 作 为 一 个 过 程 ， 说 明 如 何 用 filtered-accumulate 表 达 以 下 内 容 : 

a) 求 出 在 区 间 4 到 中 所 有 素数 之 和 (假定 你 已 经 写 出 了 谓词 Prime? )。 

b) 小 于 n 的 所 有 与 4 互 素 的 正 整 数 ( 即 所 有 满足 GCD(i, n) =1 的 整数 :<n) 之 乘积 。 


1.3.2 用 lambda 构 造 过 程 


在 1.3.1 节 里 用 sum 时 ， 我 们 必须 定义 出 一 些 如 Pi-term 和 pi-next 一 类 的 简单 函数， 以 
便 用 它们 作为 高 阶 函 数 的 参数 ， 这 种 做 法 看 起 来 很 不 舒服 。 如 果 不 需 要 显 式 定义 Pi-term 和 
Pi-next ， 而 是 有 一 种 方法 去 直接 刻画 “那个 返回 其 输入 值 加 4 的 过 程 ”和 “那个 返回 其 输 
入 与 它 加 2 的 乘积 的 倒数 的 过 程 ”， 事 情 就 会 方便 多 了 。 我 们 可 以 通过 引入 一 种 lambda 特 殊 形 
式 完 成 这 类 描述 ， 这 种 特殊 形式 能 够 创建 出 所 需要 的 过 程 。 利 用 lambda， 我 们 就 能 按照 如 下 
方式 写 出 所 需 的 东西 : 


(lambda (x) (+ x 4)) 


和 


(lambda (x) (/ 1.0 (* x (+ x 2)))) 


这 样 就 可 以 直接 描述 pi-sum 过 程 ， 而 无 须 定义 任何 辅助 过 程 了 : 
(define (pi-sum a b) 
(sum (lambda (x) (/ 1.0 (* x (+ x 2)))) 
a 
(lambda (x) (+ x 4)) 
b)) 
借助 于 Lambda， 我 们 也 可 以 写 出 integral 过 程 而 不 需要 定义 辅助 过 程 add-dx ; 


(define (integral f a b dx) 
(* (sum f 
(+ a (/ dx 2.0)) 
(lambda (x) (+ x dx)) 
b) 
dx) ) 


一 般 而 言 ， lambda 用 与 aefine 同 样 的 方式 创建 过 程 ， 除了 不 为 有 关 过 程 提 供 名 字 之 外 : 
(lambda (<formal -Parameters> ) <body>) 
这 样 得 到 的 过 程 与 通过 define 创 建 的 过 程 完 全 一 样 ， 仅 有 的 不 同 之 处 ， 就 是 这 种 过 程 没有 与 
环境 中 的 任何 名 字 相 关联 。 事 实 上 ， 


(define (plus4 x) (+ x 4)) 


等 价 于 
(define plus4 (lambda (x) (+ x 4))) 
我 们 可 以 按 如 下 方式 来 阅读 lambda 表 达 式 : 


{lambda (x). (+ x 4)) 


1 1 1 1 1 


该 过 程 。 ”以 x 为 参数 它 加 起 x 和 4 


像 任何 以 过 程 为 值 的 表达 式 一 样 ， lambda 表 达 式 可 用 作 组 合式 的 运算 符 ， 例如 : 
( (lambda (x y z) (+ x y (square z))) 1 2 3) 
12 
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用 1et 创建 局 部 变量 

lambda 的 另 一 个 应 用 是 创建 局 部 变量 。 在 一 个 过 程 里 ， 除 了 使 用 那些 已 经 约束 为 过 程 参 
数 的 变量 外 ， 我 们 常常 还 需要 另外 一 些 局 部 变量 。 例 如 ， 假 定 我 们 希望 计算 函数 : 

fix, y) =x(1 +xy)? +y —y) + (1 +y ~y) 
可 能 就 希望 将 它 表 述 为 ， 
a=] +y 
b=1 -y 
f(x, y) =xa? + yb tab 


ESTAS 的 过 程 时 ， 我 们 可 能 希望 还 有 几 个 局 部 变量 ,不 止 是 x 和 y ， 还 有 中 间 值 的 名 字 如 a 
和 b。 做 到 这 些 的 一 种 方式 就 是 利用 辅助 过 程 去 约束 局 部 变量 : 


(define (f x y) 
(define (f-helper a b) 
(+ (* x (square a)) 
(* yY b) 
(* a b))) 
(f-helper (+ 1 (* x y)) 
(- 1 y))) 
当然 ， 我 们 也 可 以 用 一 个 lambda 表 达 式 ， 用 以 描述 约束 局 部 变量 的 匿名 过 程 。 这 样 ，f 
的 体 就 变 成 了 一 个 简单 的 对 该 过 程 的 调用 ， 
(define (f x y) 
((lambda (a b) 
(+ (* x (square a)) 
(* y b) 
(* a b))) 
(+ 1 (* x y)) 
(- 1 y))) 
这 一 结构 非常 有 用 ， 因 此 ， 语 言 里 有 一 个 专门 的 特殊 形式 称 为 1et ， 使 这 种 编程 方式 更 为 方 
便 。 利 用 let ， 过 程 f 可 以 写 为 : = 
(define (f x y) 
(let ((a (+ 1 (* x y))) 
(b (- 1 y))) 
(+ (* x (square a)) 
(* Y b) 
(* a b)))) 


3 对 于 学 习 Lisp 的 人 而 言 ， 如 果 用 一 个 比 Llambda 更 明确 的 名 字 ， 如 make-procedure， 可 能 会 觉得 更 清楚 。 
但 是 习惯 成 自然 ， 这 一 记 法 形式 取 自演 算 ， 那 是 由 数理 逻辑 学 家 丘 奇 (Alonzo Church 1941) 引进 的 一 种 数 
学 记 法 ， 为 研究 函数 和 函数 应 用 提供 一 个 严格 的 基础 。 和 演算 已 经 成 为 程序 设计 语言 语义 的 数学 基石 。 
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1et 表 达 式 的 一 般 形 式 是 : 
(let ((<var,> <exp,>) 
(<var2> <exp2> ) 


(<var,> <exp,>) ) 
<body>) 
可 以 将 它 读 作 : 
令 <vari> 具有 值 <expi> 而 且 
<var> RAE <exp.> 而 且 


<VG > 具有 值 <expn> 


在 <body> 中 
let 表达 式 的 第 一 部 分 是 个 名 字 - 表 达 式 对 侦 的 表 ， 当 1let 被 求 值 时 ， 这 里 的 每 个 名 字 将 被 关 


联 于 对 应 表达 式 的 值 。 在 将 这 些 名 字 约 束 为 局 部 变量 的 情况 下 求 值 1et 的 体 。 这 一 做 法 正好 
使 et 表达 式 被 解释 为 替代 如 下 表达 式 的 另 一 种 语法 形式 : 


((lambda (<var|> ...<var,>) 
<body>) 


<exp;> 


<exp,> ) 


这 样 ， 解 释 器 里 就 不 需要 为 提供 局 部 变量 增加 任何 新 机 制 。1et 表 达 式 只 是 作为 其 基础 的 
lambda KER MEHI KET. 
根据 这 一 等 价 关 系 ， 我 们 可 以 认为 ， 由 let 表 达 式 描述 的 变量 的 作用 域 就 是 该 let 的 体 ， 


这 也 意味 着 : < , 
let 使 人 能 在 尽 可 能 接近 其 使 用 的 地 方 建立 局 部 变量 约束 。 例 如 ， 如 果 x 的 值 是 5 ， 下 面 


表达 式 
(+ (let ((x 3)) 
(+ x (* x 10))) 


x) 


就 是 38。 在 这 里 ， 位 于 let 体 里 的 x 是 3， 因 此 这 一 let 表 达 式 的 值 是 33。 另 一 方面 ， 作 


为 最 外 层 的 + 的 第 二 个 参数 的 x 仍然 是 5。 
。 变量 的 值 是 在 let 之 外 计算 的 。 在 为 局 部 变 昔 提 供 值 的 表达 式 依赖 于 某 些 与 局 部 变量 同 


名 的 变量 时 ， 这 一 规定 就 起 作用 了 。 例 如 ， 如 果 x 的 值 是 2 RSA: 
(let ((x 3) 
(Y (+ x 2))) 
(* x y)) 


将 具有 值 12， 因 为 在 这 里 1et 的 体 里 ，x 将 是 3 而 Y 是 4 (其 值 是 外 面 的 x 加 2) 。 
有 了 时 我 们 也 可 以 通过 内 部 定义 得 到 与 let 同 样 的 效果 。 例 如 可 以 将 上 述 f 定 义 为 : 


(define (f x y) 
(define a (+ 1 (* x y))) 


(define b (- 1 y)) 
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(+ (* x (Square a)) 
(* y b) 
(* a b))) 
当然 ， 在 这 种 情况 下 我 们 更 愿意 用 let ， 而 仅 将 define 用 于 内 部 过 程 *。 
练习 1.34 ”假定 我 们 定义 了 : 
(define (f g) 
(g 2)) 
而 后 就 有 : 
(f£ square) 


4 


(f£ (lambda (z) (* z (+ z 1)))) 
6 


如 果 我 们 (坚持) 要 求解 释 器 去 求 值 (f 上 )， 那 会 发 生 什么 情况 呢 ? 请 给 出 解释 。 
1.3.3 过 程 作为 一 般 性 的 方法 


我 们 在 1.1.4 节 里 介绍 了 复合 过 程 ， 是 为 了 作为 一 种 将 若干 操作 的 模式 抽象 出 来 的 机 制 ， 
使 所 描述 的 计算 不 再 依赖 于 所 涉及 的 特定 的 数值 。 有 了 高 阶 过 程 ， 例 如 1.3.1 节 的 jntegral 过 
程 ， 我 们 开始 看 到 一 种 威力 更 强大 的 抽象 ， 它 们 也 是 一 类 方法 。 可 用 于 表述 计算 的 一 般 性 过 
程 ， 与 其 中 所 涉及 的 特定 函数 无 关 。 本 节 将 讨论 两 个 更 精细 的 实例 一 一 找 出 函数 零点 和 不 动 点 
的 一 般 性 方法 ， 并 说 明 如 何 通 过 过 程 去 直接 描述 这 些 方法 。 

通过 区 间 折 半 寻 找 方程 的 根 

RM GEA LEAR fo) =0 根 的 一 种 简单 而 又 强 有 力 的 方法 ， 这 里 的 了 是 一 个 连续 
函数 。 这 种 方法 的 基本 想法 是 ， 如 果 对 于 给 定点 a 和 b 有 fla) <0 <fb)， 那 么 f Ea fnb z i i 
有 一 个 零点 。 为 了 确定 这 个 零点 ， 令 x 是 a 和 5 的 平均 值 并 计算 出 f(x)。 如 果 AX) >0， 那 么 在 a 
和 x 之 间 必 然 有 的 一 个 了 的 零点 ， 如果 f(x) <0， 那 么 在 x 和 b 之 间 必 然 有 的 一 个 了 的 零点 。 继 续 
这 样 做 下 去 ， 就 能 确定 出 越 来 越 小 的 区 间 ， 且 保证 在 其 中 必然 有 /的 一 个 零点 。 当 区 间 “ 足 
够 小 ” 时 ， 就 结束 这 一 计算 过 程 了 。 因 为 这 种 不 确定 的 区 间 在 计算 过 程 的 每 一 步 都 缩小 一 半 ， 
所 需 步 数 的 增长 将 是 B@(log(L/T))， 其 中 L 是 区 闻 的 初始 长 度 ,，T 是 可 容忍 的 误差 ( 即 认 为 “ 足 
够 小 ”的 区 间 的 大 小 )。 下 面 是 一 个 实现 了 这 一 策略 的 过 程 : 

{define (search f neg-point pos-point) 

(let ((midpoint (average neg-point pos-point))) 
(if (close-enough? neg-point pos-point) 
midpoint 
(let ((test-value (f midpoint))) 
(cond ((positive? test-value) 


(search f neg-point midpoint) ) 
((negative? test-value) | 


% 要 很 好 地 理解 内 部 定义 ， 保 证 一 个 程序 的 意义 确实 是 我 们 所 希望 的 那个 意义 ， 实 际 上 要 求 另 一 个 比 我 们 在 本 
章 给 出 的 求 值 计算 过 程 更 精细 的 模型 。 然 而 这 一 难以 捉摸 的 问题 不 会 出 现在 过 程 内 部 定义 方面 。 我 们 将 在 对 
求 值 有 了 更 多 理解 之 后 ， 在 4.1.6 节 回 到 这 一 问题 。 
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(search f midpoint pos-point)) 
(else midpoint)))))) 
假定 开始 时 给 定 了 函数 f， 以 及 使 它 取 值 为 负 和 为 正 的 两 个 点 。 我 们 首先 算出 两 个 给 定点 
的 中 点 ， 而 后 检查 给 定 区 间 是 否 已 经 足够 小 。 如 果 是 的 话 ， 就 返回 这 一 中 点 的 值 作为 回答 ， 
否则 就 算出 了 在 这 个 中 点 的 值 。 如 果 检 查 发 现 得 到 的 这 个 值 为 正 ， 那 么 就 以 从 原来 负 点 到 中 
点 的 新 区 间 继 续 下 去 ， 如 果 这 个 值 为 负 ， 就 以 中 点 到 原来 为 正 的 点 为 新 区 间 并 继续 下 去 。 还 
有 ， 也 存在 着 检测 值 恰好 为 0 的 可 能 性 ， 这 时 中 点 就 是 我 们 所 寻找 的 根 。 
为 了 检查 两 个 端点 是 否 “ 足 够 接近 ”， 我 们 可 以 用 一 个 过 程 ， 它 与 1.1.7 节 计算 平方 根 时 所 
用 的 那个 过 程 很 类 似 ”: 
(define (close-enough? x y) 
(< (abs (- x y)) 0.001)) 
search 很 难 直 接 去 用 ， 因 为 我 们 可 能 会 偶然 地 给 了 它 一 对 点 ， 相 应 的 了 值 并 不 具有 这 个 
过 程 所 需 的 正 负 号 ， 这 时 就 会 得 到 错误 的 结果 。 让 我 们 换 一 种 方式 ， 通 过 下 面 的 过 程 去 用 
search， 这 一 过 程 检查 是 否 某 个 点 具有 负 的 函数 值 ， 另 一 个 点 是 正 值 ， 并 根据 具体 情况 去 调 
用 search 过 程 。 如 果 这 一 函数 在 两 个 给 定点 的 值 同 号 ， 那 么 就 无 法 使 用 折 半 方法 ， 在 这 种 情 
况 下 过 程 发 出 错误 信号 ”。 
(define (half-interval-method f a b) 
(let ((a-value (f a)) 
(b-value (f b))) 
(cond ({and (negative? a-value) (positive? b-value)) 
(search f a b)) 
((and (negative? b-value) (positive? a-value) ) 
(search f b a)) 
(else. . 
(error "Values are not of opposite sign" a b))))) 
下 面 实例 用 折 半 方法 求 x 的 近似 值 ， 它 正好 是 sin x =0 在 2 和 4 之 间 的 根 : 
(half-interval-method sin 2.0 4.0) ' 
3.14111328125 
这 里 是 另 一 个 例子 ， 用 折 半 方法 找 出 人 “一 2x 一 3=0 在 1 和 2 之 间 的 根 : 
thalf- -interval-method (lambda (x) (- (* x x x) (* 2 x) 3)) 
1.0 
2.0) 
1.89306640625 


找 出 函数 的 不 动 点 
数 x 称 为 函数 矿 的 不 动 点 ， 如 果 x 满 足 方程 f(x) =x*。 对 于 某 些 函数 ， 通 过 从 某 个 初始 猜测 
出 发 ， 反 复 地 应 用 了 
FO), FIFO) CCOD .i 


55 这 里 用 0.001 作 为 示意 性 的 “小 ” 数 ,表示 计算 中 可 以 接受 的 容许 误差 。 实 际 计算 中 所 适用 的 容许 误差 依赖 于 
被 求解 的 问题 ， 以 及 计算 机 和 算法 的 限制 。 这 一 问题 常常 需 要 很 细 字 的 考虑 ， 需要 数值 专家 或 者 某 些 其 他 类 


型 术士 们 的 帮助 。 
% error 可 以 完成 此 事 ， 读 过 程 以 几 个 项 作 为 参数 ， 将 它们 打印 出 来 作 为 出 错 信息 。 
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直到 值 的 变化 不 大 时 ， 就 可 以 找到 它 的 一 个 不 动 点 。 根 据 这 个 思路 ， 我 们 可 以 设计 出 一 个 过 
程 fixed~point ， 它 以 一 个 函数 和 一 个 初始 猜测 为 参数 ， 产 生出 该 函数 的 一 个 不 动 点 的 近似 
值 。 我 们 将 反复 应 用 这 个 函数 ， 直 至 发 现 连续 的 两 个 值 之 差 小 于 某 个 事先 给 定 的 容许 值 ; 
(define tolerance 0.00001) 
(define (fixed-point f first-guess) 
(define (close-enough? v1 v2) 
(< (abs (- vl v2)) tolerance) ) 
(define (try guess) 
(let ((next (f guess))) 
(if (close-enough? guess next) 
next 
(try next)))) 
(try first-guess) ) 


例如 ， 下 面 用 这 一 方法 求 出 的 是 余弦 函数 的 不 动 点 ， 其 中 用 1 作为 初始 近似 值 ”: 


(fixed-point cos 1.0) 

-7390822985224023 
类 似 地 ， 我 们 也 可 以 找 出 方程 y = sin y +cos ?的 一 个 解 : 

(fixed-point (lambda (y) (+ (sin y) (cos y))) 

1.0) 

1.2587315962971173 

这 一 不 动 点 的 计算 过 程 使 人 回忆 起 1.1.7 节 里 用 于 找平 方 根 的 计算 过 程 。 两 者 都 是 基于 同 
FENN VE: 通过 不 断 地 改进 猜测 ， 直 至 结果 满足 某 一 评价 准则 为 止 。 事 实 上 ， 我 们 完全 可 以 
将 平方 根 的 计算 形式 化 为 一 个 寻找 不 动 点 的 计算 过 程 。 计 算 某 个 数 x 的 平方 根 ， 就 是 要 找到 一 
Ay iy =x。 将 这 一 等 式 变 成 另 一 个 等 价 形式 y =X/y， 就 可 以 发 现 ， 这 里 要 做 的 就 是 寻找 函 
By F>x/y 的 不 动 点 &。 因 此 ， 可 以 用 下 面 方式 试 着 去 计算 平方 根 : 

(define (sqrt x) f 

(fixed-point (lambda (y) (/ x y)) 
1.0)) 

遗憾 的 是 ， 这 一 不 动 点 搜寻 并 不 收敛 。 考 虑 某 个 初始 猜测 y; ， 下 一 个 猜测 将 是 ?2 =x/y1, 
而 再 下 一 个 猜 铀 是 六 =2/y2 ay) = 为。 结果 是 进入 了 一 个 无 限 循 环 ， 其 中 没完 设 了 地 反复 
出 现 两 个 猜测 yy 和 y: ， 在 答案 的 两 边 往复 振荡 。 

控制 这 类 振荡 的 一 种 方法 是 不 让 有 关 的 猜测 变化 太 剧 烈 。 因 为 实际 答案 总 是 在 两 个 猪 测 y 
和 x/y 之 间 ， 我 们 可 以 做 出 一 个 猜测 ， 使 之 不 像 x/y 那 样 远离 y， 为 此 可 以 用 y 和 x/y 的 平均 值 。 这 
样 ， 我 们 就 取 y 之 后 的 下 一 个 猜测 值 为 (1/2)G +x) 而 不 是 xy 。 做 出 这 种 猜测 序列 的 计算 过 程 
也 就 是 搜寻 yF? A/O +x/y) 的 不 动 点 ; 

(define (sqrt x) 


(fixed-point (lambda (y) (average y (/ x y))) 
1.0)) 


7 在 一 个 没意思 的 课 上 试 试 下 面 计 算 ， BOO MEE BARAK, ， 而 后 反复 按 cos 键 直至 你 得 到 了 这 一 不 


动 点 。 
5s -》( 读 作 “ 映 射 到 ”) 是 数学 家 写 lambda 的 方式 , y Px/) 的 意思 就 是 (lambda (y) (/ x 了 ))， 也 就 是 说 ， 


那个 在 y 处 的 值 为 wy 的 函数 。 
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(请 注意 ，y =(1/2)0 +x) 是 方程 y = zj 经 过 简单 变换 的 结果 ， 导 出 它 的 方式 是 在 方程 两 边 都 
加 y ， 然 后 将 两 边 都 除 以 2 。) 

经 过 这 一 修改 ， 平 方 根 过 程 就 能 正常 工作 了 。 事 实 上 ， 如 果 我 们 仔细 分 析 这 一 定义 ， 那 
么 就 可 以 看 到 ， 它 在 求 平方 根 时 产生 的 近似 值 序列 ， 正 好 就 是 1.1.7 节 原来 那个 求 平方 根 过 程 
产生 的 序列 。 这 种 取 逼 进 一 个 解 的 一 系列 值 的 平均 值 的 方法 ， 是 一 种 称 为 平均 阻尼 的 技术 ， 
它 常常 用 在 不 动 点 搜寻 中 ， 作 为 帮助 收敛 的 手段 。 

练习 1.35 ”请 证 明黄 金 分 割 率 $ (1.2.2 节 ) 是 变换 xfF?1+1Ax 的 不 动 点 。 请 利用 这 一 事实 ， 
通过 过 程 fixed-point 计 算出 $9 的 值 。 

练习 1.36 ”请 修改 fixed-point ， 使 它 能 打印 出 计算 中 产生 的 近似 值 序列 ， 用 练习 1.22 
展示 的 newline 和 display 基 本 过 程 。 而 后 通过 找 出 xFylog(1000)/log(z) 的 不 动 点 的 方式 ， 
确定 x = 1000 的 一 个 根 (请 利用 Scheme 的 基本 过 程 1og， 它 计算 自然 对 数值 ) 。 请 比较 一 下 采 
用 平均 阻尼 和 不 用 平均 阻尼 时 的 计算 步 数 。( 注 意 ， 你 不 能 用 猜测 1 去 启动 fixed-point ， 
因为 这 将 导致 除 以 log(1) =0。) 

练习 1.37 a) 一 个 无 穷 连 分 式 是 一 个 如 下 形式 的 表达 式 .: 


D, +- 


作为 一 个 例子 ， 我 们 可 以 证 明 在 所 有 的 N; 和 D 都 等 于 1 时 ， 这 一 无 穷 连 分 式 产生 出 Jy， 其 中 的 
4 就 是 黄金 分 割 率 ( 见 1.2.2 节 的 描述 )。 逼 进 某 个 无 穷 连 分 式 的 一 种 方法 是 在 给 定数 目的 项 之 
后 截断 ， 这 样 的 一 个 截断 称 为 K 项 有 限 连 分 式 ， 其 形式 是 : 


假定 n 和 dd 都 是 只 有 一 个 参数 (项 的 下 标 i) 的 过 程 ， 它 们 分 别 返 回 连 分 式 的 项 Ni 和 D;。 请 定义 
一 个 过 程 cont-frac, 使 得 对 (cont-frac n d k) 的 求 值 计算 出 k 项 有 限 连 分 式 的 值 。 
通过 如 下 调用 检查 你 的 过 程 对 于 顺序 的 Kk 值 是 否 逼 进 1/$: 
(cont-frac (Lambda (i) 1.0) l 
(lambda (i) 1.0) 
k} 
你 需要 取 多 大 的 k 才 能 保证 得 到 的 近似 值 具 有 十 进 制 的 4 位 精度 ? 
b) 如 果 你 的 过 程 产 生 一 个 递归 计算 过 程 ， 那 么 请 写 另 一 个 产生 迭代 计算 的 过 程 。 如 果 它 
产生 过 代 计 算 ， 请 写 出 另 一 个 过 程 ， 使 之 产生 一 个 递归 计算 过 程 。 
练习 1.38 在 1737 年 ,瑞士 数学 家 莱 昂 哈 德 ， 欧 拉 发 表 了 一 篇 论文 De Fractionibus Continuis , 
文中 包含 了 e -2 的 一 个 连 分 式 展开 ， 其 中 的 e 是 自然 对 数 的 底 。 在 这 一 分 式 中 ，Ni 全 都 是 1 ， 
而 Di 依次 为 1, 2, 1, 1, 4, 1, 1, 6, 1, 1, 8, …。 请 写 出 一 个 程序 ,其 中 使 用 你 在 练习 1.37 中 所 做 的 
cont-frac 过 程 ， 并 能 基于 欧 拉 的 展开 式 求 出 e 的 近似 值 。 


练习 1.39 正切 函数 的 连 分 式 表示 由 德国 数学 家 J.H. Lambert 在 1770 年 发 表 : 


tanx= 一 ~， 


其 中 的 z 用 弧度 表示 。 请 定义 过 程 (tan-cf x k)， 它 基于 Lambert 公 式 计算 正切 函数 的 近似 
值 。k 摘 述 的 是 计算 的 项 数 ， 就 像 练习 1.37 一 样 。 


1.3.4 过程 作为 返回 什 


上 面 的 例子 说 明 ， 将 过 程 作为 参数 传递 ， 能 够 显著 增强 我 们 的 程序 设计 语言 的 表达 能 力 。 
通过 创建 另 一 种 其 返回 值 本 身 也 是 过 程 的 过 程 ， 我 们 还 能 得 到 进一步 的 表达 能 力 。 

我 们 将 阐释 这 一 思想 ， 现 在 还 是 先 来 看 1.3.3 节 最 后 描述 的 不 动 点 例子 。 在 那里 我 们 构造 
出 一 个 平方 根 程序 的 新 版 本 ， 它 将 这 一 计算 看 作 一 种 不 动 点 搜寻 过 程 。 开 始 时 ， 我 们 注意 
到 Vx 就 是 函数 y Px/y 的 不 动 点 ， 而 后 又 利用 平均 阻尼 使 这 一 壳 进 收敛 。 平 均 阻尼 本 身 也 是 一 
种 很 有 用 的 一 般 性 技术 。 很 自然 ， 给 定 了 一 个 函数 之 后 ， 我 们 就 可 以 考虑 另 一 个 函数 ， 它 
在 x 处 的 值 等 于 x 和 f(x) 的 平均 值 。 

我 们 可 以 将 平均 阻尼 的 思想 表述 为 下 面 的 过 程 : 

(define (average-damp f) . 

(lambda (x) (average x (f x)))) 


这 里 的 average-damp 是 一 个 过 程 ， 它 的 参数 是 一 个 过 程 E ， 返 回 值 是 另 一 个 过 程 (通过 
lambda 产 生 ) ， 当 我 们 将 这 一 返回 值 过 程 应 用 于 数 x 时 ， 得 到 的 将 是 x 和 (E x) 的 平均 值 。 
例如 ， 将 average-damp 应 用 于 square 过 程 ， 就 会 产生 出 另 一 个 过 程 ， 它 在 数值 zx 处 的 值 就 
是 x 和 刀 的 平均 值 。 将 这 样 得 到 的 过 程 应 用 于 10， 将 返回 10 与 100 的 平均 值 557 : 


((average-damp square) 10) 
55 


利用 average-damp ， 我 们 可 以 重 做 前 面 的 平方 根 过 程 如 下 : 


(define (sqrt x) 
(fixed-point, (average-damp (lambda (y) (/ x y))). 
1.0)) 


请 注意 ， 看 看 上 面 这 一 公式 中 怎样 把 三 种 思想 结合 在 同一 个 方法 里 : 不 动 点 搜寻 ， 平 均 阻尼 
和 函数 y 上 x/y 。 拿 这 一 平方 根 计算 的 过 程 与 1.1.7 节 给 出 的 原来 版 本 做 一 个 比较 ， 将 是 很 有 教 
益 的 。 请 记 住 ， 这 些 过 程 表述 的 是 同一 计算 过 程 ， 也 应 注意 ， 当 我 们 利用 这 些 抽象 描述 该 计 
算 过 程 时 ， 其 中 的 想法 如 何 变 得 更 加 清晰 了 。 将 一 个 计算 过 程 形式 化 为 一 个 过 程 ， 一 般 说 ， 
存在 很 多 不 同 的 方式 ， 有 经 验 的 程序 员 知道 如 何 选择 过 程 的 形式 ， 使 其 特别 地 清晰 且 易 理解 ， 
使 该 计算 过 程 中 有 用 的 元 素 能 表现 为 一 些 相互 分 离 的 个 体 ， 并 使 它们 还 可 能 重新 用 于 其 他 的 
应 用 。 作 为 重用 的 一 个 简单 实例 ， 请 注意 < 的 立方 根 是 函数 y Px/ 的 不 动 点 ， 因 此 我 们 可 以 立 


» 请 注意 看 ， 这 就 是 一 个 其 中 的 运算 符 本 身 也 是 一 个 组 合式 的 组 合式 。 练 习 1.4 已 经 阑 释 了 描述 这 种 形式 的 组 合 
式 的 能 力 ， 但 那里 用 的 是 一 个 玩具 例子 。 在 这 里 可 以 看 到 ， 在 应 用 一 个 作为 高 阶 函数 的 返回 值 而 得 到 的 函数 
时 ， 我 们 确实 需要 这 种 形式 的 组 合式 。 
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刻 将 前 面 的 平方 根 过 程 推 广 为 一 个 提取 立方 根 的 过 程 ”: 


(define (cube-root x) 
(fixed-point (average-damp {lambda (y) (/ x (square y)))) 
1.0)) 


牛顿 法 

在 1.1.7 节 介绍 平方 根 过 程 时 曾经 提 到 和 牛顿 法 的 一 个 特殊 情况 。 如 果 x 8(X) 是 一 个 可 微 
函数 ， 那 么 方程 s(x) =0 的 一 个 解 就 是 函数 zh fx) 的 一 个 不 动 点 ， 其 中 : 
8x) 

Dg(x) 

这 里 的 Dg(x) 是 8 对 *x 的 导数 。 牛 顿 法 就 是 使 用 我 们 前 面 看 到 的 不 动 点 方法 ， 通 过 搜寻 函数 /的 
不 动 点 的 方式 ， 去 逼近 上 述 方程 的 解 4。 对 于 许多 函数 ， 以 及 充分 好 的 初始 猜测 x， 和 牛顿 法 都 
能 很 快 收敛 到 g(x) =0 的 一 个 解 ”。 

站 现 为 一 个 过 程 ， 我 们 首先 必须 描述 导数 的 思想 。 请 注意 , “导数 ”不 像 
平均 阻尼 ， 它 是 从 函数 到 函数 的 一 种 变换 。 例 如 ， 函 数 x DH 的 导数 是 另 一 个 函数 x FF 32’, 
一 般 而 言 ， Ike Brad PB, 那么 8 的 导数 在 任 一 数值 xz 的 值 由 下 面 函数 
(作为 很 小 的 数 dx 的 极限 ) 给 出 : 


faœ)=x- 


g(x + dx) ~ g(x) 


Dg(x) = ie 


这 样 ， 我 们 就 可 以 用 下 面 过 程 描述 导数 的 概念 (例如 取 dx 为 0.00001 ): 
(define (deriv 9) 
(lambda (x) 
(/ (- (g (+ x dx)) (g x)) 
dx))) 
再 加 上 定义 : 


(define dx 0.00001) 

与 average-damp 一样 ，deriv 也 是 一 个 以 过 程 为 参数 ， 并 且 返 回 一 个 过 程 值 的 过 程 。 
例如 ， 为 了 求 出 函数 x be 好 在 5 的 导数 的 近似 值 (其 精确 值 为 75) ， 我 们 可 以 求 值 ， 

(define (cube x) (* x x x)) 

((deriv cube) 5) 

75. 00014999664018 

有 了 deriv 之 后 ， 和 牛顿 法 就 可 以 表述 为 一 个 求 不 动 点 的 过 程 了 : 


(define (newton-transform g) 
(lambda (x) 
(- x (/ (g x) ((deriv g) x))))) 


© 进一步 推广 参见 练习 1.45 。 
4 基础 微 积分 书籍 中 通常 将 牛顿 法 描述 为 逼 进 序列 Xn +1 = tn — 8OW)/D Bn) 。 有 了 能 够 描述 计算 过 程 的 语言 ， 采 


用 了 不 动 点 的 思想 ， 这 一 方法 的 描述 也 得 到 了 简化 。 
牛顿 法 并 不 保证 能 收敛 到 一 个 答案 。 我 们 还 可 以 证 明 ,在 顺利 的 情况 下 ， 每 次 迭代 将 使 解 的 近似 值 的 有 效 数 
字 位 数 加 倍 。 在 处 理 这 些 情况 时 ， 牛 顿 法 将 比 折 半 法 的 收敛 速度 快 得 多 。 


(define (newtons-method g guess) 
(fixed-point (newton-transform g) guess)) 


newton-transform 过 程 描述 的 就 是 在 本 节 开 始 处 的 公式 ， 基 于 它 去 定义 hnewtons- 
method 已 经 很 容易 了 。 这 一 过 程 以 一 个 过 程 为 参数 ， 它 计算 的 就 是 我 们 希望 去 找到 零点 的 函 
数 ， 这 里 还 需要 给 出 一 个 初始 猜测 。 例 如 ， 为 确定 x 的 平方 根 ， 可 以 用 初始 猜测 1 ， 通 过 牛顿 
BER BBO DY 一 x 的 零点 ”。 这 样 就 给 出 了 求 平方 根 函 数 的 另 一 种 形式 : 
(define (sqrt x) 
(newtons-method (lambda (y) (- (square y) x)) 
1.0)) 


抽象 和 第 一 级 过 程 

上 面 我 们 已 经 看 到 用 两 种 方式 ， 它 们 都 能 将 平方 根 计算 表述 为 某 种 更 一 般 方法 的 实例 ， 
一 个 是 作为 不 动 点 搜寻 过 程 ， 另 一 个 是 使 用 牛顿 法 。 因 为 牛顿 法 本 身 表 述 的 也 是 一 个 不 动 点 
的 计算 过 程 ， 所 以 我 们 实际 上 看 到 了 将 平方 根 计算 作为 不 动 点 的 两 种 形式 。 每 种 方法 都 是 从 
一 个 函数 出 发 ， 找 出 这 一 函数 在 某 种 变换 下 的 不 动 点 。 我 们 可 以 将 这 一 具有 普遍 性 的 思想 表 
述 为 一 个 函数 : 


(define (fixed-point-of-transform g transform guess) 
(fixed-point (transform g) guess) ) 


这 个 非常 具有 一 般 性 的 过 程 有 一 个 计算 某 个 函数 的 过 程 参数 g ， 一 个 变换 g 的 过 程 ， 和 一 个 初 
始 猜测 ， 它 返回 经 过 这 一 变换 后 的 函数 的 不 动 点 。 

我 们 可 以 利用 这 一 一 抽象 重新 塑造 本 节 的 第 一 个 平方 根 计算 【搜寻 yr> x 在 平均 阻尼 下 的 
不 动 点 ) ， 以 它 作 为 这 个 一 般 性 方法 的 实例 : 


(define (sqrt x) 
(fixed-point-of-transform (lambda (y) (/ x y)) 
average-damp 
1.0)) 


与 此 类 似 ， 我 们 也 可 以 将 本 节 的 第 二 个 平方 根 计 算 (是 用 牛顿 法 搜寻 y》F 六 一 x* 的 牛顿 变换 的 
实例 ) 重新 描述 为 : 
(define (sqrt x) 
(fixed-point-of-transform (lambda (y) (- (square y) x)) 
newton-transform 
1.0)) 


我 们 在 1.3 节 开始 时 研究 复合 过 程 ， 并 将 其 作为 一 种 至 关 重要 的 抽象 机 制 ， 因 为 它 使 我 们 
能 将 一 般 性 的 计算 方法 ， 用 这 一 程序 设计 十 言 里 的 元 素 明确 描述 。 现 在 我 们 又 看 到 ， 高 阶 函 
数 能 如 何 去 操 作 这 些 一 般 性 的 方法 ， 以 便 建 立 起 进一步 的 抽象 。 

作为 编程 者 ， 我 们 应 该 对 这 类 可 能 性 保持 高 度 敏感 ， 设 法 从 中 识别 出 程序 里 的 基本 抽象 ， 
基于 它们 去 进一步 构造 ， 并 推广 它们 以 创建 威力 更 加 强大 的 抽象 。 当 然 ， 这 并 不 是 说 总 应 该 
采用 尽 可 能 抽象 的 方式 去 写 程序 ， 程 序 设计 专家 们 知道 如 何 根据 工作 中 的 情况 ， 去 选择 合适 
的 抽象 层次 。 但 是 ， 能 基于 这 种 抽象 去 思考 确实 是 最 重要 的 ， 只 有 这 样 才 可 能 在 新 的 上 下 文 
中 去 应 用 它们 。 高 阶 过 程 的 重要 性 ， 就 在 于 使 我 们 能 显 式 地 用 程序 设计 语言 的 要 素 去 描述 这 


对 于 寻找 平方 根 而 言 ， 牛 顿 法 可 以 从 任意 点 出 发 迅速 收敛 到 正确 的 答案 。 
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些 抽象 ， 使 我 们 能 像 操 作 其 他 计算 元 素 一 样 去 操作 它们 。 

一 般 而 言 ， 程 序 设 计 语 言 总 会 对 计算 元 素 的 可 能 使 用 方式 强加 上 某 些 限 制 。 带 有 最 少 限 
制 的 元 素 被 称 为 具有 第 一 级 的 状态 。 第 一 级 元 素 的 某 些 “权利 或 者 特权 ”包括 ”: 

* 可 以 用 变量 命名 ， 

* 可 以 提供 给 过 程 作为 参数 ， 

* 可 以 由 过 程 作为 结果 返回 ， 

* 可 以 包含 在 数据 结构 中 。 
Lisp 不 像 其 他 程序 设计 语言 ， 它 给 了 过 程 完 全 的 第 一 级 状态 。 这 就 给 有 效 实现 提出 了 挑战 ， 
但 由 此 所 获得 的 描述 能 力 却 是 极其 惊人 的 ”。 

练习 1.40 ”请 定义 一 个 过 程 cCubic， 它 和 newtons-method 过 程 一 起 使 用 在 下 面 形式 的 
表达 式 里 ; 

(newtons~method (cubic a b c) 1) 
AEH HRB +ax +bx+c 的 零点 。 

练习 1.41 ”请 定义 一 个 过 程 double ， 它 以 一 个 有 一 个 参数 的 过 程 作为 参数 ，doub1e 返 
回 一 个 过 程 。 这 一 过 程 将 原来 那个 参数 过 程 应 用 两 次 。 例 如 ， 若 inc 是 个 给 参数 加 1 的 过 程 ， 
(double inc) 将 给 参数 加 2 。 下 面 表达 式 返 回 什么 值 : 

(((double (double double)) inc) 5) 

练习 1.42 Af 和 g 是 两 个 单 参数 的 函数 , f 在 8 之 后 的 复合 定义 为 函数 x HSE). He 
义 一 个 函数 compose 实 现 函 数 复合 2 例如， 如 果 inc 是 将 参数 加 1 的 函数 ， 那 么 : 


((compose square inc) 6) 
49 


练习 1.43 ”如 果 f 是 一 个 数值 函数 ，n 是 一 个 正 整 数 ， 那 么 我 们 可 以 构造 出 f 的 n 次 重复 应 
用 ， 将 其 定义 为 一 个 函数 ， 这 个 函数 在 + 的 值 是 太太 …( 有 AX?))…))。 举 例 说 ， 如 果 f 是 函数 x 上 
x 二 1，1m 次 重复 应 用 三 就 是 函数 xz x +n。 如 果 f 是 求 一 个 数 的 平方 的 操作 ，n 次 重复 应 用 f 就 
求 出 其 参数 的 2" 次 署 。 请 写 一 个 过 程 ， 它 的 输入 是 一 个 计算 了 的 过 程 和 一 个 正 整 数 +*， 返 回 的 
是 能 计算 f 的 n 次 重复 应 用 的 那个 函数 。 你 的 过 程 应 该 能 以 如 下 方式 使 用 : 

((repeated square 2) 5) 

625 

提示 : 你 可 能 发 现 使 用 练习 1.42 的 compose 能 带 来 一 些 方便 。 

练习 1.44 ”平滑 一 个 函数 的 想法 是 信号 处 理 中 的 一 个 重要 概念 。 如 果 f 是 一 个 函数 ，dx 是 
某 个 很 小 的 数值 WA 的 平滑 也 是 一 个 函数 ， 它 在 点 x 的 值 就 是 f(x dx), f) 和 f(x +x) 
的 平均 值 。 请 写 一 个 过 程 smooth， 它 的 输入 是 一 个 计算 了 的 过 程 ， 返 回 一 个 计算 平滑 后 的 f 
的 过 程 。 有 时 可 能 发 现 ， 重 复 地 平滑 一 个 函数 ， 得 到 经 过 n 次 平滑 的 函数 (也 就 是 说 ， 对 平滑 
后 的 函数 再 做 平滑 ， 等 等 ) 也 很 有 价值 。 说 明 怎 样 利用 smooth 和 练习 1.43 的 repeated， 对 
给 定 的 函数 生成 "次 平 请 函数 。 

% 程序 设计 语言 元 素 的 第 一 级 状态 的 概念 应 归功 于 英国 计算 机 科学 家 Christopher Strachey (1916-1975) 。 

S 我 们 将 在 第 2 章 介绍 了 数据 结构 之 后 看 到 这 方面 的 例子 。 


% 实现 第 一 级 过 程 的 主要 代价 是 ， 为 使 过 程 能 够 作为 值 返回 ， 我 们 就 需要 为 过 程 里 的 自由 变量 保留 空间 ， 即 使 
这 一 过 程 并 不 执行 。 在 4.1 节 有 关 Scheme 实 现 的 研究 中 ， 这 些 变量 都 被 存储 在 过 程 的 环境 里 。 
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练习 1.45 ”在 1.3.3 节 里 ， 我 们 看 到 企图 用 朴素 的 方法 去 找 y H zj 的 不 动 点 ， 以 便 计 算 平 
方 根 的 方式 不 收敛 ， 这 个 缺陷 可 以 通过 平均 阻尼 的 方式 弥补 。 同 样 方法 也 可 用 于 找 立 方 根 ， 
”将 它 看 做 是 平均 阻尼 后 的 y O zy 的 不 动 点 。 遗憾 的 是 , 这 一 计算 过 程 对 于 四 次 方 根 却 行 不 通 ， 
一 次 平均 阻尼 不 足以 使 对 y Db XW 的 不 动 点 搜寻 收敛 。 而 在 另 一 方面 ， 如 果 我 们 求 两 次 平均 阻 
fe (BN, Fay e x/ 的 平均 阻尼 的 平均 阻尼 )， 这 一 不 动 点 搜寻 就 会 收敛 了 。 请 做 一 些 试验 ， 
考虑 将 计算 n 次 方 根 作为 基于 y FF x/y”! 的 反复 做 平均 阻尼 的 不 动 点 搜寻 过 程 ， 请 设法 确定 各 
种 情况 下 需要 做 多 少 次 平均 阻尼 。. 并 请 基于 这 一 认识 实现 一 个 过 程 ， 它 使 用 fixeq-point、 
average-damp 和 练习 1.43 的 repeated 过 程 计算 n 次 方 根 。 假 定 你 所 需要 的 所 有 算术 运算 都 
是 基本 过 程 。 

练习 1.46 “本章 描述 的 一 些 数值 算法 都 是 迭代 式 改进 的 实例 。 选 代 式 改进 是 一 种 非常 具 
有 一 般 性 的 计算 策略 ， 它 说 的 是 : 为 了 计算 出 某 些 东西 ， 我 们 可 以 从 对 答案 的 某 个 初始 猜测 
开始 ， 检 查 这 一 猜测 是 否 足够 好 ， 如 果 不 行 就 改进 这 一 猜测 ， 将 改进 之 后 的 猜测 作为 新 的 猜 
测 去 继续 这 一 计算 过 程 。 请 写 一 个 过 程 terative-improve， 它 以 两 个 过 程 为 参数 : 其 
中 之 一 表示 告知 某 一 猜测 是 否 足 够 好 的 方法 ， 另 一 个 表示 改进 猜测 的 方法 。iterative- 
improve 的 返回 值 应 该 是 一 个 过 程 ， 它 以 某 一 个 猜测 为 参数 ， 通 过 不 断 改进 ， 直 至 得 到 的 猜 
测 足够 好 为 止 。 利 用 iterative-improve 重 写 1.1.7 节 的 sqrt 过 程 和 1.3.3 节 的 fixed- 
point 过 程 。 


第 2 章 构造 数据 抽象 


5 现在 到 了 数学 抽象 中 最 关键 的 一 步 : 让 我 们 忘记 这 
( 数学 家 ) 不 应 在 这 里 停 步 ， 有 许多 操作 可 以 应 用 于 这 些 
到 底 代 表 着 什么 东西 。 


些 符 号 所 表示 的 对 象 。…… 
符号 ， 而 根本 不 考虑 它们 


Hermann Weyl, He Mathematical Wig of Thinking 
(思维 的 数学 方式 ) 


我 们 在 第 1 章 里 关注 的 是 计算 过 程 ， 以 及 过 程 在 程序 中 所 扮演 的 角色 。 在 那里 我 们 还 看 到 
了 怎样 使 用 基本 数据 ( 数 ) 和 基本 操作 (算术 运算 ) ; 怎样 通过 复合 、 条 件 ， 以 及 参数 的 使 
用 将 一 些 过 程 组 合 起 来 ， 形 成 复合 的 过 程 ， 怎 样 通过 define 做 过 程 抽 象 。 我 们 也 看 到 ， 可 以 
将 一 个 过 程 看 作 一 类 计算 演化 的 一 个 模式 。 那 里 还 对 过 程 中 蕴涵 着 的 某 些 常见 计算 模式 做 了 
一 些 分 类 和 推理 ， 并 做 了 一 些 简单 的 算法 分 析 。 我 们 也 看 到 了 高 阶 过 程 ， 这 种 机 制 能 够 提升 
语言 的 威力 ， 因 为 它 将 使 我 们 能 去 操纵 通用 的 计算 方法 ， 并 能 对 它们 做 推理 。 这 些 都 是 程序 
设计 中 最 基本 的 东西 。 

在 这 一 章 里 ， 我 们 将 进一步 去 考查 更 复杂 的 数据 。 第 1 章 里 的 所 有 过 程 ， 操 作 的 都 是 简单 
的 数值 数据 ， 而 对 我 们 希望 用 计算 去 处 理 的 许多 问题 而 言 ， 只 有 这 种 简单 数据 还 不 够 。 许 多 
程序 在 设计 时 就 是 为 了 模拟 复杂 的 现象 ， 因 此 它们 就 常常 需要 构造 起 一 些 计算 对 象 ， 这 些 对 
象 都 是 由 一 些 部 分 组 成 的 ， 以 便 去 模拟 真实 世界 里 的 那些 具有 若干 侧面 的 现象 。 这 样 ， 与 我 
们 在 第 ! 章 里 所 做 的 事情 (通过 将 一 些 过 程 组 合 起 来 形成 复合 的 过 程 ， 以 这 种 方式 构造 起 各 种 
mA) 相对 应 ， 本 章 将 重点 转 到 各 种 程序 设计 语言 都 包含 的 另 一 个 关键 方面 : 讨论 它们 所 提 
供 的 ， 将 数据 对 象 组 合 起 来 ， 形 成 复合 数据 的 方式 。 

为 什么 在 程序 设计 语言 里 需要 复合 数据 呢 ? 与 我 们 需要 复合 过 程 的 原因 一 样 : 同样 是 为 
了 提升 我 们 在 设计 程序 时 所 位 于 的 概念 层次 ， 提 高 设计 的 模块 性 ， 增 强 语言 的 表达 能 力 。 正 
如 定义 过 程 的 能 力 使 我 们 有 可 能 在 更 高 的 概念 层次 上 处 理 计 算 工 作 一 样 ， 能 够 构造 复合 数据 
的 能 力 ， 也 将 使 我 们 得 以 在 比 语 言 提供 的 基本 数据 对 象 更 高 的 概念 层次 上 ， 处 理 与 数据 有 关 
的 各 种 问题 。 è 

现在 考虑 设计 一 个 系统 ， 它 完成 有 理 数 的 算术 。 我 们 可 以 设想 一 个 运算 add-zat ， 它 以 
两 个 有 理 数 为 参数 ， 产 生出 它们 的 和 。 从 基本 数据 出 发 ， 一 个 有 理 数 可 以 看 作 两 个 整数 ， 一 
个 分 子 和 一 个 分 母 。 这 样 ， 我 们 就 可 以 设计 出 一 个 程序 ， 其 中 的 每 个 有 理 数 用 两 个 整数 表示 
(一 个 分 子 和 一 个 分 母 )， 而 其 中 的 add~rat 用 两 个 过 程 实现 (一 个 产生 和 数 的 分 子 ， 另 一 个 
产生 和 数 的 分 母 ) 。 然 而 ， 这 样 做 下 去 会 非常 难受 ， 因 为 我 们 必须 明确 地 始终 记 住 哪个 分 子 与 
哪个 分 母 相互 对 应 。 在 一 个 需要 执行 大 量 有 理 数 操作 的 系统 里 ， 这 种 记录 工作 将 会 严重 地 搅 
乱 我 们 的 程序 ， 而 这 些 麻烦 又 与 我 们 心中 真正 想 做 的 事情 毫 无 关系 。 如 果 能 将 一 个 分 子 和 一 
个 分 母 “ 粘 在 一 起 ”， 形 成 一 个 对 侦 一 一 一 个 复合 数据 对 和 象 一 一 事情 就 会 好 得 多 了 ， 因 为 这 样 ， 
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程序 中 对 有 理 数 的 操作 就 可 以 按照 将 它们 作为 一 个 概念 单位 的 方式 进行 了 。 

复合 数据 的 使 用 也 使 我 们 能 进一步 提高 程序 的 模 鼎 性 。 如 果 我 们 可 以 直接 在 将 有 理 数 
本 身 当 作 对 象 的 方式 下 操作 它们 ， 那么 也 就 可 能 把 处 理 有 理 数 的 那些 程序 部 分 ， 与 有 理 数 
如 何 表 示 的 细节 (可 能 是 表示 为 一 对 整数 ) 隔离 开 。 这 种 将 程序 中 处 理 数据 对 象 的 表示 的 
部 分 ， 与 处 理 数据 对 象 的 使 用 的 部 分 相互 隔离 的 技术 非常 具有 一 般 性 ， 形 成 了 一 种 称 为 数 
据 抽象 的 强 有 力 的 设计 方法 学 。 我 们 将 会 看 到 ， 数 据 抽象 技术 能 使 程序 更 容易 设计 、 维 护 
和 修改 。 

复合 对 象 的 使 用 将 真正 提高 程序 设计 语言 的 表达 能 力 。 考 虑 形成 “线性 组 合 ”ax +by， 
我 们 可 能 想到 写 一 个 过 程 ， 让 它 接受 4a、b、x 和 y 作 为 参数 并 返回 ax +by 的 值 。 如 果 以 数值 作 
为 参数 ， 这 样 做 没有 任何 困难 ， 因 为 我 们 立刻 就 能 定义 出 下 面 的 过 程 : 

(define (linear-combination a b x y) 

(+ (* a x) (* by))) 
但 是 ， 如 果 我 们 关心 的 不 仅仅 是 数 ， 假 定 在 写 这 个 过 程 时 ， 我 们 希望 表述 的 是 基于 加 和 乘 形 
成 线性 组 合 的 思想 ， 所 针对 的 可 以 是 有 理 数 、 复 数 、 多 项 式 或 者 其 他 东西 ， 我们 可 能 将 其 表 
述 为 下 面 形式 的 过 程 : l 

(define (linear-combination a b x y) 

(add (mul a x) (mul b y))) 


其 中 的 add 和 mul 不 是 基本 过 程 十 和 *, 而 是 某 些 更 复杂 的 东西 ， 它 们 能 对 通过 参数 a 、b、 
x 和 y 送 来 的 任何 种 类 的 数据 执行 适当 的 操作 。 在 这 里 最 关键 的 是 , linear-combination 
对 于 a 、b 、x 和 y 需 要 知道 的 所 有 东西 ， 也 就 是 过 程 add 和 mul 能 够 执行 适当 的 操作 。 从 过 程 
linear-combination 的 角度 看 ,，a、b、x 和 Yy 究竟 是 什么 ， 其 实 根本 就 没有 关系 ， 至 于 它 
们 是 怎样 基于 更 基本 的 数据 表示 就 更 没有 关系 了 。 这 个 例子 也 说 明了 ， 为 什么 一 种 程序 设计 
语言 能 够 提供 直接 操作 复合 对 象 的 能 力 是 如 此 的 重要 ， 因 为 如 果 没 有 这 种 能 力 ， 我 们 就 没有 
办 法 让 一 个 像 l1inear~combination 这 样 的 过 程 将 其 参数 传递 给 add 和 mul ， 而 不 必 知 道 这 
些 参 数 的 具体 细节 结构 和”。 

作为 本 章 的 开始 ， 我 们 要 实现 上 面 所 说 的 那样 一 个 有 理 数 算术 系统 ， 它 将 成 为 后 面 讨论 
复合 数据 和 数据 抽象 的 一 个 基础 。 与 复合 过 程 一 样 ， 在 这 里 需要 考虑 的 主要 问题 ， 也 是 将 抽 
象 作 为 克服 复杂 性 的 一 种 技术 。 下 面 将 会 看 到 ， 数 据 抽象 将 如 何 使 我 们 能 在 程序 的 不 同 部 分 
之 间 建 立 起 适当 的 抽象 屏障 。 

我 们 将 会 看 到 ， 形 成 复合 数据 的 关键 就 在 于 ， 程 序 设计 语言 里 应 该 提供 了 某 种 “黏合 剂 ”， 
它们 可 以 用 于 把 一 些 数据 对 象 组 合 起 来 ， 形 成 更 复杂 的 数据 对 象 。 黏 合剂 可 能 有 很 多 不 同 的 
种 类 。 确实 的 ， 我 们 还 会 发 现 怎样 去 构造 出 根本 没有 任何 特定 “数据 ”操作 ， 只 是 由 过 程 形 
成 的 复合 数据 。 这 将 进一步 模糊 “过 程 ” 和 “数据 ”之 间 的 划分 。 实 际 上 ， 在 第 1 章 的 最 后 ， 
这 一 界限 已 经 开始 变 得 不 那么 清楚 了 。 我 们 还 要 探索 表示 序列 和 树 的 一 些 常 规 技术 。 在 处 理 


9 直接 操作 过 程 的 能 力 ， 也 使 程序 设计 语言 的 表达 能 力 得 到 类 似 的 提高 。 例 如 ， 在 1.3.1 节 里 给 出 了 过 程 sum， 
它 以 过 程 term 作 为 一 个 参数 ， 计 算出 term 在 某 个 特定 区 闻 上 的 值 之 和 。 为 了 定义 这 一 suR， 必 不 可 少 的 条 
件 就 是 能 直接 去 说 像 term 这 样 的 过 程 ， 而 不 必 考 虐 它 可 能 如 何 通 过 更 基本 的 操作 表达 出来。 的 确 ， 如 果 没 有 
“过 程 " 这 一 概念 ， 认 为 我 们 有 可 能 定义 像 sum 这 样 的 操作 就 很 值得 怀疑 了 。 进 一 步 说 ， 就 执行 求 和 而 言 ， 
term 究 竟 能 怎样 由 更 基本 的 操作 构造 起 来 的 情况 ， 确 实 也 没 必要 去 关心 。 
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能 用 于 组 合 基本 的 数据 对 象 ， 同 样 也 可 以 用 于 复合 的 数据 对 象 。 另 一 关键 思想 是 ， 复 合 数据 
对 象 能 够 成 为 以 混合 与 匹配 的 方式 组 合 程序 模块 的 方便 界面 。 我 们 将 通过 给 出 一 个 利用 闭 包 
概念 的 简单 图 形 语 言 的 方式 ， 曾 释 有 关 的 思想 。 

而 后 我 们 要 引进 符号 表达 式 ， 进 一 步 扩大 语言 的 表述 能 力 。 符 号 表达 式 的 基本 部 分 可 以 
是 任意 的 符号 ， 不 一 定 就 是 数 。 我 们 将 探索 表示 对 象 集合 的 各 种 不 同方 式 ， 由 此 可 以 发 现 ， 
就 像 一 个 给 定 的 数学 函数 可 以 通过 许多 不 同 的 计算 过 程 计 算 一 样 ， 对 于 一 种 给 定 的 数据 结构 ， 
也 可 以 有 许多 方式 将 其 表示 为 简单 对 象 的 组 合 ， 而 这 种 表示 的 选择 ， 有 可 能 对 操作 这 些 数据 
的 计算 过 程 的 时 间 与 空间 需求 造成 重大 的 影响 。 我 们 将 在 符号 微分 、 集 合 的 表示 和 信息 编码 
的 上 下 文中 研究 这 些 思想 。 
随后 我 们 将 转 去 处 理 在 一 个 程序 的 不 同 部 分 可 能 采用 不 同 表示 的 数据 的 问题 ， 这 就 引出 
了 实现 通用 型 操作 的 需要 ， 这 种 操作 必须 能 处 理 许 多 不 同 的 数据 类 型 。 为 了 维持 模块 性 ， 通 
用 型 操作 的 出 现 ， 将 要 求 比 只 有 简单 数据 抽象 更 强大 的 抽象 屏障 。 特 别 地 ， 我 们 将 介绍 数据 
导向 的 程序 设计 。 这 是 一 种 技术 ， 它 能 允许 我 们 孤立 地 设计 每 一 种 数据 表示 ， 而 后 用 添加 的 
方式 将 它们 组 合 进去 (也 就 是 说 ， 不 需要 任何 修改 )。 为 了 展示 这 一 系统 设计 方法 的 威力 ， 在 
本 章 的 最 后 ， 我 们 将 用 已 经 学 到 的 东西 实现 一 个 多 项 式 符号 算术 的 程序 包 ， 其 中 多 项 式 的 系 
数 可 以 是 整数 、 有 理 数 、 复 数 ， 其 至 还 可 以 是 其 他 多 项 式 。 


2.1 数据 抽象 导 引 


从 1.1.8 节 可 以 看 到 ， 在 构造 更 复杂 的 过 程 时 可 以 将 一 个 过 程 用 作 其 中 的 元 素 ， 这 样 的 过 
程 不 但 可 以 看 作 是 一 组 特定 操作 ， 还 可 以 看 作 一 个 过 程 抽象 。 也 就 是 说 ， 有 关 过 程 的 实现 细 
节 可 以 被 隐蔽 起 来 ， 这 个 特定 过 程 完全 可 以 由 另 一 个 具有 同样 整体 行为 的 过 程 取代 。 换 句 话 
说 ， 我 们 可 以 这 样 造 成 一 个 抽象 ， 它 将 这 一 过 程 的 使 用 方式 ， 与 该 过 程 究竟 如 何 通过 更 基本 
的 过 程 实现 的 具体 细节 相互 分 离 。 针 对 复合 数据 的 类 似 概念 被 称 为 数据 抽象 。 数 据 抽象 是 一 
种 方法 学 ， 它 使 我 们 能 将 一 个 复合 数据 对 象 的 使 用 ， 与 该 数据 对 象 怎样 由 更 基本 的 数据 对 象 
构造 起 来 的 细节 隅 离开 。 

数据 抽象 的 基本 思想 ， 就 是 设法 构造 出 一 些 使 用 复合 数据 对 象 的 程序 ， 使 它们 就 像 是 在 
“抽象 数据 ”上 操作 一 样 。 也 就 是 说 ， 我 们 的 程序 中 使 用 数据 的 方式 应 该 是 这 样 的 ， 除 了 完成 
当前 工作 所 必要 的 东西 之 外 ， 它 们 不 对 所 用 数据 做 任何 多 余 的 假设 。 与 此 同时 ， 一 种 “具体 ” 
数据 表示 的 定义 ， 也 应 该 与 程序 中 使 用 数据 的 方式 无 关 。 在 我 们 的 系统 里 ， 这 样 两 个 部 分 之 
间 的 界面 将 是 一 组 过 程 ， 称 为 选择 函数 和 构造 函数 ， 它 们 在 具体 表示 之 上 实现 抽象 的 数据 。 
为 了 展示 这 一 技术 ， 下 面 我 们 将 考虑 怎样 设计 出 一 组 为 操作 有 理 数 而 用 的 过 程 。 


2.1.1 实例， 有理数 的 算术 运算 


假定 我 们 希望 做 有 理 数 上 的 算术 ， 希 望 能 做 有 理 数 的 加 减 乘除 运算 ， 比 较 两 个 有 理 数 是 


否 相 等 ， 等 等 。 . 
作为 开始 ， 我 们 假定 已 经 有 了 一 种 从 分 子 和 分 母 构造 有 理 数 的 方法 。 并 进一步 假定 ， 如 
果 有 了 一 个 有 理 数 ， 我 们 有 一 种 方法 取得 OEE) 它 的 分 子 和 分 母 。 现 在 再 假定 有 关 的 构造 


函数 和 选择 函数 都 可 以 作为 过 程 使 用 : 
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e (make-rat <n> <d>) 返回 一 个 有 理 数 ， 其 分 子 是 整数 <n> ， 分 母 是 整数 <d> 。 

* (numer <>) 返回 有 理 数 <x> 的 分 子 。 

。(denom <x>) 返回 有 理 数 <x> 的 分 母 。 

我 们 要 在 这 里 使 用 一 种 称 为 按 愿 望 思维 的 强 有 力 的 综合 策略 。 现 在 我 们 还 没有 说 有 理 
数 将 如 何 表示 ， 也 没有 说 过 程 numer 、denom 和 make-rat 应 如 何 实现 。 然 而 ， 如 果 我 们 
真 的 有 了 这 三 个 过 程 ， 那 么 就 可 以 根据 下 面 关 系 去 做 有 理 数 的 加 减 乘除 和 相等 判断 了 : 


nim nd, +n,d, 

d d, ddd, 

n n, nd,-n,d, 

dq d, dd, 

n n nn, 

d, d, dd, 

n/d, _ nd, 

nid, dn, 

aa HARM nd, =n,d 


我 们 可 以 将 这 些 规 则 表述 为 如 下 几 个 过 程 : 


(define (add-rat x y) 
(make-rat (+ (* (numer 
(* (numer 
(* (denom x) 


(define (sub-rat x y) 
(make-rat (- (* (numer 
(* (numer 


(* (denom x) 


(define (mul-rat x y) 
(make-rat (* (numer x) 


{* (denom x) 


(define (div-rat x y) 
(make-rat (* (numer x) 


(* (denom x) 


(define (equal-rat? x y) 
(= (* (numer x) (denom 
(* (numer y) (denom 


x) (denom y)) 
y) (denom x))) 
(denom y)))) 


x) (denom y)) 
y) (denom x))) 
(denom y)))) 


(numer y)) 
(denom y)))) 


(denom y)) 
(numer y)))) 


y)) 
x)))) 


这 样 ， 我 们 已 经 有 了 定义 在 选择 和 构造 过 程 humer 、denom 和 make~rat 基础 之 上 的 各 
种 有 理 数 运 算 ， 而 这 些 基 础 还 没有 定义 。 现 在 需要 有 某 种 方式 ， 将 一 个 分 子 和 一 个 分 母 粘 接 


起 来 ， 构 成 一 个 有 理 数 。 
序 对 


为 了 在 具体 的 层面 上 实现 这 一 数据 抽象 ， 我 们 所 用 的 语言 提供 了 一 种 称 为 序 对 的 复合 结 


构 ， 这 种 结构 可 以 通过 基本 过 程 cons 构 造 出 来 。 过 程 cons 取 两 个 参数 ， 返 回 一 个 包含 这 两 
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个 参数 作为 其 成 分 的 复合 数据 对 象 。 如 果 给 了 一 个 序 对 ， 我 们 可 以 用 基本 过 程 car ficdr®, 
按 如 下 方式 提取 出 其 中 各 个 部 分 : 
(define x (cons 1 2)) 


(car x) 
1 


(cdr x) 


fo] 
e 


请 注意 ， 序 对 也 是 一 个 数据 对 象 ， 可 以 像 基 本 数据 对 象 一 样 给 它 一 个 名 字 且 操作 它 。 进 
更” 还 可 以 用 won 构 志 屠 和 其 元 案 本 身 就 是 序 对 的 序 对 ， 并 继 绪 这 样 了 下 去 

(define x (cons 1 2)) 

(define y (cons 3 4)) 

(define z (cons x y)) 


(car (car 2)) 
1 


(car (cdr z)) 
3 


在 2.2 节 里 我 们 将 看 到 ， 这 种 组 合 起 序 对 的 能 力 表明 ， 序 对 可 以 用 作 构 造 任意 种 类 的 复杂 数据 
结构 的 通用 的 基本 构件 。 通 过 过 程 cons car 和 car 实现 的 这 样 一 种 最 基本 的 复合 数据 ， 序 
对 ， 也 就 是 我 们 需要 的 所 有 东西 。 从 序 对 构造 起 来 的 数据 对 象 称 为 表 结 构 数据 。 


有 理 数 的 表示 
序 对 为 完成 这 里 的 有 理 数 系统 提供 了 一 种 自然 方式 ， 我 们 可 以 将 有 理 数 简单 表示 为 两 个 
整数 (分 子 和 分 母 ) 的 序 对 。 这 样 就 很 容易 做 出 下 面 nake-rat 、numer 和 denom 的 实现 ”.; 


{define (make-rat n d) (cons n d)) 
(define (numer x) (car x)) 


(define (denom x) (cdr x)) 


s 名 字 cons 表 示 “ 构 造 ” (construct)。 名 字 car 和 cdr 则 来 自 Lisp 最 初 在 IBM 704 机 器 上 的 实现 。 在 这 种 机 器 有 
一 种 取 址 模式 ， 使 人 可 以 访问 一 个 存储 地 址 中 的 “地 址 ”(address ) 部 分 和 “ 减 量 ” (decrement) 部 分 。car 
表示 “Contents of Address part of Register” (寄存 器 的 地 址 部 分 的 内 容 ) ，cdr ( 读 作 “could-er”) 表示 
“Contents of Decrement part of Register” (寄存 器 的 减 量 部 分 的 内 容 ) 。 

9 定义 选择 符 和 构造 符 的 另 一 种 方式 是 : 

(define make-rat cons) 
(define numer car) 
(define denom cdr) 
这 里 的 第 一 个 定义 将 名 字 make- -rat 关 联 于 表达 式 cons 的 值 ， 也 就 是 那个 构造 序 对 的 过 程 。 这 样 就 使 nake- 
rat 和 cons 成 了 同一 个 基本 过 程 的 名 字 。 

按照 这 种 方式 定义 出 选择 函数 和 构 霹 函数 的 效率 更 高 ， 因 为 它 不 是 让 make~rat 去 调用 cons ， 而 是 使 
make-rat 本 身 就 是 cons ， 因 此 ， 如 果 调 用 make-rat ， 在 这 里 就 只 有 一 次 过 程 调 用 而 不 是 两 次 调用 。 而 在 
另 一 方面 ,这 种 做 法 也 会 击 潢 系统 的 排 错 辅 助 功能 ， 那 种 功能 可 以 追踪 过 程 的 调用 或 者 在 过 程 调 用 处 放 信 断 
点 。 你 有 可 能 希望 监视 对 make-rat 的 调用 ， 而 决 不 会 希望 去 监视 程序 里 的 每 个 cons 调 用 。 

我 们 的 选择 是 ， 不 在 本 书 中 采用 这 里 所 说 的 定义 风格 。 
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还 有 ， 为 了 显示 这 里 的 计算 结果 ， 我 们 可 以 将 有 理 数 打印 为 一 个 分 子 ， 在 斜 线 符 之 后 打印 相 
应 的 分 母 ”， 
(define (print-rat x) 
(newline) 
(display (numer x)) 
(display "/") 
(display (denom x))) 
现在 就 可 以 试验 我 们 的 有 理 数 过 程 了 : 
(define one-half (make-rat 1 2)) 
(print-rat one-half) 
1/2 


(define one-third (make-rat 1 3)) 


(print-rat (add-rat one-half one-third)} 
5/6 


(print-rat (mul-rat one~half one-third) ) 
1/6 


(print-rat (add-rat one-third one-third) ) 
6/9 


正如 上 面 最 后 一 个 例子 所 显示 的 ， 我 们 的 有 理 数 实现 并 没有 将 有 理 数 约 化 到 最 简 形 式 。 
通过 修改 make-Iat 很 容易 做 到 这 件 事 。 如 果 我 们 有 了 一 个 如 1.2.5 节 中 那样 的 gcd 过 程 M 
它 可 以 求 出 两 个 整数 的 最 大 公约 数 ， 那 么 现在 就 可 以 利用 它 ， 在 构造 序 对 之 前 将 分 子 和 分 母 
约 化 为 最 简单 的 项 : l 

(define (make-rat n d) 


(let ((g (gcd n d))) 
(cons {/ n g) (/ d g)))) 


现在 我 们 就 有 : 
(print-rat (add-rat one~third one-third) ) 
2/3 


正如 所 期 望 的 。 为 了 完成 这 一 改动 ， 我 们 只 需 修改 构造 符 make-rat ， 完 全 不 必修 改 任何 实 
现实 际 运算 的 过 程 (例如 add-rat 和 mul-rat )。 

练习 2.1 ”请 定义 出 make~rat 的 一 个 更 好 的 版 本 ， 使 之 可 以 正确 处 理 正 数 和 负数 。 当 有 
理 数 为 正 时 ，make-rat 应 当 将 其 规范 化 ， 使 它 的 分 子 和 分 母 都 是 正 的 。 如 果 有 理 数 为 负 ， 
那么 就 应 只 让 分 子 为 负 。 


2.1.2 抽象 屏障 


在 继续 讨论 更 多 复合 数据 和 数据 抽象 的 实例 之 前 ， 让 我 们 首先 考虑 一 下 由 有 理 数 的 例子 
提出 的 几 个 问题 。 前 面 给 出 的 所 有 有 理 数 操作 ， 都 是 基于 构造 国 数 make-zat 和 选择 函数 


madisplay 是 Scheme 系统 里 打印 数据 的 基本 过 程 ， 基 本 过程 newLine 为 随后 的 打印 开始 一 个 新 行 。 这 两 个 过 
程 都 不 返回 有 用 的 值 ， 所 以 ， 在 下 面 使 用 print~rat 时 ,我们 只 显示 了 Print-rat 打 印 的 是 什么 ,而 没有 
显 式 解释 器 对 Print~rat 的 返回 值 打 印 了 什么 。 


numer 、denom 定 义 出 来 的 。 一 般 而 言 ， 数 据 抽象 的 基本 思想 就 是 为 每 一 类 数据 对 象 标识 出 
一 组 操作 ， 使 得 对 这 类 数据 对 象 的 所 有 操作 都 可 以 基于 它们 表述 ， 而 且 在 操作 这 些 数据 对 象 
时 也 只 使 用 它们 。 

图 2-1 形 象 化 地 表示 了 有 理 数 系 统 的 结构 。 其 中 的 水 平 线 表 示 抽 和 象 屏障 ， 它 们 隔离 了 系统 
中 不 同 的 层次 。 在 每 一 野 上 ， 这 种 屏障 都 把 使 用 数据 抽象 的 程序 (上 面 ) 与 实现 数据 抽象 的 
程序 (下面) 分 开 来 。 使 用 有 理 数 的 程序 将 仅仅 通过 有 理 数 包 提供 给 “公众 使 用 ”的 那些 过 
程 (add-rat, sub-rat, mul-rat, div-ratfequal-rat?) 去 完成 对 有 理 数 的 各 种 
操作 ， 这 些 过 程 转 而 又 是 完全 基于 构造 函数 和 选择 函数 make-rat 、numer 和 denom 实 现 
的 ， 而 这 些 函 数 又 是 基于 序 对 实现 的 。 只 要 序 对 可 以 通过 cons 、car 和 和 cdr 操作， 有 关 序 对 
如 何 实 现 的 细节 与 有 理 数 包 的 其 余部 分 都 完全 没有 关系 。 从 作用 上 看 ， 每 一 层次 中 的 过 程 构 
成 了 所 定义 的 抽象 屏障 的 界面 ， 联 系 起 系统 中 的 不 同 层次 。 


使 用 有 理 数 的 程序 


问题 域 中 的 有 理 数 


add-rat sub-rat ... 


作为 分 子 和 分 母 的 有 理 数 


作为 序 对 的 有 理 数 


当然 ， 序 对 也 需要 实现 
图 2-1 有 理 数 包 中 的 数据 抽象 屏障 


这 一 简单 思想 有 许多 优点 。 第 一 个 优点 是 这 种 方法 使 程序 很 容易 维护 和 修改 。 任 意 一 种 
比较 复杂 的 数据 结构 ， 都 可 以 以 多 种 不 同方 式 用 程序 设计 语言 所 提供 的 基本 数据 结构 表示 。 
当然 ， 表 示 方 式 的 选择 会 对 操作 它 的 程序 产生 影响 ， 这 样 ， 如 果 后 来 表示 方式 改变 了 ， 所 有 
受 影响 的 程序 也 都 需要 随 之 改变 。 对 于 大 型 程序 而 言 ， 这 种 工作 将 非常 耗 时 ， 而 且 代价 极其 
昂贵 ， 除 非 在 设计 时 就 已 经 将 依赖 于 表示 的 成 分 限制 到 很 少 的 一 些 程序 模块 上 。 

例如 ， 将 有 理 数 约 化 到 最 简 形 式 的 工作 ， 也 完全 可 以 不 在 构造 的 时 候 做 ， 而 是 在 每 次 访 
问 有 理 数 中 有 关 部 分 时 去 做 。 这 样 就 会 导致 男 一 套 不 同 的 构造 函数 和 选择 函数 : 

(define (make-rat n d) 


(cons n d)) 


(define (numer x) 
(let ((g (gcd (car x) (cdr x)))) 
(/ (car x) 9))) 


(define (denom x) : 
(let ((g (gcd (car x) (cdr x)))) 
(/ (cdr x) 9))) 


这 一 实现 与 前 面 实现 的 不 同 之 处 在 于 何 时 计算 gcda。 如 果 在 有 理 数 的 典型 使 用 中 ， 我 们 需要 


多 次 访问 同一 个 有 理 数 的 分 子 和 分 母 ， 那 么 最 好 是 在 构造 有 理 数 的 时 候 计 算 gcd。 如 果 情 况 
并 不 是 这 样 ， 那 么 把 对 gcdq 的 计算 推迟 到 访问 时 也 许 更 好 一 些 。 在 这 里 ， 在 任何 情况 下 ， 当 
我 们 从 一 种 表示 方式 转 到 另 一 种 表示 时 ， 过 程 add-rat 、sub-rat 等 等 都 完全 不 必修 改 。 
把 对 于 具体 表示 方式 的 依赖 性 限制 到 少数 几 个 界面 过 程 ， 不 但 对 修改 程序 有 帮助 ， 同 时 
也 有 助 于 程序 的 设计 ， 因 为 这 种 做 法 将 使 我 们 能 保留 考虑 不 同 实现 方式 的 灵活 性 。 继 续 前 面 
的 简单 例子 ， 假 定 现在 我 们 正在 设计 有 理 数 程序 包 ， 而 且 还 无 法 决定 究竟 是 在 创建 时 执行 
gcd， 还 是 应 该 将 它 推迟 到 选择 的 时 候 。 数 据 抽象 方法 使 我 们 能 推迟 决策 的 时 间 ， 而 又 不 会 
阻碍 系统 其 他 部 分 的 工作 进展 。 
练习 2.2 请 考虑 平面 上 线段 的 表示 问题 。 一 个 线段 用 一 对 点 表示 ， 它 们 分 别 是 线段 的 始 
点 与 终点 。 请 定义 构造 函数 nake-segment 和 选择 函数 start-segment 、end-Segment， 
它们 基于 点 定义 线段 的 表示 。 进 而 ， 一 个 点 可 以 用 数 的 序 对 表示 ， 序 对 的 两 个 成 分 分 别 表 示 
点 的 * 坐 标 和 ?坐标 。 请 据 此 进一步 给 出 构造 函数 make-~pPoint 和 选择 函数 x-~Point y- 
point ， 用 它们 定义 出 点 的 这 种 表示 。 最 后 ， 请 基于 所 定义 的 构造 函数 和 选择 函数 ， 定 义 出 
过 程 midpoint-segment ， 它 以 一 个 线段 为 参数 ， 返 回 线段 的 中 点 〈 也 就 是 那个 坐标 值 是 
两 个 端点 的 平均 值 的 点 )。 为 了 试验 这 些 过 程 ， 还 需要 定义 一 种 打印 点 的 方法 : 
(define (print~point p) 
(newline) 
(display "(") 
(display (x-point p)) 
(display ",") 


(display (y-point p)) 
(display ")")) 


练习 2.3 ”请 实现 一 种 平面 矩形 的 表示 (提示: 你 有 可 能 借用 练习 2.2 的 结果 ) 。 基 于 你 的 
构造 函数 和 选择 函数 定义 几 个 过 程 ， 计 算 AeA KREBS. 现在 请 再 为 矩形 实现 另 
一 种 表示 方式 。 你 应 该 怎样 设计 系统 ， 使 之 能 提供 适当 的 抽象 屏障 ， 使 同一 个 周 长 或 者 面积 
过 程 对 两 种 不 同 表示 都 能 工作 ? 


21.3 数据 意味 着 什么 


在 2.1.1 节 里 实现 有 理 数 时 ， 我 们 基于 三 个 尚未 定义 的 过 程 make~Iat、Dnumer 和 qdenom， 
由 这 些 出 发 去 做 有 理 数 操作 add-rat 、sub-rat 等 等 的 实现 。 按 照 那 时 的 想法 ， 这 些 操 作 是 
基于 数据 对 象 (分 子 、 分 母 、 有 理 数 ) 定义 的 ， 这 些 对 象 的 行为 完全 由 前 面 三 个 过 程 刻 画 。 
那么 ， 数 据 究竟 意味 着 什么 呢 ? 说 它 就 是 “由 给 定 的 构造 函数 和 选择 函数 所 实现 的 东西 ” 
还 是 不 够 的 。 显 然 ， 并 不 是 任意 的 三 个 过 程 都 适合 作为 有 理 数 实现 的 基础 。 在 这 里 ， 我 们 需 
要 保证 ， 如 果 从 一 对 整数 n 和 d 构 造 出 一 个 有 理 数 x， 那 么 ， 抽 取出 x 的 numer 和 denom 并 将 它 
们 相 除 ， 得 到 的 结果 应 该 与 n 除 以 da 相同 。 换 句 话说 ，make-rat、numerz 和 denom 必 须 满 足 
下 面条 件 ， 对 任意 整数 n 和 任意 非 零 整 数 d， 如 果 x 是 (make-rat n d), MBA: | 
(numer x) n 
(denomx) d 
事实 上 ， 这 就 是 为 了 能 成 为 适宜 表示 有 理 数 的 基础 ，make-zat、numer 和 qdenom 必 须 满足 
的 全 部 条 件 。 一 般 而 言 ， 我 们 总 可 以 将 数据 定义 为 一 组 适当 的 选择 函数 和 构造 遂 数 ， 以 及 为 
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使 这 些 过 程 成 为 一 套 合法 表示 ， 它 们 就 必须 满足 的 一 组 特定 条 件 ”。 

这 一 观点 不 仅 可 以 服务 于 “高 层 ” 数 据 对 象 的 定义 ， 例 如 有 理 数 ， 同 样 也 可 用 于 低层 的 
对 象 。 请 考虑 序 对 的 概念 ， 我 们 在 前 面 用 它 定义 有 理 数 。 我 们 从 来 都 没有 说 过 序 对 究竟 是 什 
么 ， 只 说 所 用 的 语言 为 序 对 的 操作 提供 了 三 个 过 程 cons carfilcdr, AKK= TRE, R 
们 需要 知道 的 全 部 东西 就 是 ， 如 果 用 cons 将 两 个 对 象 粘 接 到 一 起 ， 那 么 就 可 以 借助 于 car 和 
cdr 提 取出 这 两 个 对 象 。 也 就 是 说 ， 这 些 操作 满足 的 条 件 是 : 对 任何 对 象 x 和 y， 如 果 z 是 
(cons x y), 那么 (car z) 就 是 x, 而 (cdr z) 就 是 yY。 我 们 确实 说 过 这 三 个 过 程 是 所 
用 的 语言 里 的 基本 过 程 。 然 而 ， 任 何 能 满足 上 述 条 件 的 三 个 过 程 都 可 以 成 为 实现 序 对 的 基础 。 
下 面 这 个 令 人 吃惊 的 事实 能 够 最 好 地 说 明 这 一 点 : 我 们 完全 可 以 不 用 任何 数据 结构 ， 只 使 用 
过 程 就 可 以 实现 序 对 。 下 面 是 有 关 的 定义 : 

(define (cons x Yy) 

(define (dispatch m) 


(cond ((= m 0) x) 
((= m1) Y) 
(else (error "Argument not 0 or 1 -- CONS" m)))) 
dispatch) ， 


(define (car z) (z 0)) 


(define (cdr z) (z 1)) 


， 过 程 的 这 一 使 用 方式 与 我 们 有 关 数 据 应 该 是 什么 的 直观 认识 大 相 径 庭 。 但 不 管 怎么 说 ， 如 果 
要 求 我 们 说 明 这 确实 是 一 种 表示 序 对 的 合法 方式 ， 那 么 只 需要 验证 ， 上 述 几 个 过 程 满足 了 前 
面 提出 的 所 有 条 件 。 

应 该 特别 注意 这 里 的 一 个 微妙 之 处 : 由 (cons x y) 返回 的 值 是 一 个 过 程 一 一 也 就 是 那 
个 内 部 定义 的 过 程 aispatch ， 它 有 一 个 参数 ， 并 能 根据 参数 是 0 还 是 1 ， 分 别 返 回 x 或 者 y 。 
与 此 相对 应 ，(car z) 被 定义 为 将 z 应 用 于 0， 这 样 ， 如 果 z 是 由 (cons x y) 形成 的 过 程 ， 
将 z 应 用 于 0 将 会 产生 x*， 这 样 就 证 明了 (car (cons x y)) 产生 出 x， 正 如 我 们 所 需要 的 。 
与 此 类 似 ，(cdr (cons x y)) 将 (cons x y) 产生 的 过 程 应 用 于 1 而 得 到 y 。 因 此 ， 序 
对 的 这 一 过 程 实现 确实 是 一 个 合法 的 实现 ， 如 果 只 通过 cons 、car 和 cdr 访 问 序 对 ， 我 们 将 
无 法 把 这 一 实现 与 “真正 的 ”数据 结构 区 分 开 。 

上 面 展示 了 序 对 的 一 种 过 程 性 表示 ， 这 并 不 意味 着 我 们 所 用 的 语言 就 是 这 样 做 的 
(Scheme 和 一 般 的 Lisp 系 统 都 直接 实现 序 对 ， 主 要 是 为 了 效率 ) ， 而 是 说 它 确实 可 以 这 样 做 。 
这 一 过 程 性 表示 虽然 有 些 隐 降 ， 但 它 确实 是 一 种 完全 合适 的 表示 序 对 的 方式 ， 因 为 它 满足 了 
序 对 需要 满足 的 所 有 条 件 。 这 一 实例 也 说 明 可 以 将 过 程 作为 对 象 去 操作 ， 因 此 就 自动 地 为 我 


71 伟人 吃惊 的 是 ， 和 将 这 一 思想 严格 地 形式 化 却 非常 困难 。 目 前 存在 着 两 种 完成 这 一 形式 化 的 途径 。 第 一 种 由 C. 
A. R. Hoare (1972) 提出 ， 称 为 抽象 模型 方法 ， 它 形式 化 了 如 上 面 有 理 数 实例 中 所 勾勒 出 的 “过 程 加 条 件 ” 
的 规范 描述 。 请 注意 ， 这 里 对 于 有 理 数 表 示 的 条 件 是 基于 有 关 整 数 的 事实 (相等 和 除法 ) 陈述 的 。 一 般 而 言 ， 
抽象 模型 方法 总 是 基于 某 些 已 经 有 定义 的 数据 对 象 类 型 ， 定 义 出 一 类 新 的 数据 对 象 。 这 样 ， 有 关 这 些 新 对 象 
的 断言 就 可 以 归 约 为 有 关 已 有 定义 的 数据 对 象 的 断言 。 另 一 种 途径 由 MIT 的 Zilles、Goguen 和 IBM 的 Thatcher 、 
Wagner 和 Wright (mThatcher, Wagner, and Wright 1978) ， 以 及 Toronto 的 Guttag ( 见 Guttag 1977) 提出 ， 称 
为 代数 规范 。 这 一 方式 将 “过 程 ” 看 作 是 一 个 抽象 代数 系统 的 元 素 ， 系统 的 行为 由 一 些 对 应 于 我 们 的 “条 件 ” 
的 公理 刻画 ， 并 通过 抽象 代数 的 技术 去 检查 有 关 数 据 对 象 的 断言 。Liskov 和 Zilles 的 论文 (Liskov and 
Zilles1975) 里 综述 了 这 两 种 方法 。 . 


OR 


们 提供 了 一 种 表示 复合 数据 的 能 力 。 这 些 东西 现在 看 起 来 好 像 只 是 很 好 玩 ， 但 实际 上 ， 数 据 
的 过 程 性 表示 将 在 我 们 的 程序 设计 宝库 里 扮演 一 种 核心 角色 。 有 关 的 程序 设计 风格 通常 称 为 
消息 传递 。 在 第 3 章 里 讨论 模型 和 模拟 时 ， 我 们 将 用 它 作 为 一 种 基本 工具 。 

练习 2.4 下面 是 序 对 的 另 一 种 过 程 性 表示 方式 。 请 针对 这 一 表示 验证 ,对 于 任意 的 x 和 Y ， 
(car (cons x y)) 都 将 产生 出 x。 


(define (cons x y) 
(lambda (m) (m x y))) 


(define (car z) 

_ (z (lambda (p q) P))) 
对 应 的 car 应 该 如 何 定义 ? (提示 : 为 了 验证 这 一 表示 确实 能 行 ， 请 利用 1.1.5 节 的 代 换 模 
型 。) 

练习 2.5 ”请 证 明 ， 如 果 将 和 2 的 序 对 表示 为 滋 积 2 3? 对 应 的 整数 ， 我 们 就 可 以 只 用 非 负 
整数 和 算术 运算 表示 序 对 。 请 给 出 对 应 的 过 程 cons 、car 和 cdr 的 定义 。 

练习 2.6 ”如 果 觉 得 将 序 对 表示 为 过 程 还 不 足以 令 人 如 雷 灌顶 ， 那 么 请 考虑 ， 在 一 个 可 以 
对 过 程 做 各 种 操作 的 语言 里 ， 我 们 完全 可 以 没有 数 〈 至 少 在 只 考 虚 非 负 整 数 的 情况 下 )， 可 以 
将 和 加 一 操作 实现 为 : 

(define zero (lambda (f) (lambda (x) x))) 


(define (add-1 n) 
(lambda (f) (lambda (x) (f ((n f) x))))) 


这 一 表示 形式 称 为 Church 计 数 ， 名 字 来 源 于 其 发 明 人 数理 逻辑 学 家 Alonzo Church (at), A 
演算 也 是 他 发 明 的 。 

请 直接 定义 one 和 two (不 用 zero 和 add-1) (提示 : 利用 代 换 去 求 值 (add-1 zero)), 
请 给 出 加 法 过 程 + 的 一 个 直接 定义 (不 要 通过 反复 应 用 add-1)。 


2.1.4 扩展 练习 : 区 间 算 术 


Alyssa P. Hacker 正 在 设计 一 个 帮助 人 们 求解 工程 问题 的 系统 。 她 希望 这 个 系统 提供 的 一 
个 特征 是 能 够 去 操作 不 准确 的 量 (例如 物理 设备 的 测量 参数 )， 这 种 量具 有 已 知 的 精度 ， 所 以 ， 
在 对 这 种 近似 量 进行 计算 时 ， 得 到 的 结果 也 应 该 是 已 知 精度 的 数值 。 
电子 工程 师 将 会 用 Alyssa 的 系统 去 计算 一 些 电 子 量 。 有 时 他 们 必须 使 用 下 面 公式 ， 从 两 个 
电阻 R, 和 R> 计 算出 并 联 等 价 电阻 Re 的 值 : 
R- 
1/R, +1/R, 


此 时 所 知 的 电阻 值 通常 是 由 电阻 生产 厂商 给 出 的 带 误差 保证 的 值 ， 例 如 你 可 能 买 到 一 支 标明 
“6.8 欧 姆 误差 10%” 的 电阻 ， 这 时 我 们 就 只 能 确定 ， 这 支 电阻 的 阻 值 在 6.8 — 0.68 =6.12 和 6.8 
+0.68 =7.48 欧 姆 之 间 。 这 样 ， 如 果 将 一 支 6.8 欧 姆 误差 10% 的 电阻 与 另 一 支 4.7 欧 姆 误差 5% 的 
电阻 并 联 ， 这 一 组 合 的 电阻 值 可 以 在 大 约 2.58 欧 姆 (如 果 两 支 电 阻 都 有 最 小 值 ) 和 2.97 欧 姆 
(如 果 两 支 电阻 都 是 最 大 值 ) 之 间 。 

Alyssa 的 想法 是 实现 一 套 “ 区 间 算 术 ”， 即 作为 可 以 用 于 组 合 “区 间 ” (表示 某 种 不 准确 
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量 的 可 能 值 的 对 象 ) 的 一 组 算术 运算 。 两 个 区 间 的 加 、 减 、 乘 、 除 的 结果 仍 是 一 个 区 间 ， 表 
示 的 是 计算 结果 的 范围 。 

Alyssa 假 设 有 一 种 称 为 “区 间 ” 的 抽象 对 象 ， 这 种 对 象 有 两 个 端点 ， 一 个 下 界 和 一 个 上 办 。 
她 还 假定 ， 给 了 一 个 区 间 的 两 个 端点 ， 就 可 以 用 数据 构造 函数 make-interval 构 造 出 相应 
.的 区 间 来 。Alyssa 首 先 写 出 了 一 个 做 区 间 加 法 的 过 程 ， 她 推理 说 ， 和 的 最 小 值 应 该 是 两 个 区 
间 的 下 界 之 和 ， 其 最 大 值 应 该 是 两 个 区 间 的 上 和 界 之 和 : 

(define (add-interval x y) 


(make-interval (+ (lower-bound x) (lower-bound y)) 
(+ (upper-bound x) (upper-bound y)))) 


Alyssa 还 找 出 了 这 种 界 的 乘积 的 最 小 和 最 大 值 ， 用 它们 做 出 了 两 个 区 间 的 乘积 (min 和 max 是 
求 出 任意 多 个 参数 中 的 最 小 值 和 最 大 值 的 基本 过 程 )。 
(define (mul-interval x y) 
(let ((pl (* (lower-bound x) (lower-bound y))) 

(p2 (* (lower-bound x) (upper-bound y))) 

(p3 (* (upper-bound x) (lower-bound y))) 

(p4 (* (upper-bound x) (upper-bound y)))) 

(make-interval (min pl p2 p3 p4) 
(max pl p2 p3 p4)))) 

为 了 做 出 两 个 区 间 的 除法 ，Alyssa 用 第 一 个 区 间 乘 上 第 二 个 区 间 的 倒数 。 请 注意 ， 倒 数 的 两 
个 限界 分 别 是 原来 区 间 的 上 界 的 倒数 和 下 界 的 倒数 : 


(define (div-interval x y) 
(mul-interval x 
(make-interval (/ 1.0 (upper-bound y)) 
(/ 1.0 (lower-bound y))))) 


练习 2.7 Alyssa 的 程序 是 不 完整 的 ， 因为 她 还 没有 确定 区 间 抽 象 的 实现 。 这 里 是 区 间 构 
造 符 的 定义 : 

(define (make-interval a b) (cons a b)) 
请 定义 选择 符 hpper-bound 和 lower-bound,， 完成 这 一 实现 。 

练习 2.8 ”通过 类 似 于 Alyssa 的 推理 ,说 明 两 个 区 间 的 差 应 该 怎样 计算 。 请 定义 出 相应 的 
减法 过 程 sub-interval。 

练习 2.9 “区间 的 宽度 就 是 其 上 界 和 下 界 之 差 的 一 半 。 区 间 宽 度 是 有 关 区 间 所 描述 的 相应 
数值 的 非 确定 性 的 一 种 度量 。 对 于 某 些 算术 运算 ， 两 个 区 间 的 组 合 结果 的 宽度 就 是 参数 区 间 
的 宽度 的 函数 ， 而 对 其 他 运算 ,组 合 区 间 的 宽度 则 不 是 参数 区 间 宽 度 的 函数 。 证 明 两 个 区 间 
的 和 (与 差 ) 的 宽度 就 是 被 加 (或 减 ) 的 区 间 的 宽度 的 函数 。 举 例 说 明 ， 对 于 乘 和 除 而 言 ， 
情况 并 非 如 此 。 

练习 2.10 Ben Bitdiddle 是 个 专业 程序 员 ， 他 看 了 Alyssa 工 作 后 评论 说 ， 除 以 一 个 跨 过 横 
跨 0 的 区 间 的 意义 不 清楚 。 请 修改 Alyssa 的 代码 ， 检 查 这 种 情况 并 在 出 现 这 一 情况 时 报错 。 

练习 2.11 ”在 看 了 这 些 东 西 之 后 ，Ben 又 说 出 了 下 面 这 段 有 些 神秘 的 话 : “通过 监测 区 间 
的 端点 ， 有 可 能 将 mul-interval 分 解 为 ?种 情况 ， 每 种 情况 中 所 需 的 乘法 都 不 超过 两 次 。 
请 根据 Ben 的 建议 重 写 这 个 过 程 。 
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在 排除 了 自己 程序 里 的 错误 之 后 ，Alyssa 给 一 个 可 能 用 户 演示 自己 的 程序 。 那 个 用 户 却说 
她 的 程序 解决 的 问题 根本 不 对 。 他 希望 能 够 有 一 个 程序 ， 可 以 用 于 处 理 那 种 用 一 个 中 间 值 和 
一 个 附加 误差 的 形式 表示 的 数 ， 也 就 是 说 ， 希 望 程序 能 处 理 3.5 +0.15 而 不 是 [3.35，3.65]。 
Alyssa 回 到 自己 的 办 公 桌 来 纠正 这 一 问题 ， 另 外 提供 了 一 个 构造 符 和 一 个 选择 符 ; 

(define (make-center-width c w) 


(make-interval (- c w) (+ c w))) 


(define (center i) 
(/ (+ (lower-bound i) (upper-bound i)) 2)) 


(define (width i) 

(/ (- (upper-bound i) (lower-bound i)) 2)) 

不 幸 的 是 ，Alyssa 的 大 部 分 用 户 是 工程 师 ， 现 实 中 的 工程 师 经 常 遇 到 只 有 很 小 非 淮 确 性 的 
测量 值 ， 而 且 常 常 是 以 区 间 宽 度 对 区 间 中 点 的 比值 作为 度量 值 。 他 们 通常 用 的 是 基于 有 关 部 
件 的 参数 的 百分数 描述 的 误差 ， 就 像 前 面 描 述 电 阻 值 的 那 种 方式 一 样 。 

练习 2.12 ”请 定义 一 个 构造 函数 nake-center-percent， 它 以 一 个 中 心 点 和 一 个 百 分 
比 为 参数 ， 产 生出 所 需要 的 区 间 。 你 还 需要 定义 选择 函数 Perzcent ， 通 过 它 可 以 得 到 给 定 区 
间 的 百分数 误差 ， 选 择 函数 center 与 前 面 定义 的 一 样 。 

练习 2.13 ”请 证 明 ， 在 误差 为 很 小 的 百分数 的 条 件 下 ， 存 在 着 一 个 简单 公式 ， 利 用 它 可 以 
从 两 个 被 乘 区 间 的 误差 算出 乘积 的 百分数 误差 值 。 你 可 以 假定 所 有 的 数 为 正 ， 以 简化 这 一 问题 。 


经 过 相当 多 的 工作 之 后 ，Alyssa P. Hacker 发布 了 她 的 最 后 系统 。 几 年 之 后 ， 在 她 已 经 忘 
记 了 这 个 系统 之 后 ， 接 到 了 一 个 愤怒 的 用 户 Lem E. Tweakit 的 发 疯 式 的 电话 。 看 起 来 Lem 注 意 
到 并 联 电阻 的 公式 可 以 写成 两 个 代数 上 等 价 的 公式 : 
RR, 


R, +R, 


和 
_ 
UR, +1/R, 


这 样 他 就 写 了 两 个 程序 ， 它 们 以 不 同 的 方式 计算 并 联 电阻 值 : 
(define (parl rl r2) 


(div-interval (mul-interval ri r2) 
(add-interval rl r2))) 


(define (par2 rl r2) 
(let ((one (make-interval 1 1))) 
(div-interval one 
(add-interval (div-interval one rl) 
(adiv-interval one r2)}))}) 


Lem 抱 怨 说 ，Alyssa 程 序 对 两 种 不 同 计算 方法 给 出 不 同 的 值 。 这 确实 是 很 严重 的 抱怨 。 

练习 2.14 ”请 确认 Lem 是 对 的 。 请 你 用 各 种 不 同 的 算术 表达 式 来 检查 这 一 系统 的 行为 。 请 
做 出 两 个 区 间 4 和 B ， 并 用 它们 计算 表达 式 4/4 和 A/B。 如 果 所 用 区 间 的 宽度 相对 于 中 心 值 取 很 
小 百分数 ， 你 将 会 得 到 更 多 的 认识 。 请 检查 对 于 中 心 一 百分比 形式 ( 见 练习 2.12) 进行 计算 
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练习 2.15 “ 另 一 用 户 Eva Lu Ator 也 注意 到 了 由 不 同 的 等 价 代数 表达 式 计算 出 的 区 间 的 差异 。 
她 说 ， 如 果 一 个 公式 可 以 写成 一 种 形式 ， 其 中 有 具有 非 准确 性 的 变量 不 重复 出 现 ， 那 么 Alyssa 
的 系统 产生 出 的 区 间 的 限界 更 紧 一 些 。 她 说 ， 因 此 ， 在 计算 并 联 电阻 时 ,par2 是 比 parl 
“更 好 的 ”程序 。 她 说 得 对 吗 ? ， 

练习 2.16 ”请 给 出 一 个 一 般 性 的 解释 ， 为 什么 等 价 的 代数 表达 式 可 能 导致 不 同 计算 结 
R? 你 能 设计 出 一 个 区 间 算 术 包 ， 使 之 没有 这 种 缺陷 吗 ? 或 者 这 件 事情 根本 不 可 能 做 到 ? 
(警告 : 这 个 问题 非常 难 。) 


2.2 ”层次 性 数据 和 闭 包 性 质 


正如 在 前 面 已 经 看 到 的 ， 序 对 为 我 们 提供 了 一 种 用 于 构造 复合 数据 的 基本 “ 粘 接 剂 "。 
2-2 展 示 的 是 一 种 以 形象 的 形式 看 序 对 的 标准 方式 ， 其 ey 
中 的 序 对 是 通过 (cons 1 2) 形成 的 。 在 这 种 称 为 多 
于 和 指针 表示 方式 中 ， 每 个 对 象 表示 为 一 个 指向 盒子 的 
指针 。 与 基本 对 象 相 对 应 的 盒子 里 包含 着 该 对 象 的 表示 ， 
例如 ， 表 示 数 的 盒子 里 就 放 着 那个 具体 的 数 。 用 于 表示 wrs (cons 1 2) 的 信子 和 指针 才 示 
序 对 的 盒子 实际 上 是 一 对 方 盒 ， 其 中 左边 的 方 盒 里 放 着 
序 对 的 car (指向 car 的 指针 )， 右 边 部 分 放 着 相应 的 car 。 

前 面 已 经 看 到 了 ， 我 们 不 仅 可 以 用 cons 去 组 合 起 各 种 数值 ， 也 可 以 用 它 去 组 合 起 序 对 
(你 在 做 练习 2.2 和 练习 2.3 时 已 经 ， 或 者 说 应 该 ， 熟 悉 这 一 情况 了 )。 作 为 这 种 情况 的 推论 ， 序 
对 就 是 一 种 通用 的 建筑 砌 块 ， 通 过 它 可 以 构造 起 所 有 不 同 种 类 的 数据 结构 来 。 图 2-3 显 示 的 是 
组 合 起 数值 1 、2、3 、4 的 两 种 不 同方 式 。 


(cons (cons 1 2) (cons (cons 1 
(cons 3 4)) {cons 2 3)) 
4) 


图 2-3 用 序 对 组 合 起 数值 1 、2、3、4 的 两 种 不 同方 式 


我 们 可 以 建立 元 素 本 身 也 是 序 对 的 序 对 ， 这 就 是 表 结 构 得 以 作为 一 种 表示 工具 的 根本 基 
础 。 我 们 将 这 种 能 力 称 为 cons 的 闭 包 性 质 。 一 般 说 ， 某 种 组 合 数据 对 象 的 操作 满足 闭 包 性 质 ， 
那 就 是 说 ， 通 过 它 组 合 起 数据 对 象 得 到 的 结果 本 身 还 可 以 通过 同样 的 操作 再 进行 组 合 *。 闭 包 


术语 “ 闲 包 ” 来 自 抽象 代数 。 在 抽象 代数 里 ， 一 集 元 素 称 为 在 某 个 运算 (操作 ) 之 下 封闭 ， 如 果 将 该 运算 应 
用 于 这 一 集合 中 的 元 素 ， 产 生出 的 仍然 是 该 集合 里 的 元 素 。 然 而 Lisp 社 团 (很 不 幸 ) 还 用 术语 “ 闭 包 ”描述 
另 一 个 与 此 毫 不 相干 的 概念 ， 闭 包 也 是 一 种 为 表示 带 有 自由 变量 的 过 程 而 用 的 实现 技术 。 本 书 中 没有 采用 闭 
包 这 一 术语 的 第 二 种 意义 。 
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性 质 是 任何 一 种 组 合 功能 的 威力 的 关键 要 素 ， 因 为 它 使 我 们 能 够 建立 起 层次 性 的 结构 ， 这 种 
结构 由 一 些 部 分 构成 ， 而 其 中 的 各 个 部 分 又 是 由 它们 的 部 分 构成 ， 并 且 可 以 如 此 继续 下 去 。 

从 第 1 章 的 开始 ， 我 们 在 处 理 过 程 的 问题 中 就 利用 了 闭 包 性 质 ， 而 且 是 最 本 质 性 的 东西 ， 
因为 除了 最 简单 的 程序 外 ， 所 有 程序 都 依赖 于 一 个 事实 : 组 合式 的 成 员 本 身 还 可 以 是 组 合式 。 
在 这 一 节 里 ， 我 们 要 着 手 研究 复合 数据 的 闲 包 所 引出 的 问题 。 这 里 将 要 描述 一 些 用 起 来 很 方 
便 的 技术 ， 包 括 用 序 对 来 表示 序列 和 树 。 还 要 给 出 一 种 能 以 某 种 很 生动 的 形式 显示 闭 包 的 图 
形 语言 ?。 


2.2.1 序列 的 表示 


利用 序 对 可 以 构造 出 的 一 类 有 用 结构 是 序列 一 一 一 批 数据 对 象 的 一 种 有 序 汇集 。 显 然 ， 采 
用 序 对 表示 序列 的 方式 很 多 ,一 种 最 直接 的 表示 方式 如 图 2-4 所 示 ， 其 中 用 一 个 序 对 的 链条 表 
示 出 序列 1 ,2，3, 4， 在 这 里 ， 每 个 序 对 的 car 部 分 对 应 于 这 个 链 中 的 条 目 ，cdr 则 是 链 中 下 
一 个 序 对 。 最 后 的 一 个 序 对 的 cdr 用 一 个 能 辨 明 不 是 序 对 的 值 表示 ， 标 明 序 列 的 结束 ， 在 盒 
子 指针 图 中 用 一 条 对 角 线 表示 ， 在 程序 里 用 变量 nil1 的 值 。 整 个 序列 可 以 通过 妃 套 的 cons 操 
作 构 造 起 来 : 


图 2-4 将 序列 1 ，2 ，3，4 表 示 为 序 对 的 链 


(cons 1 
(cons 2 
(cons 3 
(cons 4 nil))})) 


hit MBH cons FE kK AIA PIP PR At AK, Scheme 为 方便 表 的 构造 ， 提 供 
了 一 个 基本 操作 1ist74， 上 面 序列 也 可 以 通过 (List 1 2 3 4) 产生 。 一 般 说 : 


(list <a> <a> ... <a,>) 
等 价 于 : 
(cons <a> (cons <a> (cons ... (cons <a,> nil) ...))) 


?3 一 种 组 合 方法 应 该 满足 闭 包 的 要 求 是 一 种 很 明显 的 想法 。 然 而 ， 许 多 常见 程序 设计 语言 所 提供 的 数据 组 合 机 
制 都 不 满足 这 一 性 质 ， 或 者 是 使 得 其 中 的 闵 包 性 质 很 难 利用 。 在 Fortran 或 Basic 里 ， 组 合 数据 的 一 种 典型 方式 
是 将 它们 放 入 数组 一 一 但 人 却 不 能 做 出 元 素 本 身 是 数组 的 数组 。Pascal 和 C 人 允许 结 构 的 元 素 又 是 结构 ， 但 却 要 
求 程序 员 去 显 式 地 操作 指针 ， 并 限制 性 地 要 求 结构 的 每 个 域 都 只 能 包含 预先 定义 好 形式 的 元 素 。 与 Lisp 及 其 
序 对 不 同 ， 这 些 语 言 都 没有 内 部 的 通用 性 粘 接 剂 ， 因 此 无 法 以 统一 的 方式 去 操作 复合 数据 。 这 一 限制 也 就 是 
Alan Perlis 在 本 书 前 言 中 的 评论 的 背景 :“ 在 Pascal 里 ， 过 多 的 可 声明 数据 结构 导致 了 函数 的 专用 化 ， 这 就 造 
成 了 对 合作 的 阻碍 和 惩罚 。 让 100 个 函数 在 一 个 数据 结构 上 操作 ， 远 比 让 10 个 困 数 在 10 个 数据 结构 上 操作 更 好 
些 。” 

* 在 这 本 书 里 ， 我 们 用 术语 表 专 指 那些 有 表 尾 结束 标记 的 序 对 的 链 。 与 此 相对 应 ， 用 术语 表 结构 指 所 有 的 由 序 
对 构造 起 来 的 数据 结构 ， 而 不 仅 是 表 。 
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Lisp 系 统 通 常用 元 素 序 列 的 形式 打印 出 表 ， 外 面 用 括号 括 起 。 按 照 这 种 方式 ， 图 2-4 里 的 数据 
对 象 就 将 打印 为 (1 2 3 4): 
(define one-through-four (list 1 2 3 4)) 


one-~through-four 
(1 2 3 4) 


请 当心 ， 不 要 将 表达 式 (list 1 2 3 4) MR (1 2 3 4) 搞 混 了 。 后 面 这 个 表 是 对 前 面 
表达 式 求 值得 到 的 结果 。 如 果 想 去 求 值 表 达 式 (1 2 3 4), 解释 器 就 会 试图 将 过 程 1 应 用 于 
参数 2 、3 和 4 ， 这 时 会 发 出 一 个 出 错 信号 。 

我 们 可 以 将 car 看 作 选 取 表 的 第 一 项 的 操作 ， 将 cdr 看 作 是 选取 表 中 除去 第 一 项 之 后 剩 下 
的 所 有 项 形成 的 子 表 。 car 和 cdr 的 帐 套 应 用 可 以 取出 一 个 表 里 的 第 二 、 第 三 以 及 后 面 的 各 项 ”。 
构造 符 cons 可 用 于 构造 表 ， 它 在 原 有 的 表 前 面 增加 一 个 元 素 : 

(car one-through-four) 


1 


{cdr one-through-four) 
(2 3 4) 


(car (cdr one-through-four) ) ) 
2 


(cons 10 one-through-four) 
(10 12 3 4) 


(cons 5 one-through-four) 

(5 12 3 4) 
nil 的 值 用 于 表示 序 对 的 链 结束 ， 它 也 可 以 当 作 一 个 不 包含 任何 元 素 的 序列 ， 空 表 。 单 词 
“nil” 是 拉丁 词汇 “nihil” 的 缩写 ， 这 个 拉丁 词汇 表示 “什么 也 没有 ””。 


HIRE 

利用 序 对 将 元 素 的 序列 表示 为 表 之 后 ， 我 们 就 可 以 使 用 常规 的 程序 设计 技术 ， 通 过 顺序 
“向 下 cdr” 表 的 方式 完成 对 表 的 各 种 操作 了 。 例 如 ， 下 面 的 过 程 Iist-ref 的 实际 参数 是 一 
个 表 和 一 个 数 *， 它 返回 这 个 表 中 的 第 n 个 项 。 这 里 人 们 习惯 令 表 元 素 的 编号 从 0 开始 。 计 算 
1ist-ref 的 方法 如 下 : 

。 对 n = 二 0，1list-ref 应 返回 表 的 car 。 

‘GU, list-ref 返回 表 的 cdr 的 第 (n 一 1) 个 项 。 


5 因为 碟 套 地 应 用 car 和 cdr 也 会 感到 很 麻烦 ， 所 以 许 多 Lisp 方 言 都 提供 了 它们 的 缩写 形式 ， 例 如 : 
(cadr <arg>) = (car (cdr <arg>)) 


所 有 这 类 过 程 的 名 字 都 以 c 开 头 ， 以 r 结束 ， 其 中 每 个 a 表示 一 个 Car 操作， 每 个 d 表 示 一 个 car 操作， 按照 它 
们 在 名 字 中 出 现 的 顺序 应 用 。 读 car 和 cdr 的 方式 则 继续 保留 ， 因 为 像 cadr 这 样 的 简单 组 合 还 是 可 以 发 音 的 。 

值得 提出 的 是 ， 在 Lisp 方 言 的 标准 化 方面 ， 人 们 已 经 令 人 气 馒 地 将 许 许多 多 精力 花 在 一 些 毫 无 意义 的 字面 问 
题 的 争论 上 : nil 应 该 是 个 普通 的 名 字 吗 ? nil 的 值 应 该 算是 一 个 符号 吗 ? 它 应 该 算是 一 个 表 吗 ? 它 应 该 算 
一 个 序 对 吗 ? 在 Scheme 里 nil 是 个 普通 的 名 字 ， 在 本 节 里 被 我 们 用 作 一 个 变量 ,其 值 就 是 表 尾 标记 (正如 
true 是 个 普通 变量 ， 具 有 真 的 值 一 样 ) 。Lisp 的 其 他 方言 ， 包 括 Common Lisp ， 都 将 hil 作为 一 个 特殊 符号 。 
本 书 的 作者 参加 过 许多 语言 标准 化 方面 的 无 益 口角 ， 真 是 希望 完全 避免 这 些 东西 。 到 2.3 节 引进 了 引号 之 后 ， 
我 们 就 将 一 直 用 O 表示 空 表 ， 完 全 抛弃 变量 nail 。 
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(define (list-ref items n) 
(if (= n 0) 
(car items) 
(list-ref (cdr items) (- n 1)))) 


(define squares (list 1 4 9 16 25)) 


(list-ref squares 3) 
16 


我 们 经 常 要 向 下 cdr 整 个 的 表 ， 为 了 帮助 做 好 这 件 事 ，Scheme 包 含 一 个 基本 操作 null?， 
用 于 检查 参数 是 不 是 空 表 。 返 回 表 中 项 数 的 过 程 length 可 以 说 明 这 一 典型 应 用 模式 : 
(define {length items) 
(if (null? items) 
0 
(+ 1 (length (cdr items))))) 


(define odds (list 1 3 5 7)) 


(length odds) 
4 


过 程 Length 实 现 一 种 简单 的 递归 方案 ， 其 中 的 递归 步骤 是 ， 
* 任意 一 个 表 的 length 就 是 这 个 表 的 cdr 的 length 加 一 。 
顺序 地 这 样 应 用 ， 直 至 达到 了 基础 情况 : 
*。 空 表 的 1ength 是 0。 
我 们 也 可 以 用 一 种 迭代 方式 来 计算 1ength: 
(define (length items) 
(define (length-iter a count) 
(if (null? a) 
count 
(length~iter (cdr a) (+ 1 count)))) 
(length-iter items 0)) 
另 一 常用 程序 设计 技术 是 在 向 下 car 一 个 表 的 过 程 中 “向 上 cons ”出 一 个 结果 表 ， 例 如 
过 程 apPend ， 它 以 两 个 表 为 参数 ， 用 它们 的 元 素 组 合成 一 个 新 表 : 
(append squares odds) 


(1 4 9 16 25 135 7) 


(append odds squares) 
(1357149 16 25) 
append 也 是 用 一 种 递归 方案 实现 的 。 要 得 到 表 1ist1 和 1ist2 的 append， 按 如 下 方式 做 : 
。 如 果 1ist1 是 空 表 ， 结 果 就 是 List2 。 
。 否 则 应 先 做 出 1ist1 的 cdr 和 1ist2 的 append ,而 后 再 将 1ist1 的 car 通 过 cons 加 到 


结果 的 前 面 : 
(define (append listl list2) 
(if (null? listl) 
list2 
(cons (car listl) (append (cdr list1l) list2)))) 
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练习 2.17 ”请 定义 出 过 程 1ast-pair， 它 返回 只 包含 给 定 〈 非 空 ) 表 里 最 后 一 个 元 素 的 


(last-pair (list 23 72 149 34)) 

(34) 

练习 2.18 ”请 定义 出 过 程 Feverse， 它 以 一 个 表 为 参数 ， 返 回 的 表 中 所 包含 的 元 素 与 参 
数 表 相同 ， 但 排列 顺序 与 参数 表 相 反 : 

(reverse (list 1 4 9 16 25)) 

(25 16 9 4 1) 

练习 2.19 ”请 考虑 1.2.2 节 的 兑换 零钱 方式 计数 程序 。 如 果 能 够 轻而易举 地 改变 程序 里 所 
用 的 竞 换 币 种 就 更 好 了 。 警 如 说 ， 那 样 我 们 就 能 计算 出 1 英镑 的 不 同 兑换 方式 的 数目 。 在 写 前 
面 那个 程序 时 ， 有 关 币 种 的 知识 中 有 一 部 分 出 现在 过 程 first-denomination 里 ， 另 一 部 
分 出 现在 过 程 里 count-change ( 它 知道 有 5 种 U.S. 硬 币 ) 。 如 果 能 够 用 一 个 表 来 提供 可 用 于 
兑换 的 硬币 就 更 好 了 。 

我 们 希望 重 写 出 过 程 cc ， 使 其 第 二 个 参数 是 一 个 可 用 硬币 的 币值 表 ， 而 不 是 一 个 指定 可 
用 硬币 种 类 的 整数 。 而 后 我 们 就 可 以 针对 各 种 货币 定义 出 一 些 表 : 

(define us-coins (list 50 25 10 5 1)) 


(define uk-coins (list 100 50 20 10 5 2 1 0.5)) 


然后 我 们 就 可 以 通过 如 下 方式 调用 cc : 
(cc 100 us-coins) 
292 
为 了 做 到 这 件 事 ， 我 们 需要 对 程序 cc 做 一 些 修改 。 它 仍然 具有 同样 的 形式 ， 但 将 以 不 同 的 方 
式 访 问 自己 的 第 二 个 参数 ， 如 下 面 所 示 : 
{define (cc amount coin-values) 
(cond ((= amount 0) 1) 
((or (< amount 0) (no-more? coin-values)) 0) 
(else 
(+ (cc amount 
(except-first-denomination coin-values) ) 
(cc (- amount 
(first-denomination coin-values) ) 


coin-values))))) 

请 基于 表 结 构 上 的 基本 操作 ， 定 义 出 过 程 first-denomination、 except-first- 
denomination 和 no-more?。 表 coin-values 的 排列 顺序 会 影响 cc 给 出 的 回答 吗 ? Aft 
么 ? 

练习 2.20 ”过程 + 、* 和 1ist 可 以 取 任 意 个 数 的 实际 参数 。 定 义 这 类 过 程 的 一 种 方式 是 
采用 一 种 带 点 尾部 记 法 形式 的 define。 在 一 个 过 程 定义 中 ， 如 果 在 形式 参数 表 的 最 后 一 个 参 
数 之 前 有 一 个 点 号 ， 那 就 表明 ， 当 这 一 过 程 被 实际 调用 时 ， 前 面 各 个 形式 参数 (如果 有 的 话 ) 
将 以 前 面 的 各 个 实际 参数 为 值 ， 与 平常 一 样 。 但 最 后 一 个 形式 参数 将 以 所 有 剩 下 的 实际 参数 
的 表 为 值 。 例 如 ， 假 若 我 们 定义 了 : 


(define (f x y . z) <body>) 
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过 程 上 就 可 以 用 两 个 以 上 的 参数 调用 。 如 果 求 值 ， 
(£12345 6) 
那么 在 £ 的 体 里 ，x 将 是 1，y 将 是 2， 而 z 将 是 表 (3 4 5 6), 给 了 定义 ; 


(define (g . w) <body>) 


过 程 9 可 以 用 0 个 或 多 个 参数 调用 。 如 果 求 值 : 
(g12345 6) 


那么 在 9 的 体 里 ，w 将 是 表 (1 2 3 4 5 6)”, 

请 采用 这 种 记 法 形式 写 出 过 程 same-Parity， 它 以 一 个 或 者 多 个 整数 为 参数 ， 返 回 所 有 
与 其 第 一 个 参数 有 着 同样 奇偶 性 的 参数 形成 的 表 。 例 如 : 

(same-parity 1 2 3 4 5 6 7) 

(1357) 


(same-parity 2 3 4 5 6 7) 
(2 4 6) 


对 表 的 映射 
一 个 特别 有 用 的 操作 是 将 某 种 变换 应 用 于 一 个 表 的 所 有 元 素 ， 得 到 所 有 结果 构成 的 表 。 
举例 来 说 ， 下 面 过 程 将 一 个 表 里 的 所 有 元 素 按 给 定 因子 做 一 次 缩放 : 
(define (scale-list items factor) 
(if (null? items) 
nil 
(cons (* (car items) factor) 
(scale-list (cdr items) factor)))) 


(scale-list (list 1 2 3 4 5) 10) 
(10 20 30 40 50) 


我 们 可 以 抽象 出 这 一 具有 一 般 性 的 想法 ， 将 其 中 的 公共 模式 表述 为 一 个 高 阶 过 程 ， 就 像 
1.3 节 里 所 做 的 那样 。 这 一 高 阶 过 程 称 为 mnap ， 它 有 一 个 过 程 参数 和 一 个 表 参 数 ， 返 回 将 这 一 
过 程 应 用 于 表 中 各 个 元 素 得 到 的 结果 形成 的 表 ”。 

(define (map proc items) 

{if (null? items) 


”用 lambda 方 式 定义 fE 和 9 ， 应 该 写 ; 
(define f (lambda (x y . z) <body>)) 
(define g (lambda w <dody>)) 

78 Scheme 标准 提供 了 一 个 map 过 程 ， 它 比 这 里 描述 的 过 程 更 具 一 般 性 。 这 个 更 一 般 的 map 以 一 个 取 # 个 参数 的 过 
程 和 2 个 表 为 参数 ， 将 这 个 过 程 应 用 于 所 有 表 的 第 一 个 元 素 ， 而 后 应 用 十 它们 的 第 二 个 元 素 ， 如 此 下 去 ， 最 后 
返回 所 有 结果 的 表 。 例 如 : 

(map + (list 1 2 3) (list 40 50 60) (list 700 800 900)) 
(741 852 963) 


(map (lambda (x y) (+ x (* 2 y))) 
(list 1 2 3) 
(list 4 5 6)) 

(9 12 15) 
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nil 
(cons (proc (car items) } 
(map proc (cdr items))))) 


(map abs (list -10 2.5 -11.6 17)) 
(10 2.5 11.6 17) 


(map (lambda (x) (* x x)) 
(list 1 2 3 4)) 
(1 4 9 16) 
现在 我 们 可 以 用 map 给 出 scale-1ist 的 一 个 新 定义 : 
(define (scale-list items factor) 
(map (lambda (x) (* x factor)) 
items)) 
map 是 一 种 很 重要 的 结构 ， 不 仅 因为 它 代表 了 一 种 公共 模式 ， 而 且 因为 它 建 立 起 了 一 种 
处 理 表 的 高 层 抽象 。 在 scale-1ist 原 来 的 定义 里 ， 程 序 的 递归 结构 将 人 的 注意 力 吸 引 到 对 
于 表 中 逐个 元 素 的 处 理 上 。 通 过 map 定 义 scale-1ist 抑 制 了 这 种 细节 层面 上 的 情况 ， 强 调 
的 是 从 元 素 表 到 结果 表 的 一 个 缩放 变换 。 这 两 种 定义 形式 之 间 的 差异 ， 并 不 在 于 计算 机 会 执 
行 不 同 的 计算 过 程 (其 实 不 会 ) ， 而 在 于 我 们 对 这 同一 个 过 程 的 不 同 思考 方式 。 从 作用 上 看 ， 
map 帮 有 我 们 建 起 了 一 层 抽象 屏障 ， 将 实现 表 变 换 的 过 程 的 实现 ， 与 如 何 提取 表 中 元 素 以 及 组 
合 结果 的 细节 隔离 开 。 与 图 2-1 里 所 示 的 屏障 类 似 ， 这 种 抽象 也 提供 了 新 的 灵活 性 ， 使 我 们 有 
可 能 在 保持 从 序列 到 序列 的 变换 操作 框架 的 同时 ， 改 变 序列 实现 的 低层 细节 。2.2.3 节 将 把 序 
列 的 这 种 使 用 方式 扩展 为 一 种 组 织 程序 的 框架 。 
练习 2.21 过 程 square-1ist 以 一 个 数值 表 为 参数 ， 返 回 每 个 数 的 平方 构成 的 表 : 
(square-list (list 1 2 3 4)) 
(1 4 9 16) 
下 面 是 square-1ist 的 两 个 定义 ， 请 填充 其 中 缺少 的 表达 式 以 完成 它们 : 
(define (square-list items) 
(if (null? items) 
nil 
(cons <??> <??>))) 
(define (square-list items) 
(map <??> <??>)) 
练习 2.22 Louis Reasoner 试 图 重 写 练习 2.21 的 第 一 个 square-1ist 过 程 ， 希 望 使 它 能 
生成 一 个 迭代 计算 过 程 ; 
(define (square-list items) 
(define (iter things answer) 
(if (null? things) 
answer 
(iter (cdr things) 
(cons (square (car things) ) 
answer)))) 
(iter items nil)) 


但 是 很 不 幸 ， 在 按 这 种 方式 定义 出 的 square-1ist 产 生出 的 结果 表 中 ， 元 素 的 顺序 正好 与 
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我 们 所 需要 的 相反 。 为 什么 ? 
Louis 又 试 着 修正 其 程序 ， 交 换 了 cons 的 参数 : 
(define (square-list items) 
(define (iter things answer) 
(if (null? things) 
answer 
(iter (cdr things) 
(cons answer 
(square (car things)))))) 
(iter items nil)) 
但 还 是 不 行 。 请 解释 为 什么 。 
练习 2.23 ”过 程 for-each 与 nap 类 似 ， 它 以 一 个 过 程 和 一 个 元 素 表 为 参数 ， 但 它 并 不 返 
回 结果 的 表 ， 只 是 将 这 一 过 程 从 左 到 右 应 用 于 各 个 元 素 ， 将 过 程 应 用 于 元 素 得 到 的 值 都 丢掉 
不 用 。for-each 通 常用 于 那些 执行 了 某 些 动作 的 过 程 ， 如 打印 等 。 看 下 面 例子 : 
(for-each (lambda (x) (newline) (display x)) 
(list 57 321 88)) 
57 
321 
88 
由 for-each 的 调用 返回 的 值 (上 面 没有 显示 ) 可 以 是 某 种 任意 的 东西 ， 例 如 逻辑 值 真 。 请 
给 出 一 个 for-each 的 实现 。 


2.2.2 层次 性 结构 

将 表 作 为 序列 的 表示 方式 ， 可 以 很 自然 地 推广 到 表示 那些 元 素 本 身 也 是 序列 的 序列 。 举 
例 来 说 ， 我 们 可 以 认为 对 象 ((1 2) 3 4) 是 通过 下 面 方式 构造 出 来 的 : 

(cons (list 1 2) (list 3 4)) 


这 是 一 个 包含 三 个 项 的 表 ， 其 中 的 第 一 项 本 身 又 是 表 (1 2)。 这 一 情况 也 由 解释 器 的 打印 形 
式 所 肯定 。 图 2-5 用 序 对 的 语言 展示 出 这 一 结构 的 表示 形式 。 


(3 4) 


((1 2) 


图 2-5 由 (cons (list 1 2) (list 3 4)) 形成 的 结构 


认识 这 种 元 素 本 身 也 是 序列 的 序列 的 另 一 种 方式 ， 是 把 它们 看 作 树 。 焙 列 里 的 元 素 就 是 
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树 的 分 支 ， 而 那些 本 身 也 是 序列 的 元 素 就 形成 了 树 中 的 子 树 。 图 2-6 显 示 的 是 将 图 2-5 的 结构 看 
作 树 的 情况 。 ((1 2) 3 4) 

递归 是 处 理 树 结构 的 一 种 很 自然 的 工具 ， 因 为 我 们 常常 
可 以 将 对 于 树 的 操作 归结 为 对 它们 的 分 支 的 操作 ， 再 将 这 种 


操作 归结 为 对 分 支 的 分 支 的 操作 ， 如 此 下 去 ， 直 至 达到 了 树 UP 

的 叶子 。 作 为 例子 ， 请 比较 一 下 2.2.1 节 的 length 过 程 和 下 \ > 
面 的 count-leaves 过 程 ， 这 个 过 程 统计 出 一 棵 树 中 树叶 的 / \ 

数目 : 


(define x (cons (list 1 2) (list 3 4))) 图 2-6 将 图 2-5 中 的 表 结 构 看 作 树 


(length x) 
3 


({count-leaves x) 
4 


(list x x) 

(((1 2) 3 4) ((1 2) 3 4)) 
(length (list x x)) 

2 


(count-leaves (list x x)) 
8 


为 了 实现 count-leaves ， 可 以 先 回忆 一 下 Length 的 递归 方案 
。 表 x 的 length 是 x 的 cdr 的 length 加 一 。 
。 空 表 的 -sngth 是 0。 
count-1leaves 的 递归 方案 与 此 类 似 ， 对 于 空 表 的 值 也 相同 
。 空 表 的 count- leaves 是 0， 
但 是 在 递归 步 又 中 ， 当 我 们 去 掉 一 个 表 的 car 时 ， 就 必须 注意 这 一 car 本 身 也 可 能 是 树 ， 其 树 
叶 也 需要 考虑 。 这 样 ， 正 确 的 归 约 步骤 应 该 是 : 
。 对 于 树 x 的 count-leaves 应 该 是 x 的 car 的 count-leaves 与 x 的 cdr 的 count-~leaves 
之 和 。 - 
最 后 ， 在 通过 car 达 到 一 个 实际 的 树叶 时 ， 我 们 还 需要 另 一 种 基本 情况 : 
。 一 个 树叶 的 count-leaves 是 1。 
为 了 有 助 于 写 出 树 上 的 各 种 递归 ，Scheme 提 供 了 基本 过 程 pair? ， 它 检查 其 参数 是 否 为 序 对 。 
下 面 就 是 我 们 完成 的 过 程 ”: 
(define (count-leaves x) 
(cond ((null? x) 0) 
((mot (pair? x)) 1) 


(else (+ (count-leaves (car x)) 
(count-leaves (cdr x)))))) 


练习 2.24 ”假定 现在 要 求 值 表达 式 (List 1 (list 2 (List 3 4)))， 请 给 出 由 解释 


? 在 这 个 定义 里 ，cone 的 前 两 个 子 句 的 顺序 非常 重要 ， 因 为 空 表 将 满足 nul1? ， 而 它 同 时 又 不 是 序 对 。 
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器 打印 出 的 结果 ， 给 出 与 之 对 应 的 盒子 指针 结构 ， 并 将 它 解释 为 一 棵 树 (参见 图 2-6)。 
练习 2.25 给 出 能 够 从 下 面 各 表 中 取出 7 的 car 和 cdr 组 合 : 
(1 3 (5 7) 9) 
((7)) 
(1 (2 (3 (4 (5 (6 7)))))) 
练习 2.26 假定 已 将 x 和 y 定 义 为 如 下 的 两 个 表 : 
(define x (list 1 2 3)) 
(define y (list 4 5 6)) 
解释 器 对 于 下 面 各 个 表达 式 将 打印 出 什么 结果 : 
(append x y) 
(cons x y) 
(list x y) 
练习 2.27 ”修改 练习 2.18 中 所 做 的 reverse 过 程 ， 得 到 一 个 deep-reverse 过 程 。 它 以 
一 个 表 为 参数 ， 返 回 另 一 个 表 作 为 值 ， 结 果 表 中 的 元 素 反 转 过 来 ， 其 中 的 子 树 也 反 转 。 例 如 : 
(define x {list (list 1 2) (list 3 4))) 


x 
((1 2) (3 4)) 
(reverse x) 


((3 4) (1 2)) 


(deep-reverse x) 
((4 3) (2 1)) 


练习 2.28 ” 写 一 个 过 程 Eringe， 它 以 一 个 树 (表示 为 表 ) 为 参数 ， 返 回 一 个 表 ， 表 中 的 
元 素 是 这 棵 树 的 所 有 树叶 ， 按 照 从 左 到 右 的 顺序 。 例 如 : 

(define x (list (list 1 2). (list 3 4))) 

(fringe x) 

(1 2 3 4) 

(fringe (list x x)) 

(123412 3 4) 

练习 2.29 ”一 个 二 又 活动 体 由 两 个 分 支 组 成 ， 一 个 是 左 分支 ， 另 一 个 是 右 分 支 BED 
支 是 一 个 具有 确定 长 度 的 杆 ， 上 面 或 者 吊 着 一 个 重量 ， 或 者 吊 着 另 一 个 二 叉 活动 体 。 我 们 可 
以 用 复合 数据 对 象 表 示 这 种 二 叉 活 动 体 ， 将 它 通 过 其 两 个 分 支 构造 起 来 〈 例 如 ， 使 用 1ist ) : 


(define (make-mobile left right) 
(list left right)) 


分 支 可 以 从 一 个 length ( 它 应 该 是 一 个 数 ) 再 加 上 一 个 structure 构 造 出 来 ， 这 个 
structure 或 者 是 一 个 数 (表示 一 个 简单 重量 ) ， 或 者 是 另 一 个 活动 体 : 


(define (make-branch length structure) 
(list length structure) ) 


a) 请 写 出 相应 的 选择 函数 1eft-branch 和 Tight-branch， 它 们 分 别 返回 活动 体 的 两 
个 分 支 。 iA branch-lengthfilbranch-structure, 它们 返回 一 个 分 支 上 的 成 分 。 

b) 用 你 的 选择 函数 定义 过 程 total-weight ， 它 返回 一 个 活动 体 的 总 重量 。 

c) 一 个 活动 体 称 为 是 平衡 的 ， 如 果 其 左 分 支 的 力矩 等 于 其 右 分 支 的 力矩 (也 就 是 说 ， 如 
果 其 左 杆 的 长 度 乘 以 吊 在 杆 上 的 重量 ， 等 于 这 个 活动 体 右边 的 同样 乘积 )， 而 且 在 其 每 个 分 支 
上 吊 着 的 子 活 动 体 也 都 平衡 。 请 设计 一 个 过 程 ， 它 能 检查 一 个 二 又 活 动 体 是 否 平衡 。 

d) 假定 我 们 改变 话 动 体 的 表示 ， 采 用 下 面 构造 方式 : 

(define (make-mobile left right) 

(cons left right)) 


(define (make-branch length structure) 
(cons length structure) ) 


你 需要 对 自己 的 程序 做 多 少 修改 ， 才 能 将 它 改 为 使 用 这 种 新 表示 ? 


对 树 的 映射 
map 是 处 理 序 列 的 一 种 强 有 力 抽象 ， 与 此 类 似 ，map 与 递归 的 结合 也 是 处 理 树 的 一 种 强 有 
力 抽象 。 举 例 来 说 ， 可 以 有 与 2.2.1 节 的 scale-1ist 类 似 的 scale-tree 过 程 ， 以 一 个 数值 
因子 和 一 棵 叶子 为 数值 的 树 作为 参数 ， 返 回 一 棵 具有 同样 形状 的 树 ， 树 中 的 每 个 数值 都 乘 以 
了 这 个 因子 。 对 于 scale-tree 的 递归 方案 也 与 count~leaves 的 类 似 : 
(define (scale-tree tree factor) 
(cond ((null? tree) nil) 
((not (pair? tree)) (* tree factor)) 
(else (cons (scale-tree (car tree) factor) 
(scale-tree (cdr tree) factor))))}) 
(scale-tree (list 1 (list 2 (list 3 4) 5) (list 6 7)) 
10) 
(10 (20 (30 40) 50) (60 70)) 
实现 scale-tree 的 另 一 种 方法 是 将 树 看 成 子 树 的 序列 ， 并 对 它 使 用 map。 我 们 在 这 种 
序列 上 做 映射 ， 依 次 对 各 棵 子 树 做 缩放 ， 并 返回 结果 的 表 。 对 于 基础 情况 ， 也 就 是 当 被 处 理 


的 树 是 树叶 时 ， 就 直接 用 因子 去 乘 它 : 
(define (scale-tree tree factor) 
(map (lambda (sub-tree) 
(if (pair? sub-tree) 
(scale-tree sub-tree factor) 
(* sub-tree factor))) 


tree) ) 
对 于 树 的 许多 操作 可 以 采用 类 似 方 式 ， 通 过 序列 操作 和 递归 的 组 合 实现 
练习 2.30 ”请 定义 一 个 与 练习 2.21 中 square-1list 过 过 程 类 似 的 square- ~tree 过 程 。 也 
就 是 说 ， 它 应 该 具有 下 面 的 行为 : 
(square-tree 


(list 1 
(list 2 (list 3 4) 5) 


(list 6 7))) 
(1 (4 (9 16) 25) (36 49)) 
请 以 两 种 方式 定义 square-tree， 直 接 定义 ( 即 不 使 用 任何 高 阶 函 数 )， 以 及 使 用 map 和 递 
归 定 义 。 
练习 2.31 将 你 在 练习 2.30 做 出 的 解答 进一步 抽象 ， 做 出 一 个 过 程 ， 使 它 的 性 质保 证 能 以 
下 面 形式 定义 Square-tree: 


(define (square-tree tree) (tree-map square tree)) 


练习 2.32 ”我 们 可 以 将 一 个 集合 表示 为 一 个 元 素 互 不 相同 的 表 ， 因 此 就 可 以 将 一 个 集合 
的 所 有 子 集 表示 为 表 的 表 。 例 如 ， 假 定 集合 为 (1 2 3)， 它 的 所 有 子 集 的 集合 就 是 (() (3) 
(2) (2 3) (1) (1 3) (1 2) Q 2 3))。 请 完成 下 面 的 过 程 定义 ， 它 生成 出 一 个 集合 的 
所 有 子 集 的 集合 。 请 解释 它 为 什么 能 完成 这 一 工作 。 
(define (subsets s) 
(if (null? s) 
(list nil) 
(let ((rest (subsets (cdr s)))) 
(append rest (map <??> rest))))) 


22.3 序列 作为 一 种 约定 的 界面 


我 们 一 直 强 调 数据 抽象 在 对 复合 数据 的 工作 中 的 作用 ， 借 助 这 种 思想 ， 我 们 就 能 设计 出 
不 会 被 数据 表示 的 细节 纠缠 的 程序 ， 使 程序 能 够 保持 很 好 的 弹性 ， 得 以 应 用 到 不 同 的 具体 表 
示 上 。 在 这 一 节 里 ， 我 们 将 要 介绍 与 数据 结构 有 关 的 另 一 种 强 有 力 的 设计 原理 一 一 使 用 约定 
的 界面 。 

在 1.3 节 里 我 们 看 到 ， 可 以 通过 实现 为 高 阶 过 程 的 程序 抽象 ， 抓 住处 理 数 值 数据 的 一 些 程 
序 模式 。 要 在 复合 数据 上 工作 做 出 类 似 的 操作 ， 则 对 我 们 操控 数据 结构 的 方式 有 着 深刻 的 依 
赖 性 。 举 个 例子 ， 考虑 下 面 与 2.2.2 节 中 count-leaves 过 程 类 似 的 过 程 ， 它 以 一 棵 树 为 参数 ， 
计算 出 那些 值 为 奇数 的 叶子 的 平方 和 : 

(define (sum-odd-squares tree) 

(cond ((null? tree) 0) 
((mot (pair? tree)) 
(if (odd? tree) (square tree) 0)) 


(else (+ (sum-odd-squares (car tree) ) 
(sum-odd-squares (cdr tree)))))) 


从 表面 上 看 ， 这 一 过 程 与 下 面 的 过 程 很 不 一 样 。 下 面 这 个 过 程 构造 出 的 是 所 有 偶数 的 斐 波 那 
RFI) 的 一 个 表 ， 共 中 的 k 小 于 等 于 某 个 给 定 整 数 n: 


(define (even-fibs n) 
(define (next Kk) 
(if (> k n) 
nil 
(let ((£ (fib k))) 
(if (even? f) 
(cons f (next (+ k 1))) 
(next (+ k 1)))))) 
(next 0)) 


虽然 这 两 个 过 程 在 结构 上 差异 非常 大 ,但 是 对 于 两 个 计算 的 抽象 描述 却 会 揭示 出 它们 之 
间 极 大 的 相似 性 。 第 一 个 程序 : 

。 枚 举 出 一 棵 树 的 树叶 ，. 

* 过滤 它 们 ， 选 出 其 中 的 奇数 

。 对 选 出 的 每 一 个 数 求 平方 ， 

“。 用 + 累积 起 得 到 的 结果 ， 从 0 开始 。 
而 第 二 个 程序 : 

。 枚 举 从 0 到 n 的 整数 5 

。 对 每 个 整数 计算 相应 的 斐 波 那 契 数 ， 

。 过 滤 它 们 ， 选 出 其 中 的 偶数 ， 

* 用 cons 累积 得 到 的 结果 ， 从 空 表 开始 。 

信号 处 理工 程 师 们 可 能 会 发 现 ， 这 种 过 程 可 以 很 自然 地 用 流 过 一 些 级 联 的 处 理 步 又 的 信 
号 的 方式 描述 ， 其 中 的 每 个 处 理 步 又 实现 程序 方案 中 的 一 个 部 分 ， 如 图 2-7 所 示 。 对 于 第 一 种 
情况 sum-odd-squares ,我们 从 一 个 枚 举 器 开始 ， 它 产生 出 由 给 定 的 树 的 所 有 树叶 组 成 
“信号 ”。 这 一 信号 流 过 一 个 过 滤器 ， 所 有 不 是 奇数 的 数 都 被 删除 了 。 这 样 得 到 的 信号 又 通过 
一 个 映射 ， 这 是 一 个 “转换 装置 "， 它 将 square 过 程 应 用 于 每 个 元 素 。 这 一 映射 的 输出 被 馈 
人 和 人 一 个 累积 器 ， 该 装置 用 + 将 得 到 的 所 有 元 素 组 合 起 来 ， 以 初始 的 0 开始 。even-fibs 的 工 
作 过 程 与 此 类 似 。 


enumerate: filter: map: accumulate: 
tree leaves odd? square +, 0 
enumerate: filter: accumulate: 
integers even? cons, () 


图 2-7 过 程 sum-odd-squares (上 ) 和 even-fibs (F) 
的 信号 流 图 揭示 出 这 两 个 程序 的 共性 


遗憾 的 是 ， 上 面 的 两 个 过 程 定义 并 没有 展现 出 这 种 信号 流 结构 。 壁 如 说 ， 如 果 仔 细 考 察 
sum-odd-squares 过 程 ， 就 会 发 现 其 中 的 枚 举 工作 部 分 地 由 检查 null1? 和 pair? 实现 ， 部 
分 地 由 过 程 的 树 形 递归 结构 实现 。 与 此 类 似 ， 在 那些 检查 中 也 可 以 看 到 一 部 分 累积 工作 ， 另 
一 部 分 是 用 在 递归 中 的 加 法 。 一 般 而 言 ， 在 这 两 个 过 程 里 ， 没 有 一 个 部 分 正好 对 应 于 信号 流 
描述 中 的 某 一 要 素 。 我 们 的 两 个 过 程 采 用 不 同 的 方式 分 解 了 这 个 计算 ， 将 枚 举 工 作 散 布 在 程 
序 中 各 处 ， 并 将 它 与 映射 、 过 滤器 和 累积 器 混在 一 起 。 如 果 我 们 能 够 重新 组 织 这 一 程序 ， 使 
得 信号 流 结构 明显 表现 在 写 出 的 过 程 中 ， 将 会 大 大 提高 结果 代码 的 清晰 性 。 

序列 操作 

要 组 织 好 这 些 程序 ， 使 之 能 够 更 清晰 地 反应 上 面 信号 流 的 结构 ， 最 关键 的 一 点 就 是 将 注 
意 力 集中 在 处 理 过 程 中 从 一 个 步骤 流向 下 一 个 步骤 的 “信号 ”。 如 果 我 们 用 一 些 表 来 表示 这 些 
信和 号， 那么 就 可 以 利用 表 操 作 实现 每 一 步骤 的 处 理 。 举 例 来 说 ， 我 们 可 以 用 2.2.1 节 的 map 过 


HB 


程 实现 信和 号 流 图 中 的 映射 步骤 : 
(map square (list 1 2 3 4 5)) 
(1 4 9 16 25) 


过 让 一 个 序列 ， 也 就 是 选 出 其 中 满足 某 个 给 定 谓词 的 元 素 ， 可 以 按 下 面 方式 做 : 
(define (filter predicate sequence) 
(cond ((null? sequence) nil) 
( (predicate (car sequence) ) 
(cons (car sequence) 
(filter predicate (cdr sequence) ))) 
(else (filter predicate (cdr sequence))))) 


例如 ， 


(filter odd? (list 1 2 3 4 5)) 
(1 3 5) 


累积 工作 可 以 实现 如 下 : 


(define (accumulate op initial sequence) 
(if (null? sequence) 
initial 
(op (car sequence) 
(accumulate op initial (cdr sequence))))) 


(accumulate + 0 (list 1 2 3 4 5)) 
15 


(accumulate * 1 (list 1 2 3 4 5)) 
120 


(accumulate cons nil (list 1 2 3 4 5)) 
(1 23 4 5) 
剩 下 的 就 是 实现 有 关 的 信号 流 图 ， 枚 举 出 需要 处 理 的 数据 序列 。 对 于 even-fibs， 我 们 
需要 生成 出 一 个 给 定 区 间 里 的 整数 序列 ， 这 一 序列 可 以 如 下 做 出 : 
(define (enumerate-interval low high) 
(if (> low high) 
nil 
(cons low (enumerate-interval (+ low 1) high)))) 


(enumerate-interval 2 7) 
(2.3 45 6 7) 


要 枚 举 出 一 棵 树 的 所 有 树叶 ， 则 可 以 用 "， 


(define (enumerate-tree tree) 
(cond ((null? tree) nil) 
((mot (pair? tree)) (list tree)) 
(else (append (enumerate-tree (car tree)) 
(enumerate-tree (cdr tree)))))) 


(enumerate-tree (list 1 (list 2 (list 3 4)) 5)) 


00 这 实际 上 就 是 练 228M fringe, EXBREAR—-T4AT, BAT RACE BHEE WRB BRK 
的 一 个 组 成 部 分 。 . ` 


22 Bikib tetetel 有 O OP 
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现在 , 我 们 就 可 以 像 上 面 的 信号 流 图 那样 重新 构造 sum~odd-squares 和 even-fibs 了 。 
对 于 sum-odd-squares， 我 们 需要 枚 举 一 棵 树 的 树叶 序列 ， 过 滤 它 ， 只 留 下 序列 中 的 奇数 ， 
求 每 个 元 素 的 平方 ， 而 后 加 起 得 到 的 结果 : 
(define {sum-odd-squares tree) 
(accumulate + 
0 
(map square 
(filter odd? 
(enumerate-tree tree))))) 


对 于 even-fibs， 我 们 需要 枚 举 出 从 0 到 n 的 所 有 整数 ， TSR THE EE RAUL SSE BB 
Mitt WAR PRP, RARE TRE: 
(define (even-fibs n) 
(accumulate cons 
nil 
(filter even? 
(map fib 
(enumerate-interval 0 n))))) 

将 程序 表示 为 一 些 针 对 序列 的 操作 ， 这 样 做 的 价值 就 在 于 能 帮助 我 们 得 到 模块 化 的 程序 
设计 ， 也 就 是 说 ， 得 到 由 一 些 比较 独立 的 片段 的 组 合 构成 的 设计 。 通 过 提供 一 个 标准 部 件 的 
库 ， 并 使 这 些 部 件 都 有 着 一 些 能 以 各 种 灵活 方式 相互 连接 的 约定 界面 ， 将 能 进一步 推动 人 们 
去 做 模块 化 的 设计 。 

在 工程 设计 中 ， 模 块 化 结构 是 控制 复杂 性 的 一 种 威力 强大 的 策略 。 举 例 来 说 ， 在 真实 的 
冒 号 处 理应 用 中 ， 设 计 者 通常 总 是 从 标准 化 的 过 滤器 和 变换 装置 族 中 选 出 一 些 东 西 ， 通 过 级 
联 的 方式 构造 出 各 种 系统 。 与 此 类 似 ， 序 列 操作 也 形成 了 一 个 可 以 混合 和 匹配 使 用 的 标准 的 
程序 元 素 库 。 例 如 ， 我 们 可 以 在 另 一 个 构造 前 + 1 个 斐 波 那 契 数 的 平方 的 程序 里 ， 使 用 取 自 
过 程 sSum-odd-sgquares 和 even-fibs 的 片段 : 

(define (list-fib-squares n) 

(accumulate cons 
nil 
(map square 
(map fib 
(enumerate-interval 0 n))))) 
(list-fib-squares 10) 
(0 11 4 9 25 64 169 441 1156 3025) 


我 们 也 可 以 重新 安排 有 关 的 各 个 片段 ， 将 它们 用 在 产生 一 个 序列 中 所 有 奇数 的 平方 之 乘积 的 
计算 里 : 


(define (product-of-squares-of-odd-elements sequence) 
(accumulate * 
1 
(Map square 
(filter odd? sequence)))) 
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(product-of-squares-of~odd-elements (list 1 2 3 4 5)) 
225 


我 们 同样 可 以 采用 序列 操作 的 方式 ， 重 新 去 形式 化 各 种 常规 的 数据 处 理应 用 。 假 定 有 一 
个 人 事 记录 的 序列 ， 现 在 希望 找 出 其 中 薪水 最 高 的 程序 员 的 工资 数额 。 假 定 现在 有 一 个 选择 
函数 salary 返 回 记 录 中 的 工资 数 ， 另 有 谓词 programmer? 检 查 某 个 记录 是 不 是 程序 员 ， 此 
时 我 们 就 可 以 写 :， 

(define (salary-of-highest-paid-programmer records) 

(accumulate max 
0 


(map salary 
(filter programmer? records) ))) 


这 些 例 子 给 了 我 们 一 些 启发 ， 范 围 广大 的 许多 操作 都 可 以 表述 为 序列 操作 ” 。 

在 这 里 ， 用 表 实 现 的 序列 被 作为 一 种 方便 的 界面 ， 我 们 可 以 利用 这 种 界面 去 组 合 起 各 种 
处 理 模块 。 进 一 步 说 ， 如 果 以 序列 作为 所 用 的 统一 表示 结构 ， 我 们 就 能 将 程序 对 于 数据 结构 
的 依赖 性 局 限 到 不 多 的 几 个 序列 操作 上 。 通 过 修改 这 些 操 作 ， 就 可 以 在 序列 的 不 同 表示 之 间 
转换 ， 并 保持 程序 的 整个 设计 不 变 。 在 3.5 节 里 还 要 继续 探索 这 方面 的 能 力 ， 那 时 将 把 序列 处 
理 的 范 型 推广 到 无 穷 序列 。 

练习 2.33 ”请 填充 下面 缺失 的 表达 式 ， 完 成 将 一 些 基 本 的 表 操 作 看 作 累 积 的 定义 : 

(define (map p sequence) 


(accumulate (lambda (x y) <??>) nil sequence) ) 


(define (append seql seq2) 
(accumulate cons <??> <??>)) 


(define (length sequence) 
{accumulate <??> 0 sequence) ) 


练习 2.34 ”对 于 x 的 某 个 给 定 值 ， 求 出 一 个 多 项 式 在 x 的 值 ， 也 可 以 形式 化 为 一 种 累积 。 假 
定 需要 求 下 面 多 项 式 的 值 : 
A,X" +q_ 1X" |+ +4aX +40 
采用 著名 的 Horner 规 则 ， 可 以 构造 出 下 面 的 计算 : 
(… (a,x tan DX+… 十 GDX 十 Go 


MIE, RT Mae, RU, Bin ba, 1， 乘 以 r， 如 此 下 去 ， 直 到 处 理 完 2 。 请 


si Richard Waters (1979) 开发 了 一 个 能 自动 分 析 传 统 的 Fortran 程 序 ， 并 用 映射 、 过 滤器 和 累积 器 的 观点 去 观察 它们 
的 程序 。 他 发 现 ， 在 Fortran Scientific Subroutine Package (Fortran 科 学 计算 子 程序 包 ) E, BRAMAN ATLA 
很 好 地 纳入 这 一 风范 之 中 。 作 为 程序 设计 语言 ，Lisp 取 得 成 功 的 一 个 原因 ， 就 在 于 它 用 表 作 为 表述 有 序 汇集 的 一 
种 标准 媒介 ， 并 使 它们 可 以 通过 高 阶 操作 来 处 理 。 程 序 设 计 语 言 APL 的 威力 和 形式 也 来 自 另 一 种 类 似 选 择 。 在 
APL 里 ， 所 有 的 数据 都 是 数组 ， 而 且 为 各 种 类 型 的 通用 数组 操作 提供 了 一 集 具有 普遍 性 、 使 用 方便 的 运算 符 。 

8 根据 Knuth (1981)， 这 一 规则 是 W. G. Homer 在 19 世 纪 早 期 提出 的 ， 但 这 一 方法 在 100 多 年 前 就 已 经 被 牛顿 实 
际 使 用 了 。Horner 规 则 在 求 值 多 项 式 时 所 用 的 加 法 和 乘法 次 数 少 干 直接 方法 ， 即 那 种 先 计 算出 a, x*， 而 后 加 
ba, x" 1， 并 这 样 做 下 去 的 方法 。 事 实 上 ， 可 以 证 明 ， 任 何 多 项 式 的 求 值 算法 至 少 需要 做 Horner 规 则 那么 多 
次 加 法 和 乘法 ， 因 此 ，Horner 规 则 就 是 多 项 式 求 值 的 最 优 算法 。 这 一 论断 由 A. M. Ostrowski 在 1954 年 的 一 入 
文章 中 (对 加 法 ) 证 明 ， 这 也 是 现代 最 优 算法 研究 的 开创 性 工作 。 关 于 乘法 的 类 似 论 断 由 YY Pan 在 1966 年 
证 明 Borodin 和 Munro 的 著作 (1975) 里 有 对 这 些 工 作 的 概述 和 有 关节 优 算法 的 其 他 一 些 结果 。 


填充 下 面 的 模板 ， 做 出 一 个 利用 Horner 规 则 求 多 项 式 值 的 过 程 。 假 定 多 项 式 的 系数 安排 在 一 
个 序列 里 ， 从 多 直至 av 。 
(define (horner-eval x coefficient-sequence) 
(accumulate (lambda (this-coeff higher-terms) <??>) 
0 
coefficient-sequence) ) 
例如 ， 为 了 计算 1 +3 +50 42° fox =2 的 值 ， 你 需要 求 值 ， 
{horner-eval 2 (list 1 3 05 0 1)) 
练习 2.35 将 2.2.2 节 的 count-leaves 重新 定义 为 一 个 累积 : 
{define (count-leaves 七 ) 
(accumulate <??> <??> (map <??> <??>))) 
练习 2.36 《过程 accumu1late-n 与 accumulate 类 似 ， 除 了 它 的 第 三 个 参数 是 一 个 序列 
序列 ， 假 定 其 中 每 个 序列 的 元 素 个 数 相同 。 它 用 指定 的 累积 过 程 去 组 合 起 所 有 序列 的 第 一 
Nok 而 后 是 所 有 序列 的 第 二 个 元 素 ， 并 如 此 做 下 去 ， 返 回 得 到 的 所 有 结果 的 序列 。 例 如 ， 
如 果 s 是 包含 着 4 个 序列 的 序列 ((1 2 3) (4 5 6) (7 8 9) (10 11 12)), 那么 
(accumulate-n+0 s) 的 值 就 应 该 是 序列 (22 26 30)。 请 填充 下 面 accumulate-n 定 
义 中 所 缺失 的 表达 式 : 
(define (accumulate-n op init seqs) 
(if (null? (car seqs)) 
nil 
(cons (accumulate op init <??>) 
(accumulate-n op init <??>)))) 


练习 2.37 ”假定 我 们 将 向 量 v =O) 表示 为 数 的 序列 , HERE = (m) 表示 为 向 量 (矩阵 行 ) 
的 序列 PAR, 4ER: 


12 3 4 
45 6 6 
: 7 8 9 
用 序列 ((1 2 3 4) (4 5 6 6) (6 7 8 9)) 表示 。 对 于 这 种 表示 ， 我 们 可 以 用 序列 操 
作 简 洁 地 表达 基本 的 矩阵 与 向 量 运 算 。 这 些 运算 (任何 有 关 和 矩阵 代数 的 书 里 都 有 描述 ) 如 下 : 
(dot-product v w) 返回 和 了 ivw;; 
(matrix-*-vector mv) BEKS, Hr = Dym 
(matrix-*-matrix m n) 返回 矩阵 p, bhp, = Benany; 
(transpose m) BEER n, Hpnj =m; 
我 们 可 以 将 点 积 (dot product) L9H", 


(define (dot-product v w) 
(accumulate + 0 (map * v w))) 


S 这 一 定义 里 使 用 了 脚注 78 中 描述 的 扩充 的 map 。 


iB L 


请 填充 下 面 过 程 里 缺失 的 表达 式 ， 它 们 计算 出 其 他 的 矩阵 运算 结果 (过 程 accumuLate-~ 
mn 在 练习 2.36 中 定义 )。 、 
(define (matrix-*-vector m v) 


(map <??> m)) 


(define (transpose mat) 
(accumulate-n <??> <??> mat) ) 


(define (matrix-*-matrix m n) 
(let ((cols (transpose n))) 
(map <??> m))) 


$52.38 过程 accumulate 也 称 为 Eol1d~right ， 因 为 它 将 序列 的 第 一 个 元 素 组 合 到 
右边 所 有 元 素 的 组 合 结果 上 。 也 有 一 个 fol1d-left ， 它 与 fo1d-zight 类 似 ， 但 却 是 按照 相 
反方 向 去 操作 各 个 元 素 : 


(define (fold-left op initial sequence) ed 
(define (iter result rest) 
(if (null? rest) 
result 
(iter (op result (car rest)) 
(cdr rest)))) 


(iter initial sequence) ) 

下 面 表 达 式 的 值 是 什么 ? 

{fold-right / 1 (list 1 2 3)) 

(fold-left / 1 (list 1 2 3)) 

(fold-right list nil (list 1 2 3)) 

(fold-left list nil (list 1 2 3)) 
如 果 要 求 用 某 个 op 时 保证 fold-right 和 foLd-Ieft 对 任何 序列 都 产生 同样 的 结果 ， 请 给 
出 op 应 该 满足 的 性 质 。 

练习 2.39 ”基于 练习 2.38 的 fo1d-right 和 fo1ld-left 完 成 reverse (练习 2.18 ) 下 面 
的 定义 : 


(define (reverse sequence) 
(fold-right (lambda (x y) <??>) nil sequence)) 


(define (reverse sequence) 
(fold~left (lambda (x y) <??>) nil sequence) ) 


REE AR St 

我 们 可 以 扩充 序列 范 型 ， 将 许多 通常 用 嵌 套 循环 表述 的 计算 也 包含 进来 "。 现 在 考虑 下 面 
的 问题 给 定 了 自然 数 +?， 找 出 所 有 不 同 的 有 序 对 i ， 其 中 1 <j <i<n， 使 得 i+j 是 素数 。 例 
如 ， 假 定 n 是 6， 满 足 条 件 的 序 对 就 是 : 

u 有 关 红 套 映射 的 这 种 方式 是 由 David Turner 展 现 给 我 们 的 ， 他 的 语言 KRC 和 Miranda 为 处 理 这 些 结构 提供 了 很 


优美 的 形式 。 本 节 里 的 例子 〈 也 请 看 练习 2.42) 取 自 Turner 1981。3.5.3 节 还 要 将 这 一 途径 推广 到 处 理 无 穷 序 
列 的 情况 。 


i+j 
完成 这 一 计算 的 一 种 很 自然 的 组 织 方式 ， 首 先生 成 出 所 有 小 于 等 于 n 的 正 自然 数 的 有 序 对 ， 而 
后 通过 过 初 ， 得 到 那些 和 为 素数 的 有 序 对 ， 最 后 对 每 个 通过 了 过 滤 的 序 对 (i, 门 ， 产 生出 一 个 
三 元 组 (i,J,i+j)。 

这 里 是 生成 有 序 对 的 序列 的 一 种 方式 : 对 于 每 个 整数 i<n， 枚 举 出 所 有 的 整数 /<i， 并 对 
每 一 对 和 生成 序 对 (i, j)。 用 序列 操作 的 方式 说 ， 我 们 要 对 序列 (enumerate-interval 
1 n) 做 一 次 映射 。 对 于 这 个 序列 里 的 每 个 i， 我 们 都 要 对 序列 (enumerate-interval 1 
(- i 1)) 做 上 映射。 对 于 后 一 序列 中 的 每 个 ， 我 们 生成 出 序 对 (List i j)。 这 样 就 对 每 
个 i 得 到 了 一 个 序 对 的 序列 。 将 针对 所 有 i 的 序列 组 合 到 一 起 (用 append 累 积 起 来 )， 就 能 产 
生出 所 需 的 序 对 序列 了 5。 


{accumulate append 
nil 
(map (lambda (i) 
(map (lambda (j) (list i j)) 
(enumerate-interval 1 (- i 1)))) 
(enumerate-interval 1 n))) 


由 于 在 这 类 程序 里 常 要 用 到 映射 ， 并 用 append 做 累积 ， 我 们 将 它 独立 出 来 定义 为 一 个 过 程 ; 


(define (flatmap proc seq) 
(accumulate append nil (map proc seq))) 


现在 可 以 过 滤 这 一 序 对 的 序列 ， 找 出 那些 和 为 素数 的 序 对 。 对 序列 里 的 每 个 元 素 调用 过 滤 谓 
词 。 由 干 这 个 谓词 的 参数 是 一 个 序 对 ， 所 以 它 必须 将 两 个 整数 从 序 对 里 提取 出 来 。 这 样 ， 作 
用 到 序列 中 每 个 元 素 上 的 谓词 就 是 : 
(define (prime-sum? pair) 
(prime? (+ (car pair) (cadr pair)))) . 
最 后 还 要 生成 出 结果 的 序列 ， 为 此 只 需 将 下 面 过 程 映 射 到 通过 过 滤 后 的 序 对 上 ， 对 每 个 有 序 
对 里 的 两 个 元 素 ， 这 一 过 程 生成 出 一 个 包含 了 它们 的 和 的 三 元 组 : 
(define (make-pair-sum pair) 
(list (car pair) (cadr pair) (+ (car pair) (cadr pair)))) 
将 所 有 这 些 组 合 到 一 起 ， 就 得 到 了 完整 的 过 程 : 
(define (prime-~sum~pairs n) 
(map make-pair-sum 
{filter prime-sum? 
(flatmap 
(lambda (i) 


(map (lambda (j) (list i j)) 
(enumerate-interval 1 (- i 1)))) 


5 这 里 的 序 对 被 表示 为 两 个 元 素 的 表 ， 没 有 直接 采用 Lisp 的 序 对 ， 因 此 ， 这 里 所 谓 的 “ 序 对 ” (ij) 就 是 
(list i j), 而 不 是 (cons i j), 


MO HR 


(enumerate-interval. 1 n))))) 
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有 排列 ， 也 就 是 说 ， 生 成 这 一 集合 的 元 素 的 所 有 可 能 排序 方式 。 例 如 ，{1，2，3} 的 所 有 排列 
wef, 2, 3}, {1, 3, 2}, {2, 1, 3}, {2, 3, 1}, (3, 1, 2} 和 {3,2, 1}。 这 里 是 生成 5 所 
有 排列 的 序列 的 一 种 方案 : 对 于 S 里 的 每 个 *， 递归 地 生成 5 -2 的 所 有 排列 的 序列 “， 而 后 将 x 
加 到 每 个 序列 的 前 面 。 这 样 就 能 对 5 里 的 每 个 ， 产 生出 了 $ 的 所 有 以 x 开头 的 排列 。 将 对 所 有 x 
的 序列 组 合 起 来 ， 就 可 以 得 到 S$ 的 所 有 排列 。 

(define (permutations s) 

(if (null? s) ; empty set? 
{list nil) ; Sequence containing empty set 
(flatmap (lambda (x) 
(map (lambda (p) (cons x p)) 
(permutations (remove x 8s)))) 
s))) 
请 注意 这 里 所 用 的 策略 ， 看 看 它 如 何 将 生成 的 所 有 排列 的 问题 ， 归 结 为 生成 元 素 少 于 5 的 集 
合 的 所 有 排列 的 问题 。 在 终极 情况 中 我 们 将 达到 空 表 ， 它 表示 没有 元 素 的 集合 。 对 此 我 们 生 
成 出 的 就 是 (list nil), 这 是 一 个 只 包含 一 个 元 素 的 序列 ， 其 中 是 一 个 没有 元 素 的 集合 。 
在 permutations 过 程 中 所 用 的 remove 过 程 返回 除 指定 项 之 外 的 所 有 元 素 ， 它 可 以 简单 地 
用 一 个 过 滤器 表示 : 
(define (remove item sequence) 
(filter (lambda (x) (not (= x item))) 
sequence) ) 

练习 2.40 请 定义 过 程 unique-pairs， 给 它 整数 +， 它 产生 出 序 对 (i, 站， 其 中 1<j<i 
<n。 请 用 unique-pairs 去 简化 上 面 prime-sum~pairs 的 定义 。 ` 

练习 2.41 ”请 写 出 一 个 过 程 ， 它 能 产生 出 所 有 小 于 等 于 给 定 整 数 4 的 正 的 相 异 整数 i、j 丰 hk 
的 有 序 三 元 组 ， 使 每 个 三 元 组 的 三 个 元 之 和 等 于 给 定 的 整数 ?。 

练习 2.42 “”“ 八 皇后 谜 题 ” 问 的 是 怎样 将 八 个 皇后 摆 在 国际 象棋 盘 上 ， 使 得 任意 一 个 皇 
后 都 不 能 攻击 另 一 个 皇后 〈 也 就 是 说 ， 任 意 两 个 皇后 都 不 在 同一 行 、 同 一 列 或 者 同一 对 角 线 
上 )。 一 个 可 能 的 解 如 图 2-8 所 示 。 解 决 这 一 谜 题 的 一 种 方法 按 一 个 方向 处 理 棋盘 ， 每 次 在 每 
一 列 里 放 一 个 皇后 。 如 果 现 在 已 经 放 好 了 -1 个 皇后 ， 第 k 个 皇后 就 必须 放 在 不 会 被 已 在 棋盘 
上 的 任何 皇后 攻击 的 位 置 上 。 我 们 可 以 递归 地 描述 这 一 过 程 :假定 我 们 已 经 生成 了 在 棋盘 的 
Aik -1 列 中 放置 E 一 1 个 皇后 的 所 有 可 能 方式 ， 现 在 需要 的 就 是 对 于 其 中 的 每 种 方式 ， 生 成 出 
将 下 一 个 皇后 放 在 第 k 列 中 每 一 行 的 扩充 集合 。 而 后 过 滤 它 们 ， 只 留 下 能 使 位 于 第 上 列 的 皇后 
与 其 他 皇后 相安 无 事 的 那些 扩充 。 这 样 就 能 产生 出 将 k 个 皇后 放置 在 前 kK 列 的 所 有 格局 的 序列 。 
继续 这 一 过 程 ， 我 们 将 能 产生 出 这 一 谜 题 的 所 有 解 ， 而 不 是 一 个 解 。 

将 这 一 解法 实现 为 一 个 过 程 queens , 令 它 返回 在 nxn 棋盘 上 放 n 个 皇后 的 所 有 解 的 序列 。 
queens 内 部 的 过 程 queen-cols ， 返 回 在 棋盘 的 前 上 列 中 帮 皇 后 的 所 有 格局 的 序列 。 


36 集合 S -x* 里 包括 了 集合 $ 中 除 * 之 外 的 所 有 元 素 。 
57 在 Scheme 代码 中 ， 分 号 用 于 引进 注释 。 从 分 号 开始 直至 行 尾 的 所 有 东西 都 将 被 解释 器 忽略 掉 。 在 本 书 里 使 用 
的 注释 并 不 多 ， 我 们 主要 是 希望 通过 使 用 有 意义 的 名 字 使 程序 具有 自 解 释 性 。 
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图 2-8 ` 八 皇后 谜 题 的 一 个 解 


(define (queens board-~size) 
(define (quéeen-cols k) 
(if (= k 0) 
(list empty-board) 
(filter ; ， 
(lambda (positions) (safe? k positions) ) 
(flatmap 
(lambda (rest-—of-queens) 
(map (lambda (new-row) 、 
(adjoin-position new-row k rest-of- _queens)) 
(enumerate-interval 1 board-size) )) 
(queen-cols (- k 1)))))) 
(queen-cols board-~-size) ) 


这 个 过 程 里 的 zest-of-queens 是 在 前 上 一 1 列 放置 上 一 1 个 皇后 的 一 种 方式 ，new-Iow 是 在 第 
k 列 放置 所 考虑 的 行 编号 。 请 完成 这 一 程序 ， 为 此 需要 实现 一 种 棋盘 格局 集合 的 表示 方式 ， 还 
要 实现 过 程 adjoin-position , 它 将 一 个 新 的 行列 格局 加 入 一 个 格局 集合 ; empty-board, 
它 表 示 空 的 格局 集合 。 你 还 需要 写 出 过 程 safe? ， 它 能 确定 在 一 个 格局 中 ， 在 第 k 列 的 皇后 相 
对 于 其 他 列 的 皇后 是 否 为 安全 的 (请 注意 ， 我 们 只 需 检查 新 皇 肯 是 否 安 全 一 一 其 他 皇后 已 经 保 
证 相安 无 事 了 )。 

练习 2.43 Louis Reasoner 在 做 练习 2.42 时 遇 到 了 麻烦 ， 他 的 queens 过 程 看 起 来 能 行 ， 
但 却 运行 得 极 慢 (Louis 居 然 无 法 忍耐 到 它 解 出 6 x6 棋 盘 的 问题 )。 当 Louis 请 Eva Lu Ator 帮 忙 
时 ， 她 指出 他 在 ELatmap 里 交换 了 网 套 映射 的 顺序 ， 将 它 写成 了 : 


(flatmap . 
(lambda (new-row) 


HEHEHE 


(map (lambda (rest-of-queens) 
(adjoin-position new-row k rest-of-queens) ) 
(queen-cols (- k 1)))) 
(enumerate-interval 1 board-size) ) 


请 解释 一 下 ， 为 什么 这 样 交换 顺序 会 使 程序 运行 得 非常 慢 。 估 计 一 下 ， 用 Louis 的 程序 去 解决 
八 皇 后 问题 大 约 需 要 多 少时 间 ， 假 定 练习 2.42 中 的 程序 需 用 时 间 T 求 解 这 一 难题 。 


2.2.4 实例 ， 一 个 图 形 语言 


本 节 将 介绍 一 种 用 于 画图 形 的 简单 语言 ， 以 展示 数据 抽象 和 佬 包 的 威力 ， 其 中 也 以 一 种 
非常 本 质 的 方式 使 用 了 高 阶 过 程 。 这 一 语言 的 设计 就 是 为 了 很 容易 地 做 出 一 些 模式 ， 例 如 图 
2-9 中 所 示 的 那 类 图 形 ， 它 们 是 由 某 些 元 素 的 重复 出 现 而 构成 的 ， 这 些 元 素 可 以 变形 或 者 改变 
大 小 8 。 在 这 个 语言 里 ， 数 据 元 素 的 组 合 都 用 过 程 表 示 ， 而 不 是 用 表 结构 表示 。 就 像 cons 满 
足 一 种 闭 包 性 质 ， 使 我 们 能 构造 出 任意 复杂 的 表 结 构 一 样 ， 这 二 语言 中 的 操作 也 满足 闭 包 性 
质 ， 使 我 们 很 容易 构造 出 任意 复杂 的 模式 。 
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图 2-9 利用 这 一 图 形 语言 生成 的 各 种 设计 
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图 形 语 言 

在 1.1 节 里 开始 研究 程序 设计 时 我 们 就 强调 说 ， 在 描述 一 种 语言 时 ， 应 该 将 注意 力 集中 到 
语言 的 基本 原 语 、 它 的 组 合 手 段 以 及 它 的 抽象 手段 ， 这 是 最 重要 的 。 这 里 的 工作 也 将 按照 同 
样 的 框架 进行 。 

这 一 图 形 语言 的 优美 之 处 ， 部 分 就 在 于 语言 中 只 有 一 种 元 素 ， 称 为 画家 (painter). 
画家 将 画 出 一 个 图 像 ， 这 种 图 像 可 以 变形 或 者 改变 大 小 ， 以 便 能 正好 放 到 某 个 指定 的 平行 四 
边 形 框架 里 。 举 例 来 说 ， 这 里 有 一 个 称 为 wave 的 基本 画家 ， 它 能 做 出 如 图 2-10 所 示 的 折线 画 ， 
而 所 做 出 图 画 的 实际 形状 依赖 于 具体 的 框架 一 一 图 2-10 里 的 四 个 图 像 都 是 由 同一 个 画家 wave 
产生 的 ， 但 却 是 相对 于 四 个 不 同 的 框架 。 有 些 画 家 比 它 更 精妙 : 称 为 rogers 的 基本 画家 能 画 


88 这 一 图 形 语言 是 基于 Peter Henderson 所 创建 的 ， 用 于 构造 类 似 于 M.C. Escher 的 版 画 “ 方 形 的 极限 ”中 那样 的 
形象 ( 见 Henderson 1982) 的 一 种 语言 。Escher 的 版 画 由 一 种 重复 的 变 尺 度 模式 构成 ， 很 像 本 节 中 用 
square-1limit 过 程 排 出 的 图 画 。 
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出 MIT 的 创始 人 William Barton Rogers 的 画像 ， 如 图 2-11 所 示 ”。 图 2-11 里 的 四 个 图 像 是 相对 于 
与 图 2-10 中 wave 形 象 同样 的 四 个 框架 画 出 来 的 。 
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图 2-10 由 画家 wave 相 对 于 4 个 不 同 框架 而 产生 出 的 图 像 。 
相应 框架 用 点 线 表 示 ， 它 们 并 不 是 图 像 的 组 成 部 分 


s9 William Barton Rogers (1804 —1882) 是 MIT 的 创始 人 和 第 一 任 校长 。 他 曾 作 为 地 质 学 家 和 才华 横 溢 的 教师 ， 

在 William and Mary (威廉 和 玛丽 ) 学 院 和 弗吉尼亚 大 学 任教 。1859 年 他 搬 到 了 波士顿 ， 在 那里 他 可 以 有 更 多 
的 时 间 去 从 事 研究 工作 ， 可 以 着 手 他 的 一 个 创建 “综合 性 技术 学 院 ” 的 计划 。 此 时 他 还 是 马萨诸塞 第 一 任 的 
煤气 表 的 州 检查 员 。 

在 1861 年 MIT 创 建 时 ，Rogers 被 选 为 第 一 任 校长 。Rogers 推 崇 一 种 “学 以 致 用 ”的 思想 ， 这 与 当时 流行 
的 有 关 大 学 教育 的 观点 截然 不 同 。 当 时 在 大 学 里 人 们 过 于 强调 经 典 ， 正 如 Rogers 所 写 的 ， 那 些 东 西 “阻碍 了 
更 广泛 、 更 深入 和 更 实际 的 自然 科学 和 社会 科学 的 教育 和 训练 ” 。Rogers 认 为 这 一 教育 方式 也 应 该 与 职业 学 校 
式 的 教育 截然 不 同 ， 用 他 的 话说 : 

强制 性 地 区 分 实践 工作 者 和 科学 工作 者 是 完全 无 益 的 ， 当 代 的 所 有 经 验 已 经 证 明 这 种 区 分 也 是 
完全 没有 价值 的 。 

Rogers 作为 MIT 的 校长 一 直到 1870 年 ， 是 年 他 因为 健康 原因 而 退休 。 到 了 1878 年 ，MIT 的 第 二 任 校 长 
John Runkle 由 于 1873 年 的 金融 大 恐慌 带 来 的 财政 危机 的 压力 ， 以 及 哈佛 企图 提取 MIT 的 斗争 压力 而 退休 ， 
Rogers 重新 回 到 校长 办 公 室 ， 一 直 工作 到 1881 年 。 

Rogers 在 1882 年 给 MIT 毕 业 班 举行 的 毕业 典礼 的 致辞 中 倒 下 去 世 。Runkle 在 同年 举行 的 纪念 会 致辞 中 引 
用 了 Rogers 最 后 的 话 ， 

“ 当 我 今天 站 在 这 里 环顾 校园 时 ，…… 我 看 到 了 科学 的 开始 。 我 记得 在 150 年 以 前 ，Stephen 

Hales 出 版 了 一 本 小 册子 ， 讨 论 照明 用 气 的 课题 ， 在 书 中 他 写 到 ， 他 的 研究 表明 了 128 谷 (英美 重 量 

单位 ， 每 谷 合 64.8 毫 克 一 ika) 烟煤 ……” 

“烟煤 ,” 这 就 是 他 留 在 这 个 世界 上 的 最 后 一 个 词 。 当 时 他 逐渐 地 向 前 倾 下 去 ， 就 像 是 要 在 他 

面前 的 频 子 上 查看 什么 注 记 ， 而 后 他 又 慢 慢 地 恢复 到 直立 状态 、 举 起 了 他 的 双手 , 慢 慢 地 ， 从 他 那 

生 世 劳作 和 胜利 的 喜悦 感觉 转变 为 “死亡 的 明天 "， 在 那里 生命 的 奇迹 结束 了 ， 而 脱离 TARRA 

则 向 往 着 那 无 穷 未 来 中 全 新 的 永远 深 不 可 测 的 奥秘 ， 并 从 中 得 到 无 尽 的 满足 。 

用 Francis A. Walker (MIT 的 第 三 任 校长 ) 的 话说 : 

他 的 整个 一 生 都 证 明了 他 是 最 正直 和 最 勇敢 的 人 ， 他 的 死 也 像 一 个 骑士 所 最 希望 的 那样 FH 

Re, GAA CML, RE 他 对 于 社会 的 职责 。 
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图 2-11 William Barton Rogers (MIT 的 创始 人 和 第 一 任 校长 ) 的 图 像 ， 依 据 与 
图 2-10 中 同样 的 4 个 框架 画 出 (原始 图 片 经 MIT 博 物 馆 的 允许 重印 ) 


为 了 组 合 起 有 关 的 图 像 ， 我 们 要 用 一 些 可 以 从 给 定 画家 构造 出 新 画家 的 操作 。 例 如 ， 操 
作 beside 从 两 个 画家 出 发 ， 产生 一 个 复合 型 画家 ， 它 将 第 一 个 画家 的 图 像 画 在 框架 中 左边 的 
一 半 里 ， 将 第 二 个 画家 的 图 像 画 在 框架 里 右边 一 半 里 。 与 此 类 似 ，be1low 从 两 个 画家 出 发 产 
生 一 个 组 合 型 画家 ， 将 第 一 个 画家 的 图 像 画 在 第 二 个 画家 的 图 像 之 下 。 有 些 操 作 将 一 个 画家 
转换 为 另 一 个 新 画家 。 例 如 ，f1lip-vert 从 一 个 画家 出 发 ， 产生 一 个 将 该 画家 所 画图 像 上 下 
颠倒 画 出 的 画家 ， 而 fl1ip-horiz 产 生 的 画家 将 原画 家 的 图 像 左 右 反 转 后 画 出 。 

图 2-12 说 明了 从 wave 出 发 ,经 过 两 步 做 出 一 个 名 为 Wave4 的 画家 的 方式 : 


人 NA 


(define wave2 (define wave4 
(beside wave (flip-vert wave) )) (below wave2 wave2) ) 


图 2-12 从 图 2-10 的 画家 wave 出 发 ， 建 立 起 一 个 复杂 图 像 
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(define wave2 (beside wave (flip-vert wave))) 
(define wave4 (below Wave2 wave2)) 


在 按 这 种 方法 构造 复杂 的 图 像 时 ， 我 们 利用 了 一 个 事实 : 画家 在 有 关 语 言 的 组 合 方式 下 
是 封闭 的 : 两 个 画家 的 beside 或 者 below 还 是 画家 ， 因 此 还 可 以 用 它们 作为 元 素 去 构造 更 
复杂 的 画家 。 就 像 用 cons 构造 起 各 种 表 结 构 一 样 ， 我 们 所 用 的 数据 在 组 合 方式 下 的 闭 包 性 质 
非常 重要 ， 因 为 这 使 我 们 能 用 不 多 几 个 操作 构造 出 各 种 复杂 的 结构 。 

一 旦 能 做 画家 的 组 合 之 后 ， 我 们 就 希望 能 抽象 出 典型 的 画家 组 合 模式 ， 以 便 将 这 种 组 合 
操作 实现 为 一 些 Scheme 过 程 。 这 也 意味 着 我 们 并 不 需要 这 种 图 形 语言 里 包含 任何 特殊 的 抽象 
机 制 ， 因 为 组 合 的 方式 就 是 采用 普通 的 Scheme 过 程 。 这 样 ， 对 于 画家 ， 我 们 就 自动 有 了 能 够 
做 原来 可 以 对 过 程 做 的 所 有 事情 。 例 如 ， 我 们 可 以 将 wave4 中 的 模式 抽象 出 来 : 


(define (flipped-pairs painter) 
(let ((painter2 (beside painter (flip-vert painter)))) 
(below painter2 painter2))) 


并 将 wave4 重 新 定义 为 这 种 根 式 的 实例 : 
(define wave4 (flipped-pairs wave) ) 
我 们 也 可 以 定义 递归 操作 。 下 面 就 是 一 个 这 样 的 操作 ， 它 在 图 形 的 右边 做 分 割 和 分 支 ， 
就 像 在 图 2-13 和 图 2-14 中 显示 的 那样 : 
(define (right-split painter n) 
(if (= n 0) 
painter . 
(let ((smaller (right-split painter (~ n 1)))) 
(beside painter (below smaller smaller))))) 
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图 2-13 right-split 和 corner-split 的 递归 方案 


通过 同时 在 图 形 中 向 上 和 向 右 分 支 ， 我 们 可 以 产生 出 一 种 平衡 的 模式 〈 见 练习 2.44、 图 2-13 和 图 
2-14); 
(define (corner-split painter n) 
(if (= n 0) 
painter 
(let ((up (up-split painter (- n 1))) 
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图 2-14 将 递归 操作 right-split 和 corner-split 应 用 于 画家 wave 和 rogers。 图 2-9 中 
显示 的 是 组 合 起 4 个 corner-split 图 形 产 生出 的 square-1imit 对 称 图 形 设 计 
(right (right-split painter (- n 1)))) 
(let ((top-left (beside up up)) 
(bottom-right (below right right)) 
(corner (corner-split painter (- n 1)))) 
(beside (below painter top-left) 
(below bottom-right corner)))))) 
将 某 个 corner-split 的 4 个 拷贝 适当 地 组 合 起 来 ， 我 们 就 可 以 得 到 一 种 称 为 Square- 
1imit 的 模式 ， 将 它 应 用 于 wave 和 rogers 的 效果 见 图 2-9。 
(define (square-limit painter n) 
(let ((quarter (corner-split painter n))) 
(let ((half (beside (flip-horiz quarter) quarter))) 
(below (flip-vert half) half)))) 
练习 2.44 请 定义 出 corner-split 里 使 用 的 过 程 up-split， 它 与 right-split 类 
似 ， 除 在 其 中 交换 了 below 和 beside 的 角色 之 外 。 
高 阶 操作 
除了 可 以 获得 组 合 画 家 的 抽象 模式 之 外 ， 我 们 同样 可 以 在 高 阶 上 工作 ， 抽 象 出 画家 的 各 
种 组 合 操作 的 模式 。 也 就 是 说 ， 可 以 把 画家 操作 看 成 是 操控 和 描写 这 些 元 素 的 组 合 方法 的 元 
素 一 一 写 出 一 些 过 程 ， 它 们 以 画家 操作 作为 参数 ， 创 建 出 各 种 新 的 画家 操作 。 


举例 来 说 ，f1ipped-pairs 和 square-1imit 两 者 都 将 一 个 画家 的 四 个 拷贝 安排 在 一 
个 正方 形 的 模式 中 ， 它 们 之 间 的 差异 仅仅 在 这 些 拷贝 的 旋转 角度 。 抽 象 出 这 种 画家 组 合 模式 
的 一 种 方式 是 定义 下 面 的 过 程 ， 它 基于 四 个 单 参数 的 画家 操作 ， 产 生出 一 个 画家 操作 ， 这 一 
操作 里 将 用 这 四 个 操作 去 变换 一 个 给 定 的 画家 ， 并 将 得 到 的 结果 放 人 一 个 正方 形 里 。t1、tz、 
bl 和 br 分 别 是 应 用 于 左上 角 、 右 上 角 、 左 下 角 和 右 下 角 的 四 个 撕 贝 的 变换 : 
(define (square-of-four tl tr bl br) 
(lambda (painter) 
(let ((top (beside (tl painter) (tr painter))) 
(bottom (beside (bl painter) (br painter)))) 
(below bottom top)))) 
操作 ELipped-pairs 可 以 基于 square-of-four 定 义 如 下 ?0 ， 
(define (flipped-pairs painter) 
(let ((combine4 (square-of-four identity flip-vert 
identity flip-vert))) 
(combine4 painter))} 
而 square-limit 可 以 描述 为 ?!: 
(define (square-limit painter n) 
(let ((combine4 (square-of-four flip-horiz identity 
rotatel80 flip-vert))) 
(combine4 (corner-split painter n)))) 
练习 2.45 ”可 以 将 right-split 和 up-split 表 述 为 某 种 广义 划分 操作 的 实例 。 请 定义 
一 个 过 程 split ， 使 它 具 有 如 下 性 质 ， 求 值 : 
(define right-split (split beside below)) 
(define up- split (split below beside) ) 


产生 能 够 出 过 程 right-split 和 up-split ， 其 行为 与 前 面 定 义 的 过 程 一 样 。 


框架 

在 我 们 进一步 弄 清楚 如 何 实现 画家 及 其 组 合 方式 之 前 ， 还 必须 首先 考虑 框架 的 问题 。 一 
个 框架 可 以 用 三 个 向 量 描述 : 一 个 基准 向 量 和 两 个 角 向 量 。 基 准 向 量 描述 的 是 框架 基准 点 相 
对 于 平面 上 某 个 绝对 基准 点 的 偏 移 量 ， 角 向 量 描述 了 框架 的 角 相 对 于 框架 基准 点 的 偏 移 量 。 
如 果 两 个 角 向 量 正 交 ， 这 个 框架 就 是 一 个 矩形 。 否 则 它 就 是 一 个 一 般 的 平行 四 边 形 。 

图 2-15 显 示 的 是 一 个 框架 和 与 之 相关 的 三 个 向 量 。 根 据 数 据 抽 象 原理 ， 我 们 现在 完全 不 
必 去 说 清楚 框架 的 具体 表示 方式 ， 而 只 需要 说 明 ， 存 在 着 一 个 构造 函数 make-frame ， 它 能 
从 三 个 向 量 出 发 做 出 一 个 框架 。 与 之 对 应 的 选择 函数 是 origin-frame、edge1l-frame 和 
edge2-frame ( 见 练习 2.47 ) 。 

我 们 将 用 单位 正方 形 (0 <x, y <1) 里 的 坐标 去 描述 图 像 。 对 于 每 个 框架 ， 我 们 要 为 它 关 联 
一 个 框架 坐标 映射 ， 借 助 它 完成 有 关 图 像 的 位 移 和 伸缩 ， 使 之 能 够 适 配 于 这 个 框架 。 这 一 映 


”我 们 也 可 以 等 价 地 将 其 写 为 : 
(define flipped-pairs 
(square-of-four identity flip-vert identity flip-vert)) 


9 rotate180 将 一 个 画家 旋转 180 度 ( 见 练习 2.50 )。 不 用 rotatel180 ， 我 们 也 可 以 利用 练习 1. 和 2 的 compose 
过 程 ， 写 (compose flip-vert flip-horiz), 
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框架 基 
准 向 量 显示 屏 上 的 (0, 0) 点 


图 2-15 一 个 框架 由 三 个 向 量 描述 ， 包 括 一 个 基准 向 量 和 两 个 角 向 量 


射 的 功能 就 是 把 单位 正方 形变 换 到 相应 框架 ， 所 采用 的 方法 也 就 是 将 向 量 y = (xX, y) 映射 到 下 
面 的 向 量 和 : 
Origin (Frame) +x - Edge, (Frame) +y - Edge, (Frame) 
例如 ， 点 (0, 0) 将 被 映射 到 给 定 框架 的 原点 ，(1, 1) 被 映射 到 与 原点 对 角 的 那个 点 ， 而 (0.5, 
0.5) 被 映射 到 给 定 框架 的 中 心 点 。 我 们 可 以 通过 下 面 过 程 建立 起 框架 的 坐标 映射 ”: 
(define (frame-coord-map frame) 
(lambda (v) 
(add-vect 
(origin-frame frame) 
(add-vect (scale-vect (xcor-vect v) 
(edgel-frame frame)) 
(scale-vect (ycor-vect v) 
({edge2-frame frame)))))) 


请 注意 看 ， 这 里 将 frame-coord-map 应 用 于 一 个 框架 的 结果 是 返回 了 一 个 过 程 ， 它 对 于 每 
个 给 定 的 向 量 返回 另 一 个 向 量 。 如 果 参 数 向 量 位 于 单位 正方 形 里 ， 得 到 的 对 应 结果 向 量 也 将 
位 于 相应 的 框架 里 。 例 如 : 
((frame-coord-map a-frame) (make-vect 0 0)) 
返回 的 向 量 如 下 : 
(origin-frame a-frame) 
练习 2.46 ”从 原点 出 发 的 一 个 两 维 向 量 ? 可 以 用 一 个 由 x 坐 标 黎 坐标 构成 的 序 对 表示 。 请 
为 这 样 的 向 量 实现 一 个 数据 抽象 : 给 出 一 个 构造 函数 make~vect ， 以 及 对 应 的 选择 函数 
xcor-vect 和 ycor-vect 。 借 助 于 你 给 出 的 构造 函数 和 选择 函数 ， 实 现 过 程 add-vect、 
sub-vect 和 scale-vect ， 它 们 能 完成 向 量 加 法 、 向 量 减法 和 向 量 的 伸缩 。 
(x1, yi) Ha, y) =O tx, yi +y) 
(x1, y) ~O2, y) =O —X2, yi —Y2) 
s: (x, y)=(sx, sy) 


2 过 程 frame-coord-map 用 到 了 练习 2.46 里 讨论 的 向 县 操 作 ， 现 在 假定 它们 已 经 在 某 种 向 量 表示 上 实现 好 了 。 
由 于 这 里 采用 了 数据 抽象 ， 只 要 这 些 向 量 操作 的 行为 是 正确 的 ， 采 用 什么 样 的 具体 向 量 表示 方式 都 没有 关系 。 
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练习 2.47 下 面 是 实现 框架 的 两 个 可 能 的 过 程 函 数 : 
(define (make-frame origin edgel edge2) 
(list origin edgel edge2)) 
(define (make-frame origin edgel edge2) 
(cons origin (cons edgel edge2))) 
请 为 每 个 构造 函数 提供 适当 的 选择 函数 ， 为 框架 做 出 相应 的 实现 。 
画家 
一 个 画家 被 表示 为 一 个 过 程 ， 给 了 它 一 个 框架 作为 实际 参数 ， 它 就 能 通过 适当 的 位 移 和 
伸缩 ， 画 出 一 幅 与 这 个 框架 匹配 的 图 像 。 也 就 是 说 ， 如 果 p 是 一 个 画家 而 上 是 一 个 框架 ， 通 过 
以 上 作为 实际 参数 调用 p ， 就 能 产生 出 上 中 P 的 图 像 。 
基本 画家 的 实现 细节 依赖 于 特定 图 形 系统 的 各 种 特性 和 被 画图 像 的 种 类 。 例 如 ， 假 定 现 
在 有 了 一 个 过 程 araw-1Line， 它 能 在 屏幕 上 两 个 给 定点 之 间 画 出 一 条 直线 ， 那 么 我 们 就 可 以 
利用 它 创 建 一 个 画 折线 图 的 画家 ， 例 如 从 通过 下 面 的 线段 表 创建 出 图 2-10 的 wave 画 家 ”: 
(define (segments->painter segment-list) 
(lambda (frame) 


(for-each 
(lambda (segment) 


4 


(draw-line 、 
((frame-coord-map frame) (start-segment segment) ) 
((frame-coord-map frame) (end-segment segment) )))} 
segment-list))) 
这 里 所 给 出 的 线段 都 用 相对 于 单位 正方 形 的 坐标 描述 ， 对 于 表 中 的 每 个 线段 ， 这 个 画家 将 根 
据 框架 坐标 映射 ， 对 线段 的 各 个 端点 做 变换 ， 而 后 在 两 个 端点 之 间 画 一 条 直线 。 
将 画家 表示 为 过 程 ， 就 在 这 一 图 形 语言 中 竖立 起 一 道 强 有 力 的 抽象 屏障 。 这 就 使 我 们 可 
以 创建 和 混用 基于 各 种 图 形 能 力 的 各 种 类 型 的 基本 画家 。 任 何 过 程 只 要 能 取 一 个 框架 作为 参 
数 ， 画 出 某 些 可 以 伸缩 后 适合 这 个 框架 的 东西 ， 它 就 可 以 作为 一 个 画家 ”。 
练习 2.48 平面 上 的 一 条 直线 段 可 以 用 一 对 向 量 表 示 一 一 从 原点 到 线段 起 点 的 向 量 ， 以 及 
从 原点 到 线段 终点 的 向 量 。 请 用 你 在 练习 2.46 做 出 的 向 量 表示 定义 一 种 线段 表示 ， 其 中 用 构 
造 函 数 make-~segment| 以 及 选择 函数 start-segment 和 end-segment.。 
练习 2.49 利用 segments->painter 定 义 下 面 的 基本 画家 : 
.a) 画 出 给 定 框架 边界 的 画家 。 
b) 通过 连接 框架 两 对 角 画 出 一 个 大 叉子 的 画家 。 
c) 通过 连接 框架 各 边 的 中 点 画 出 一 个 菱形 的 画家 。 
d) 画家 wave。 


9 画家 segments->painter 用 到 了 练习 2.48 里 描述 的 线段 表示 ， 还 用 到 练习 2.23 里 描述 的 for~each 过 程 。 

%4 举例 来 说 ， 图 2-11 里 的 rogers 画 家 是 用 一 个 灰 度 图 像 创建 的 ， 对 于 给 定 框架 中 的 每 个 点 ，rogers 画 家 都 将 
在 图 像 中 确定 一 个 点 ， 它 应 该 在 有 关 的 框架 坐标 映射 下 映射 到 框架 中 的 这 个 点 ,而 且 涂 灰 这 个 点 。 通 过 允许 
不 同 种 类 的 画家 ， 我 们 大 大 发 扬 了 2.1.3 节 中 讨论 的 抽象 数据 的 思想 ， 在 那里 提出 说 一 种 有 理 数 表示 可 以 是 任 
何 的 东西 ， 只 要 它 能 满足 适当 的 条 件 。 这 里 利用 的 事实 就 是 ， 一 个 画家 可 以 以 任何 方式 实现 ， 只 要 它 能 在 指 
定 的 框架 里 画 出 一 些 东 西 来 。2.1.3 节 还 说 明了 如 何 将 序 对 实现 为 过 程 。 画 家 也 是 我 们 用 过 程 表示 数据 的 又 一 
个 例子 。 : 


_ Sn 


画家 的 变换 和 组 合 

各 种 对 画家 的 操作 (例如 flip-vert 或 者 beside) 的 功能 就 是 创建 另 一 个 画家 ， 这 其 
中 涉及 到 原来 的 画家 ， 还 涉及 到 根据 参数 框架 派生 出 的 某 些 框架 。 举 例 来 说 ，f1ip-vert 在 
反 转 画家 时 完全 不 必 知 道 它们 究竟 如 何 工作 ， 它 只 需 知 道 怎 样 将 一 个 框架 上 下 颐 倒 就 足够 了 。 
产生 出 的 画家 使 用 的 仍 是 原来 的 画家 ， 只 不 过 是 让 它 在 一 个 颠倒 的 框架 里 工作 。 

对 于 画家 的 操作 都 基于 一 个 过 程 transform-painter ， 它 以 一 个 画家 以 及 有 关 怎 样 变 
换 框 架 和 生成 画家 的 信息 作为 参数 。 对 一 个 框架 调用 这 样 的 变换 去 产生 画家 ， 实 际 完成 的 是 
对 这 个 框架 的 一 个 变换 ， 并 基于 变换 后 的 框架 去 调用 原来 的 画家 。transform-painter 的 
参数 是 一 些 点 (用 向 量 表 示 ) ， 它 们 描述 了 新 框架 的 各 个 角 。 在 用 于 做 框架 变换 时 ， 第 一 个 点 ， 
描述 的 是 新 框架 的 原点 ， 另 外 两 个 点 描述 的 是 新 框架 的 两 个 边 向 量 的 终点 。 这 样 ， 位 于 单位 
正方 形 里 的 参数 描述 的 就 是 一 个 包含 在 原 框架 里 面 的 框架 。 

(define (transform-painter painter origin cornerl corner2) 

(lambda (frame) 
(let ((m (frame-coord-map frame) )) 
(let ((new-origin (m origin))) 
(painter 
(make-frame new-origin , 


(sub-vect (m cornerl) new-origin) 
(sub-vect (m corner2) new-origin))))))) 


从 下面 可 以 看 到 如 何 给 出 反 转 画家 的 定义 : 
(define (flip-vert painter) 
(transform-painter painter 
(make-vect 0.0 1.0) ; new origin 
(make-vect 1.0 1.0) ; new end of edgel 
(make-vect 0.0 0.0))) ; new end of edge2 


利用 transform-painter 很 容易 定义 各 种 新 的 变换 。 例 如 ， 我 们 可 以 定义 出 一 个 画家 ， 它 
将 自己 的 图 像 收 缩 到 给 定 框架 右上 的 四 分 之 一 区 域 里 : 


(define (shrink-to-upper-right painter) 
(transform-painter painter 
(make-vect 0.5 0.5) 
(make-vect 1.0 0.5) 
(make-vect 0.5 1.0))) 


另 一 个 变换 将 图 形 按 照 逆 时 针 方 向 旋转 90 度 ”: 
(define (rotate90 painter) 
(transform-painter painter 
(make-vect 1.0 0.0) 
(make-vect 1.0 1.0) 
(make-vect 0.0 0.0))) 


或 者 将 图 像 向 中 心 收缩 ”: 


(define (squash-inwards painter) 


% 恋 换 rotate90 只 有 对 正方 形 框架 工作 才 是 真正 的 旋转 ， 因 为 它 还 要 拉 伸 或 者 压缩 图 像 去 适应 框架 。 
% 图 2-10 和 图 2-11 里 的 菱形 图 形 就 是 通过 将 squash-inwarads 作用 于 wave 和 rogers 而 得 到 的 。 
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(transform-painter painter 
(make-vect 0.0 0.0) 
(make-vect 0.65 0.35) 
(make-vect 0.35 0.65))) 


框架 变换 也 是 定义 两 个 或 者 更 多 画家 的 组 合 的 关键 。 例 如 ，beside 过 程 以 两 个 画家 为 参 
数 ， 分 别 将 它们 变换 为 在 参数 框架 的 左 半边 和 右 半 边 画 图 ， 这 样 就 产生 出 一 个 新 的 复合 型 画 
家 。 当 我 们 给 了 这 一 画家 一 个 框架 后 ， 它 首先 调用 其 变换 后 的 第 一 个 画家 在 框架 的 左 半边 画 
图 ， 而 后 调用 变换 后 的 第 二 个 画家 在 框架 的 右 半边 画图 : 

(define (beside painterl painter2) 

(let ((split-point (make-vect 0.5 0.0))) 
(let ((paint-left 
{transform-painter painterl 
(make-vect 0.0 0.0) 
split-point 
(make-vect 0.0 1.0))) 
(paint-right 
(transform-painter painter2 
split-point 
(make-vect 1.0 0.0) 
(make-vect 0.5 1.0)))) 
(lambda (frame) 
(paint-left frame) 
(paint-right frame))))) 

请 特别 注意 ， 这 里 的 画家 数据 抽象 ， 特 别 是 将 画家 用 过 程 表示 ， 怎 样 使 peside 的 实现 变 
得 如 此 简单 。 这 里 的 beside 过 程 完全 不 必 了 解 作为 其 成 分 的 各 个 画家 的 任何 东西 ， 它 只 需 知 
道 这 些 画 家 能 够 在 指定 框架 里 画 出 一 些 东 西 就 够 了 。 

练习 2.50 ”请 定义 变换 f1ip-horiz ， 它 能 在 水 平方 向 上 反 转 画家 。 再 定义 出 对 画家 做 
反 时 针 方 向 上 180 度 和 270 度 旋转 的 变换 。 

练习 2.51 ”定义 对 画家 的 below 操 作 ， 它 以 两 个 画家 为 参数 。 在 给 定 了 一 个 框架 后 ， 由 
below 得 到 的 画家 将 要 求 第 一 个 画家 在 框架 的 下 部 画图 ， 要 求 第 二 个 画家 在 框架 的 上 部 画图 。 
请 按 两 种 方式 定义 below: 首先 写 出 一 个 类 似 于 上 面 beside 的 过 程 ， 另 一 个 则 直接 通过 
beside 和 适当 的 旋转 操作 (来 自 练习 2.50) 完成 有 关 工 作 。 

强健 设计 的 语言 层次 

在 上 述 的 图 形 语言 中 ， 我 们 演习 了 前 面 介 绍 的 有 关 过 程 和 数据 抽象 的 关键 思想 。 其 中 的 
基本 数据 抽象 和 画家 都 用 过 程 表 示 实 现 ， 这 就 使 该 语言 能 以 一 种 统一 方式 去 处 理 各 种 本 质 上 
完全 不 同 的 画图 能 力 。 实 现 组 合 的 方法 也 满足 闭 包 性 质 ， 使 我 们 很 容易 构造 起 各 种 复杂 的 设 
计 。 最 后 ， 用 于 做 过 程 抽 象 的 所 有 工具 ， 现 在 也 都 可 用 作 组 合 画家 的 抽象 手段 。 

我 们 也 对 程序 设计 的 另 一 个 关键 概念 有 了 一 点 认识 ， 这 就 是 分 层 设 计 的 问题 。 这 一 概念 
说 的 是 ， 一 个 复杂 的 系统 应 该 通过 一 系列 的 层次 构造 出 来 ， 为 了 描述 这 些 层 次 ， 需 要 使 用 一 
系列 的 语言 。 构 造 各 个 层次 的 方式 ,就 是 设法 组 合 起 作为 这 一 层次 中 部 件 的 各 种 基本 元 素 ， 
而 这 样 构造 出 的 部 件 又 可 以 作为 另 一 个 层次 里 的 基本 元 素 。 在 分 层 设 计 中 ， 每 个 层次 上 所 用 
的 语言 都 提供 了 一 些 基本 元 素 、 组 合 手段 ， 还 有 对 该 层次 中 的 适当 细节 做 抽象 的 手段 。 
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在 复杂 系统 的 工程 中 广泛 使 用 这 种 分 层 设计 方法 。 例 如 ， 在 计算 机 工程 里 ， 电 阻 和 晶体 
管 被 组 合 起 来 (用 模拟 电路 的 语言 ) ， 产 生出 一 些 部 件 ， 例 如 与 门 、 或 门 等 等 ;这 些 门 电路 又 
被 作为 数字 电路 设计 的 语言 中 的 基本 元 素 ”。 将 这 类 部 件 组 合 起 来 ， 构 成 了 处 理 器 、 总 线 和 存 
储 系统 ， 随 即 ， 又 通过 它们 的 组 合 构 造 出 各 种 计算 机 ， 此 时 采用 的 是 适合 于 描述 计算 机 体系 
结构 的 语言 。 计 算 机 的 组 合 可 以 进一步 构成 分 布 式 系统 ,采用 的 是 适合 描述 网 络 互联 的 语言 。 
我 们 还 可 以 这 样 做 下 去 。 f 

作为 分 层 设计 的 一 个 小 例子 ， 我 们 的 图 形 语言 用 了 一 些 基本 元 素 (基本 画家 ) ， 它 们 是 基 
于 描述 点 和 直线 的 语言 建立 起 来 ,为 segments->painter 提 供 线 段 表 ， 或 者 为 rogers 之 
类 提供 着 色 能 力 。 前 面 关于 这 一 图 形 语言 的 描述 ， 主要 是 集中 在 这 些 基本 元 素 的 组 合 方面 ， 
采用 的 是 beside 和 below 一 类 的 几何 组 合 手段 。 我 们 也 在 更 高 的 层次 上 工作 ， 将 beside 和 
below 作 为 基本 元 素 ， 在 一 个 具有 square-of-four 一 类 操作 的 语言 中 处 理 它们 ， 这 些 操作 
抓 住 了 一 些 将 几何 组 合 手段 组 合 起 来 的 常见 模式 .。 

分 层 设计 有 助 于 使 程序 更 加 强健 ， 也 就 是 说 ， 使 我 们 更 有 可 能 在 给 定 规范 发 生 一 些小 改 
变 时 ， 只 需 对 程序 做 少量 的 修改 。 例 如 ， 假 定 我 们 希望 改变 图 2-9 所 示 的 基于 wave 的 图 像 ， 
我 们 就 可 以 在 最 低 的 层次 上 工作 ， 直 接 去 修改 wave 元 素 的 表现 细节 ， 也 可 以 在 中 间 层 次 上 工 
作 ， 改 变 corner-Sp1it 里 重复 使 用 wave 的 方式 ， 也 可 以 在 最 高 的 层次 上 工作 ， 改 变 对 图 
形 中 各 个 角 54 个 副本 的 安排 。 一 般 来 说 ， 分 层 结构 中 的 每 个 层次 都 为 表述 系统 的 特征 提供 了 
一 套 独特 词汇 ， 以 及 一 套 修改 这 一 系统 的 方式 。 

练习 2.52 在 上 面 描述 的 各 个 层次 上 工作 ， 修 改 图 2-9 中 所 示 的 方块 的 限制 。 特 别 是 : 

a) 给 练习 2.49 的 基本 wave 画家 加 入 某 些 线段 〈 例 如 ， 加 上 一 个 笑脸 )。 

b) 修改 corner-split 的 构造 模式 (例如 ， 只 用 up-split 和 right-split 的 图 像 的 
各 一 个 副本 ， 而 不 是 两 个 ) 。 

c) 修改 square-1Limit ， 换 一 种 使 用 square-of-Efouz 的 方式 ， 以 另 一 种 不 同 模式 组 
合 起 各 个 角 区 (例如 ， 你 可 以 让 大 的 Rogers 先 生 从 正方 形 的 每 个 角 向 外 看 )。 


2.3 符号 数据 

到 目前 为 止 , 我们 已 经 使 用 过 的 所 有 复合 数据 ， 最 终 都 是 从 数值 出 发 构造 起 来 的 。 在 这 
一 节 里 ， 我 们 要 扩充 所 用 语言 的 表述 能 力 ， 引 进 将 任意 符号 作为 数据 的 功能 。 
2.3.1 引号 

如 果 我 们 能 构造 出 采用 符号 的 复合 数据 ， 我 们 就 可 以 有 下 面 这 类 的 表 : 


(a be d) 
(23 45 17) 
((Norah 12) (Molly 9) (Anna 7) (Lauren 6) (Charlotte 4)) 


这 些 包含 着 符号 的 表 看 起 来 就 像 是 我 们 语言 里 的 表达 式 : 
(* (+ 23 45) (+ x 9)) 


(define (fact n) (if {= n 1) 1 (* n (fact (- n 1))))) 


3,3.4 节 描述 了 一 个 这 样 的 语言 。 
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为 了 能 够 操作 这 些 符号 ， 我 们 的 语言 里 就 需要 有 一 种 新 元 素 : 为 数据 对 象 加 引号 的 能 力 。 
假定 我 们 希望 构造 出 表 (a b)， 当 然 不 能 用 (list a b) 完成 这 件 事 ， 因 为 这 一 表达 式 将 
要 构造 出 的 是 a 和 b 的 值 的 表 ， 而 不 是 这 两 个 符号 本 身 的 表 。 在 自然 语言 的 环境 中 ， 这 种 情况 
也 是 众所周知 的 ， 在 那里 的 单词 和 句子 可 能 看 作 语 义 实 体 ， 也 可 以 看 作 是 字符 的 序列 〈 语 法 
实体 )。 在 自然 语言 里 ， 常 见 的 方式 就 是 用 引号 表明 一 个 词 或 者 一 个 句子 应 作为 文字 看 待 ， 将 
它们 直接 作为 字符 的 序列 。 例 如 说 ,，“John” 的 第 一 个 字母 显然 是 “J”。 如 果 我 们 对 某 人 说 
“大 声 说 你 的 名 字 ”， 此 时 希望 听 到 的 是 那个 人 的 名 字 。 如 果 说 “大 声 说 “你 的 名 字 ”” ， 此 时 
希望 听 到 的 就 是 词组 “你 的 名 字 ”。 请 注意 ， 我 们 在 这 里 不 得 不 用 仍 套 的 引号 去 描述 别人 应 该 
说 的 东西 * 。 

我 们 可 以 按照 同样 的 方式 ， 将 表 和 符号 标记 为 应 该 作为 数据 对 象 看 待 ， 而 不 是 作为 应 该 
求 值 的 表达 式 。 然 而 ， 这 里 所 用 的 引号 形式 与 自然 语言 中 的 不 同 ， 我 们 只 在 被 引 对 象 的 前 面 
放 一 个 引号 〈 按 照 习 惯 ， 在 这 里 用 单 引 号 )。 在 Scheme 里 可 以 不 写 结束 引号 ， 因 为 这 里 已 经 靠 
空白 和 括号 将 对 象 分 隔 开 ， 一 个 单 引 号 的 意义 就 是 引用 下 一 个 对 象 ”。 

现在 我 们 就 可 以 区 分 符号 和 它们 的 值 了 : 


(define a 1) 
(define b 2) 


{list a b) 
(1 2) 

(list ’a ’b) 
(a b) 


(list ’a b) 
(a 2) 


引号 也 可 以 用 于 复合 对 象 ， 其 中 采用 的 是 表 的 方便 的 输出 表示 方式 " : 
{car ‘(a bp c)) 


(cdr "(a b c)) 


% 允许 在 一 个 语言 中 使 用 引号 ， 将 会 极 大 地 损害 根据 简单 词语 在 语言 中 做 推理 的 能 力 ， 因 为 它 破坏 了 对 等 的 东 
西 可 以 相互 替换 的 观念 。 举 个 例子 ， 三 等 于 二 加 一 ， 但 是 “三 ”这 个 字 却 不 等 于 “二 加 一 ”这 个 短语 。 引 号 
是 很 有 威力 的 东西 ， 因 为 它 使 我 们 可 以 构造 起 一 种 能 操作 其 他 表达 式 的 表达 式 (正如 我 们 将 在 第 4 章 里 看 到 的 
那样 )。 但 是 ,在 一 种 语言 里 允许 用 语句 去 讨论 这 一 语言 里 的 其 他 语句 ,那么 有 关 “ 对 等 的 东西 可 以 相互 代 换 ” 
究竟 是 什么 意思 ， 我 们 就 很 难 给 任何 具有 内 在 统一 性 的 说 法 了 。 举 例 说 ， 如 果 我 们 知道 长 庚 星 就 是 启明 星 ， 
那么 我 们 就 可 以 从 旬 子 “长 庚 星 就 是 金星 ”推导 出 “启明 星 就 是 金星 ”"。 然 而 ， 即 使 有“ 张 三 知 道 长 庚 星 就 是 
金星 ”， 我 们 也 无 法 推论 说 “ 张 三 知 道 启 明星 就 是 金星 ”。 

% 单 引号 和 用 于 括 起 应 该 打印 输出 的 字符 串 的 双 引 号 不 同 。 单 引号 可 以 用 于 括 起 表 和 符号 ， 而 双 引号 只 能 用 于 
字符 串 。 在 本 书 里 只 将 字符 串 用 于 需要 打印 输出 的 对 象 。 

100 严格 地 说 ， 引 号 的 这 种 使 用 方式 ， 违 背 了 我 们 语言 中 所 有 复合 表达 式 都 应 该 由 括号 限定 ， 都 具有 表 的 形式 的 
普遍 性 原则 。 通 过 引进 特殊 形式 quote 就 可 以 恢复 这 种 一 致 性 ， 这 种 特殊 形式 的 作用 与 引号 完全 一 样 。 因 此 ， 
我 们 完全 可 以 用 (quote a) t'a, 采用 (quote (a b c)) 而 不 是 "(a b c)。 这 也 就 是 解释 器 的 实际 
工作 方式 。 引 号 只 不 过 是 一 种 将 下 一 完整 表达 式 用 (quote <expression>) 形式 包 素 起 来 的 单字 符 缩写 形 
式 。 这 一 点 非常 重要 ， 因 为 它 维持 了 我 们 的 原则 : 解释 器 看 到 的 所 有 表达 式 都 可 以 作为 数据 对 象 去 操作 。 例 
如 ， 我 们 可 以 构造 出 表达 式 (car '(a b c) ) ， 它 就 等 同 于 通过 对 表达 式 (list ‘car (list ‘quote ‘(a 
b c))) 的 求 值 而 得 到 的 (car (quote (a b c))), 


(b c) 
记 住 这 些 之 后 ， 我 们 就 可 以 通过 求 值 0 得 到 空 表 ， 这 样 就 可 以 丢掉 变量 ni1 了 。 

为 了 能 对 符号 做 各 种 操作 ， 我 们 还 需要 用 另 一 个 基本 过 程 eq? ， 这 个 过 程 以 两 个 符号 作 
为 参数 ， 检 查 它 们 是 否 为 同样 的 符号 "。 利 用 eq? 可 以 实现 一 个 称 为 nemq 的 有 用 过 程 ， 它 以 
一 个 符号 和 一 个 表 为 参数 。 如 果 这 个 符号 不 包含 在 这 个 表 里 ( 也 就 是 说 ， 它 与 表 里 的 任何 项 
目 都 不 eq? )，memq 就 返回 假 ， 否 则 就 返回 该 表 的 由 这 个 符号 的 第 一 次 出 现 开 始 的 那个 子 表 : 

(define (memq item x) 

(cond ((null? x) false) 


((eq? item (car x)) x) 
(else (memq item (cdr x))))} 


举例 来 说 ， 表 达 式 : 

(memg ’apple ’(pear banana prune) ) 
的 值 是 假 ， 而 表达 式 : 

(memq ’apple ’(x (apple sauce) y apple pear)) 
的 值 是 (apple pear), 

练习 2.53 ”解释 器 在 求 值 下 面 各 个 表达 式 时 将 打印 出 什么 ? 

(list ’a ’°b °c) 

(list (list ‘george)) 

(car °((x1 x2) (yl y2))) 

(cadr °((xl x2) (yl y2))) 

(pair? (car (a short list))) 

(memq ‘red ’((red shoes) (blue socks))) 

(memg ‘red ’(red shoes blue socks)) 

练习 2.54 ”如 果 两 个 表 包 含 着 同样 元 素 ， 这 些 元 素 也 按 同样 顺序 排列 ， 那 么 就 称 这 两 个 
表 equal? 。 例 如 : 

(equal? ’(this is a list) "(this is a list)) 
是 真 ， 而 

(equal? ’(this is a list) ’(this (is a) list)) 
是 假 。 说 得 更 准确 些 ， 我 们 可 以 从 符号 相等 的 基本 eg? 出 发 ， 以 递归 方式 定义 出 equal? 。a 
和 b 是 equal? 的 ， 如果 它 们 都 是 符号 ， 而 且 这 两 个 符号 满足 eq? ， 或 者 它们 都 是 表 ， 而 且 
(car a) 和 (car b) 相互 egual? ,它们 的 (cdr a) 和 (cdr b) 也 是 equal? 。 请 利 
用 这 一 思路 定义 出 equal? 过 程 中 。 


O 我 们 可 以 认为 ， 两 个 符号 是 “同样 ”的 ， 如 果 它 们 是 由 同样 字符 按照 同样 顺序 构成 。 这 一 定义 回避 了 一 个 我 
们 目前 尚且 无 法 去 探讨 的 深入 问题 ， 程序 设计 语言 里 “同样 ”的 意义 问题 。 我 们 将 在 第 3 章 中 重新 回 到 这 个 
问题 (83.1.34), 

2 在 实践 中 ， 程 序 员 们 不 仅 用 equa1l? 比较 包 含 符 号 的 表 ， 也 用 它 比较 包含 数值 的 表 。 有 关 两 个 数值 相等 的 数 
(用 检测 ) 是 否 也 eg? 的 问题 高 度 依赖 于 具体 实现 。 对 于 equal1? 的 一 个 更 好 的 定义 〈 例 如 Scheme 中 的 基本 过 
程 ) 还 要 去 检查 a 和 bp 是否 为 两 个 数 ， 如 果 是 它们 都 是 数 ， 数 值 相等 时 就 认为 它们 egual?。 
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练习 2.55 Eva Lu Ator 输 入 了 表达 式 : 


(car °’ abracadabra) 


令 她 吃惊 的 是 解释 器 打印 出 的 是 quote 。 请 解释 这 一 情况 。 
2.3.2 XA: 符号 求 导 


为 了 阐释 符 号 操作 的 情况 ， 并 进一步 前 有 释 数据 抽象 的 思想 ， 现 在 考虑 设计 一 个 执行 代数 
表达 式 的 符号 求 导 的 过 程 。 我 们 希望 该 过 程 以 一 个 代数 表达 式 和 一 个 变量 作为 参数 ， 返 回 这 
个 表达 式 相对 于 该 变量 的 导数 。 例 如 ， 如 果 送 给 这 个 过 程 的 参数 是 a 十 bx +c 和 x， 它 应 该 返 
回 2ax +b。 符 号 求 导数 对 于 Lisp 有 着 特殊 的 历史 意义 ， 它 正 是 推动 人 们 去 为 符号 操作 开发 计 
算 机 语言 的 重要 实例 之 一 。 进 一 步 说 ， 它 也 是 人 们 为 符号 数学 工作 开发 强 有 力 系统 的 研究 领 
域 的 开端 ， 今天 已 经 有 越 来 越 多 的 应 用 数学 家 和 物理 学 家 们 正在 使 用 这 类 系统 。 

为 了 开发 出 一 个 符号 计算 程序 ， 我 们 将 按照 2.1.1 节 开发 有 理 数 系统 那样 ， 采 用 同样 的 数 
据 抽象 策略 。 也 就 是 说 ， 首 先 定义 一 个 求 导 算法 ， 令 它 在 一 些 抽象 对 象 上 操作 ， 例 如“ 和”、 
“乘积 ”和 “变量 ”， 并 不 考虑 这 些 对 象 实际 上 如 何 表 示 ， 以 后 才 去 关心 具体 表示 的 问题 。 

对 抽象 数据 的 求 导 程序 

为 了 使 有 关 的 讨论 简单 化 ， 我 们 在 这 里 考虑 一 个 非常 简单 的 符号 求 导 程序 ， 它 处 理 的 表 
达 式 都 是 由 对 于 两 个 参数 的 加 和 乘 运算 构造 起 来 的 。 对 于 这 种 表达 式 求 导 的 工作 可 以 通过 下 
面 几 条 归 约 规则 完成 : l 


a 
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当 c 是 一 个 常量 ， 或 者 一 个 与 x 不 同 的 变量 
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可 以 看 到 ， 这 里 的 最 后 两 条 规则 具有 递归 的 性 质 ， 也 就 是 说 ， 要 想得到 一 个 和 式 的 导数 ， 
我 们 首先 要 找 出 其 中 各 个 项 的 导数 ， 而 后 将 它们 相 加 。 这 里 的 每 个 项 又 可 能 是 需要 进一步 分 
解 的 表达 式 。 通 过 这 种 分 解 ， 我 们 能 得 到 越 来 越 小 的 片段 ， 最 终 将 产生 出 常量 或 者 变量 ， 它 
们 的 导数 就 是 0 或 者 1 。 | 

为 了 能 在 一 个 过 程 中 体现 这 些 规 则 ， 我 们 用 一 下 按 愿望 思维 ， 就 像 在 前 面 设计 有 理 数 的 
实现 时 所 做 的 那样 。 如 果 现 在 有 了 一 种 表示 代数 表达 式 的 方式 ， 我 们 一 定 能 判断 出 某 个 表达 
式 是 否 为 一 个 和 式 、 乘 式 、 常 量 或 者 变量 ， 也 能 提取 出 表达 式 里 的 各 个 部 分 。 对 于 一 个 和 式 
(举例 来 说 )， 我 们 可 能 希望 取得 其 被 加 项 (第 一 个 项 ) 和 加 项 (第 二 个 项 )。 我 们 还 需要 能 从 
几 个 部 分 出 发 构造 出 整个 表达 式 。 让 我 们 假定 现在 已 经 有 了 一 些 过 程 ， 它 们 实现 了 下 述 的 构 
造 函 数 、 选 择 函 数 和 谓词 : 

(variable? e) epyk? 

(same-variable? vl v2) vL 和 v2 是 同一 个 变量 吗 ? 


0 HERE NE 


(sum? e) e 是 和 式 吗 ? 


(addend e) e 的 被 加 数 
(augend e) e 的 加 数 
(make-sum al a2) 构造 起 al 与 a2 的 和 式 
(product? e) ef RAI? 
(multiplier e) e 的 被 乘 数 
(multiplicand e) e 的 乘 数 
(make-product ml m2) 构造 起 m1 Sm2 的 乘 式 


利用 这 些 过 程 ， 以 及 判断 表达 式 是 否 数值 的 基本 过 程 number? ， 我 们 就 可 以 将 各 种 求 导 规 则 
用 下 面 的 过 程 表达 出 来 了 : 
{define (deriv exp var) 
(cond ((number? exp) 0) 
((variable? exp) 
(if (same-variable? exp var) 1 0)) 
( (sum? exp) 
(make-sum (deriv (addend exp) var) 
(deriv (augend exp) var))) 
( (product? exp) 
(make-sum 
(make-product (multiplier exp) 
(deriv (multiplicand exp) var)) 
(make-product (deriv (multiplier exp) var) 
(multiplicand exp)))) 
(else 
(error "unknown expression type -- DERIV” exp)))) 
过 程 deriv 里 包含 了 一 个 完整 的 求 导 算法 。 因 为 它 是 基于 抽象 数据 表述 的 ， 因 此 ， 无 论 我 们 
如 何 选择 代数 表达 式 的 具体 表示 ， 只 要 设计 了 一 组 正确 的 选择 函数 和 构造 函数 ， 这 个 过 程 都 
可 以 工作 。 表 示 的 问题 是 下 面 必须 考虑 的 问题 。 
代数 表达 式 的 表示 
我 们 可 以 设想 出 许多 用 表 结 构 表 示 代 数 表 达 式 的 方法 。 例 如 ， 可 以 利用 符号 的 表 去 直 
” 接 反应 代数 的 记 法 形式 ， 将 表达 式 ax +b 表 示 为 表 (a * x + bp)。 然 而 ,一 种 特别 直 截 
了 当 的 选择 ， 是 采用 Lisp 里 面 表示 组 合式 的 那 种 带 插 号 的 前 缀 形式 ， 也 就 是 说 ， 将 ax +b 表 
mA (+ (* a x) b)。 这 样 ， 我 们 有 关 求 导 问 题 的 数据 表示 就 是 : 
。 变 量 就 是 符号 ， 它 们 可 以 用 基本 谓词 symbo1l3? 判断 : 
(define (variable? x) (symbol? x)) 
* 两 个 变量 相同 就 是 表示 它们 的 符号 相互 eq? : 


(define (same-variable?. vl v2) 
(and (variable? v1) (variable? v2) (eq? vl v2))) 


。 和 式 与 乘 式 都 构造 为 表 : 
(define (make~sum al a2) (list '+ al a2)) 


(define (make~product ml m2) (list “* ml m2) ) 


。 和 式 就 是 第 一 个 元 素 为 符号 + 的 表 : 
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(define (sum? x) 
(and (pair? x) (eq? (car x) ’+))) 


* 被 加 数 是 表示 和 式 的 表 里 的 第 二 个 元 素 : 
(define (addend s) (cadr s)) 

*。 加 数 是 表示 和 式 的 表 里 的 第 三 个 元 素 : 
(define (augend s) (caddr s)) 

* 乘 式 就 是 第 一 个 元 素 为 符号 * 的 表 : 


(define (product? x) 
(and (pair? x) (eq? (car x) ’*))) 


* 被 乘 数 是 表示 乘 式 的 表 里 的 第 二 个 元 素 : 

(define (multiplier p) (cadr p)) 

* 乘 数 是 表示 乘 式 的 表 里 的 第 三 个 元 素 : 

(define (multiplicand p) (caddr p)) 
这 样 ， 为 了 得 到 一 个 能 够 工作 的 符号 求 导 程序 ， 我 们 只 需 将 这 些 过 程 与 ezivV 装 在 一 起 。 现 
在 让 我 们 看 几 个 表现 这 一 程序 的 行为 的 实例 : 

(deriv °(+ x 3) ’x) 

(+ 1 0) 

(deriv ’(* x y) °x) 

(+ (* x 0) (* 1 y)) 

(deriv ’(* (* x y) (+ x 3)) ’x) 

(+ (* (* xy) (+ 1 0)) 

(* (+ (* x 0) (* 1 y)) 
(+ x 3))) 

程序 产生 出 的 这 些 结果 是 对 的 ， 但 是 它们 没有 经 过 化 简 。 我 们 确实 有 : 


d(xy) 
dx 


=x-O+l-y 


当然 ， 我 们 也 可 能 希望 这 一 程序 能 够 知道 x . 0 =0，1 .y=y 以 及 0 +y =y。 因 此 ,第 二 个 例子 
的 结果 就 应 该 是 简单 的 7。 正 如 上 面 的 第 三 个 例子 所 显示 的 ， 当 表达 式 变 得 更 加 复杂 时 ， 这 一 
情况 也 可 能 变 成 严重 的 问题 。 

现在 所 面临 的 困难 很 像 我 们 在 做 有 理 数 首先 时 所 遇 到 的 问题 ， 希望 将 结果 化 简 到 最 简单 
的 形式 。 为 了 完成 有 理 数 的 化 简 ， 我 们 只 需要 修改 构造 函数 和 选择 函数 的 实现 。 这 里 也 可 以 
采取 同样 的 策略 。 我 们 在 这 里 也 完全 不 必修 改 Geriv， 只 需要 修改 make-sum， 使 得 当 两 个 
求 和 对 象 都 是 数 时 ，make~sum 求 出 它们 的 和 返回 。 还 有 ， 如 果 其 中 的 一 个 求 和 对 象 是 0 ， 那 
么 make-sum 就 直接 返回 另 一 个 对 象 。 | 


(define (make-sum al a2) 
(cond ((=number? al 0) a2) 
((=number? a2 0) al) 
((and (number? al) (number? a2)) (+ al a2)) 
(else (list '+ al a2)))) 
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在 这 个 实现 里 用 到 了 过 程 =number? ， 它 检查 某 个 表达 式 是 否 等 于 一 个 给 定 的 数 。 
(define (=number? exp num) 
(and (number? exp) (= exp num))) 


与 此 类 似 ， 我 们 也 需要 修改 make-product ， 设 法 引进 下 面 的 规则 : 0 与 任何 东西 的 乘 
积 都 是 0 ，! 与 任何 东西 的 乘积 总 是 那个 东西 : 


(define (make-product ml m2) 
(cond ((or (=number? ml 0) (=number? m2 0)) 0) 
((=number? ml 1) m2) 
((=number? m2 1) ml) 
(({and (number? ml) (number? m2)) (* ml m2)) 
(else (list °’* ml m2)))) 


下 面 是 这 一 新 过 程 版 本 对 前 面 三 个 例子 的 结果 : 

(deriv "(+ x 3) ’x) 

“1 

(deriv '(* x y) °x) 

Y 

(deriv '(* (* x y) (+ x 3)) °x) 

(+ (* x y) (* y (+ x 3))) 
显然 情况 已 经 大 大 改观 。 但 是 ， 第 三 个 例子 还 是 说 明 ， 要 想 做 出 一 个 程序 ， 使 它 能 将 表达 式 
做 成 我 们 都 能 同意 的 “最 简单 ”形式 ， 前 面 还 有 很 长 的 路 要 走 。 代 数 化 简 是 一 个 非常 复杂 的 
问题 ， 除 了 其 他 各 种 因素 之 外 ， 还 有 另 一 个 根本 性 的 问题 : 对 于 某 种 用 途 的 最 简 形 式 ， 对 于 
另 一 用 途 可 能 就 不 是 最 简 形式 。 . 

练习 2.56 ”请 说 明 如 何 扩 充 基本 求 导 规则 ， 以 便 能 够 处 理 更 多 种 类 的 表达 式 。 例 如 ， 通 
过 给 程序 deriv 增 加 一 个 新 子 句 ， 并 以 适当 方式 定义 过 程 exponentiation? base, 
exponent 和 make-exponentiation 的 方式 ， 实 现下 述 求 导 规则 (你 可 以 考虑 用 符号 ** 
ERE R): 


d(u") fdu 
de (Ge) 
请 将 如 下 规则 也 构造 到 程序 里 ， 任何 东西 的 0 次 窜 都 是 1 ， 而 它们 的 1 次 宪 都 是 其 自身 。 
练习 2.57 ”请 扩充 求 导 程序 ， 使 之 能 处 理 任意 项 (两 项 或 者 更 多 项 ) 的 和 与 乘积 。 这 样 ， 
上 面 的 最 后 一 个 例子 就 可 以 表示 为 : 
(deriv '(* x y (+ x 3)) °x) 
设法 通过 只 修改 和 与 乘积 的 表示 ， 而 完全 不 修改 过 程 deriv 的 方式 完成 这 一 扩充 。 例 如 ， 让 
一 个 和 式 的 addend 是 它 的 第 一 项 ， 而 其 augend 是 和 式 中 的 其 余 项 。 
练习 2.58 ”假定 我 们 希望 修改 求 导 程序 ， 使 它 能 用 于 常规 数学 公式 ， 其 中 十 和 * 采用 的 
是 中 缀 运算 符 而 不 是 前 缀 。 由 于 求 导 程序 是 基于 抽象 数据 定义 的 ， 要 修改 它 ， 使 之 能 用 于 妃 
一 种 不 同 的 表达 式 表 示 ， 我们 只 需要 换 一 套 工 作 在 新 的 、 求 导 程 序 需要 使 用 的 代数 表达 式 的 
表示 形式 上 的 谓词 、 选 择 函 数 和 构造 函数 。 
a) 请 说 明 怎样 做 出 这 些 过 程 , 以便 完成 在 中 绥 表 示 形 式 (例如 (x + (3* (x+ (了 +2))))) 
上 的 代数 表达 式 求 导 。 为 了 简化 有 关 的 工作 ， 现 在 可 以 假定 + 和 * 总 是 取 两 个 参数 ， 而 且 表 
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达 式 中 已 经 加 上 了 所 有 的 括号 。 

b) 如 果 人 允许 标准 的 代数 写法 ， 例 如 (x + 3* (x + y + 2))， 问 题 就 会 变 得 更 困难 
许多 。 在 这 种 表达 式 里 可 能 不 写 不 必要 的 括号 ， 并 要 假定 乘法 应 该 在 加 法 之 前 完成 。 你 还 能 为 
这 种 表示 方式 设计 好 适当 的 谓词 、 选 择 函 数 和 构造 函数 ， 使 我 们 的 求 导 程 序 仍然 能 工作 吗 ? 


2.3.3 实例， 集合 的 表示 


在 前 面 的 实例 中 ， 我 们 已 经 构造 起 两 类 复合 数据 对 象 的 表示 : 有 理 数 和 代数 表达 式 。 在 
这 两 个 实例 中 ， 我 们 都 采用 了 某 一 种 选择 ， 在 构造 时 或 者 选择 成 员 时 去 简化 〈 约 简 ) 有 关 的 
表示 。 除 此 之 外 ， 选 择 用 表 的 形式 来 表示 这 些 结构 都 是 直截了当 的 。 现 在 我 们 要 转 到 集合 的 
表示 问题 ， 此 时 ， 表 示 方 式 的 选择 就 不 那么 显然 了 。 实 际 上 ， 在 这 里 存在 几 种 选择 ， 而 且 它 
们 相互 之 间 在 几 个 方面 存在 明显 的 不 同 。 

非 形式 地 说 ， 一 个 集合 就 是 一 些 不 同 对 象 的 汇集 。 要 给 出 一 个 更 精确 的 定义 ， 我 们 可 以 
利用 数据 抽象 的 方法 ， 也 就 是 说 ， 用 一 组 可 以 作用 于 “集合 ”的 操作 来 定义 它们 。 这 些 操作 
是 union-set, intersection-set, element-of-set? 和 adjoin-set。 其 中 
element-of-set? 是 一 个 谓词 ， 用 于 确定 某 个 给 定 元 素 是 不 是 某 个 给 定 集合 的 成 员 。 
adjoin-set 以 一 个 对 象 和 一 个 集合 为 参数 ， 返 回 一 个 集合 ， 其 中 包含 了 原 集 合 的 所 有 元 素 ， 
再 加 上 刚刚 加 入 进来 的 这 个 新 元 素 。union-set 计 算出 两 个 集合 的 并 集 ， 这 也 是 一 个 集合 ， 
其 中 包含 了 所 有 属于 两 个 参数 集合 之 一 的 元 素 。 intersection-set 计 算出 两 个 集合 的 交 
集 ， 它 包含 着 同时 出 现在 两 个 参数 集合 中 的 那些 元 素 。 从 数据 抽象 的 观点 看 ， 我 们 在 设计 有 
关 的 表示 方面 具有 充分 的 自由 ， 只 要 在 这 种 表示 上 实现 的 上 述 操作 能 以 某 种 方式 符合 上 面 给 
出 的 解释 。 

集合 作为 未 排序 的 表 

集合 的 一 种 表示 方式 是 用 其 元 素 的 表 ， 其 中 任何 元 素 的 出 现 都 不 超过 一 次 。 这 样 BR 
就 用 空 表 来 表示 。 对 于 这 种 表示 形式 ，element-of-set? 类似 于 2.3.1 节 的 过 程 nemq， 但 它 
应 该 用 equal? 而 不 是 eq? ， 以 保证 集合 元 素 可 以 不 是 符号 ; 

{define (element-of-set? x set) 

(cond ((null? set) false) 


 {(equal? x (car set)) true) 
(else (element-of-set? x (cdr set))))) 


利用 它 就 能 写 出 adjoin-set 。 如 果 要 加 入 的 对 象 已 经 在 相应 集合 里 ， 那么 就 返回 那个 集 
合 ， 否 则 就 用 cons 将 这 一 对 象 加 入 表示 集合 的 表 里 : 


(define (adjoin-set x set) 
(if (element-of-set? x set) 


3 如 果 希 望 更 形式 化 些 ， 可 以 将 “以 某 种 方式 符合 上 面 给 出 的 解释 ”说 明 为 ， 有 关 操 作 必 须 满足 以 规则 : 
。 对 于 任何 集合 S 和 对 象 X ， (element-of-set? x (adjoin-set x S)) JA 〈 非 形式 地 说 ,“ 将 
一 个 对 象 加 入 某 集合 后 产生 的 集合 里 包含 着 这 个 对 和 象 ”)。 
。 对 于 任何 集合 S 和 T ， 以 及 对 象 工 ， (element-of-set? x (union-set S T)) 等 于 (or 
(element-of-set? x S) (element-of-set? x T)) ( 非 形 式 地 说 , “(union Ss T) 的 元 素 
就 是 在 S 里 或 者 在 ?里 的 元 素 )。 
。 对 于 任何 对 象 x*,， (element-of-set? x “()) 为 假 ( 非 形式 地 说 ， 任何 对 象 都 不 是 空 ENTE). 


a Hib 


set 
(cons x set))) 
实现 intersection~-set 了 时 可 以 采用 递归 策略 : 如 果 我 们 已 知 如 何 做 出 set2 与 set1 的 cdr 
的 交集 ， 那 么 就 只 需要 确定 是 否 应 将 set1 的 car 包 含 到 结果 之 中 了 ， 而 这 依赖 于 (car 
setl) 是 否 也 在 set2 里 。 下 面 是 这 样 写 出 的 过 程 : 
(define (intersection-set setl set2) 
(cond ((or (null? setl) (null? set2)) °()) 
((element-of-set? (car setl) set2) 
(cons (car setl) 


(intersection-set (cdr setl) set2))) 
(else (intersection-set (cdr setl) set2)))) 


在 设计 一 种 表示 形式 时 ， 有 一 件 必须 关注 的 事情 是 效率 问题 。 为 考虑 这 一 问题 ， 就 需要 
考虑 上 面 定义 的 各 集合 操作 所 需要 的 工作 步 数 。 因 为 它们 都 使 用 了 element-of-set?, 这 
一 操作 的 速度 对 整个 集合 的 实现 效率 将 有 重大 影响 。 在 上 面 这 个 实现 里 ， 为 了 检查 某 个 对 象 
是 否 为 -- 个 集合 的 成 员 ，element-of-set? 可 能 不 得 不 扫描 整个 集合 〈 最 坏 情 况 是 这 一 元 
素 恰好 不 在 集合 里 )。 因 此 ， 如 果 集 合 有 n 个 元 素 ,，element-of-set? 就 可 能 需要 n 步 才能 完 
成 。 这 样 ， 这 一 操作 所 需 的 步 数 将 以 8@(n) 的 速度 增长 。adjoin-set 使 用 了 这 个 操作 ， 因 此 
它 所 需 的 步 数 也 以 B(n) 的 速度 增长 。 而 对 于 intersection-set ， 它 需要 对 set1 的 每 个 元 
素 做 一 次 element-of-set? 检 查 ， 因 此 所 需 步 数 将 按 所 涉及 的 两 个 集合 的 大 小 之 乘积 增长 ， 
或 者 说 ， 在 两 个 集合 大 小 都 为 1 时 就 是 B(m?)。union-set 的 情况 也 是 如 此 。 

练习 2.59 ”请 为 采用 未 排序 表 的 集合 实现 定义 union-set 操 作 。 

练习 2.60 ”我 们 前 面 说 明了 如 何 将 集合 表示 为 没有 重复 元 素 的 表 。 现 在 假定 允许 重复 ， 
例如 ， 集 合 {1，2，3} 可 能 被 表示 为 表 (2 3 2 1 3 2 2), 请 为 在 这 种 表示 上 的 操作 设计 
过 程 element-of-set?、adjoin-set、 union-set 和 intersection-set。 与 前 面 不 
重复 表示 里 的 相应 操作 相 比 ， 现 在 各 个 操作 的 效率 怎么 样 ? 在 什么 样 的 应 用 中 你 更 倾向 于 使 
用 这 种 表示 ， 而 不 是 前 面 那 种 无 重复 的 表示 ? 


集合 作为 排序 的 表 

加 速 集合 操作 的 一 种 方式 是 改变 表示 方式 ， 使 集合 元 素 在 表 中 按照 上 升序 排列 。 为 此 ， 
我 们 就 需要 有 某 种 方式 来 比较 两 个 元 素 ， 以 便 确 定 哪 个 元 素 更 大 一 些 。 例 如 ， 我 们 可 以 按 字 
典 序 做 符号 的 比较 ， 或 者 同意 采用 某 种 方式 为 每 个 对 象 关联 一 个 唯一 的 数 ， 在 比较 元 素 的 时 
候 就 比较 与 之 对 应 的 数 。 为 了 简化 这 里 的 讨论 ， 我 们 将 仅仅 考虑 集合 元 素 是 数值 的 情况 ， 这 
样 就 可 以 用 > 和 < 做 元 素 的 比较 了 。 下 面 将 数 的 集合 表示 为 元 素 按照 上 升 顺序 排列 的 表 。 在 
前 面 第 一 种 表示 方式 下 ， 集 合 (1, 3, 6, 10) 的 元 素 在 相应 的 表 里 可 以 任意 排列 MERE 
的 新 表示 方式 中 ， 我 们 就 只 允许 用 表 (1 3 6 10), 

从 操作 element-of-set? 可 以 看 到 采用 有 序 表示 的 一 个 优势 : 为 了 检查 一 个 项 的 存在 
性 ， 现 在 就 不 必 扫描 整个 表 了 。 如 果 检 查 中 遇 到 的 某 个 元 素 大 于 当时 要 找 的 东西 ， 那 么 就 可 
以 断定 这 个 东西 根本 不 在 表 里 : 


(define (element-of-set? x set) 
(cond ((null? set) false) 
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((= x (car set)) true) 

((< x (car s@t)) false) 

(else (element-of-set? x (cdr set))))) 
这 样 能 节约 多 少 步 数 呢 ? 在 最 坏 情 况 下 ， 我 们 要 找 的 项 目 可 能 是 集合 中 的 最 大 元 素 ， 此 时 所 
需 步 数 与 采用 未 排序 的 表示 时 一 样 。 但 在 另 一 方面 ， 如 果 需 要 查找 许多 不 同 大 小 的 项 ， 我 们 
总 可 以 期 望 ， 有 些 时候 这 一 检索 可 以 在 接近 表 开 始 处 的 某 一 点 停止 ， 也 有 些 时 候 需 要 检查 表 
的 一 大 部 分 。 平 均 而 言 ， 我 们 可 以 期 望 需要 检查 表 中 的 一 半 元 素 ， 这 样 ， 平 均 所 需 的 步 数 就 
是 大 约 W2 。 这 仍然 是 8(z) 的 增长 速度 ， 但 与 前 一 实现 相 比 ， 平 均 来 说 ， 现 在 我 们 节约 了 大 约 
一 半 的 步 数 (这 一 解释 并 不 合理 ;因为 前 面 说 未 排序 表 需 要 检查 整个 表 ， 考 虑 的 只 是 一 种 特 
殊 情 况 : 查找 没有 出 现在 表 里 的 元 素 。 如 果 查 找 的 是 表 里 存在 的 元 素 ， 即 使 采用 未 排序 的 表 ， 
平均 查找 长 度 也 是 表 元 素 的 一 半 。 译 者 注 )。 

操作 intersection-set 的 加 速 情况 更 使 人 印象 深刻 。 在 未 排序 的 表示 方式 里 ， 这 一 
操作 需要 B(n?) 的 步 数 ， 因 为 对 set1 的 每 个 元 素 ， 我 们 都 需要 对 set2 做 一 次 完全 的 扫描 。 对 
于 排序 表示 则 可 以 有 一 种 更 聪明 的 方法 。 我 们 在 开始 时 比较 两 个 集合 的 起 始 元 素 ， 例 如 x1 和 
x2 。 如 果 x1 等 于 x2 ， 那 么 这 样 就 得 到 了 交集 的 一 个 元 素 ， 而 交集 的 其 他 元 素 就 是 这 两 个 集合 
的 cdz 的 交集 。 如 果 此 时 的 情况 是 x1 小 于 x2 ， 由 于 x2 是 集合 set2 的 最 小 元 素 ， 我 们 立即 可 
以 断定 x1 不 会 出 现在 集合 set2 里 的 任何 地 方 ， 因 此 它 不 应 该 在 交集 里 。 这 样 ， 两 集合 的 交集 
就 等 于 集合 set2 与 set1 的 cdr 的 交集 。 与 此 类 似 ， 如 果 x2 小 于 xl ， 那 么 两 集合 的 交集 就 等 
于 集合 set1 与 set2 的 cdr 的 交集 。 下 面 是 按 这 种 方式 写 出 的 过 程 ; 
(define (intersection-set seti set2) 
(if (or (null? setl) (null? set2)) 
Get ((#1 (car Sett)) (x2 (car set2))) 
(cond ((= x1 x2) 
(cons xl 


(intersection-set (cdr seti) 
(cdr set2)))) 


((< xl x2) 
(intersection-set (cdr setl) set2)) 
((< x2 x1) 
(intersection-set setl (cdr set2))))))) 
为 了 估计 出 这 一 过 程 所 需 的 步 数 ， 请 注意 ， 在 每 个 步骤 中 ， 我 们 都 将 求 交集 问题 归结 到 更 
小 集合 的 交集 计算 问题 -一 去掉 了 set1 和 set2 之 一 或 者 是 两 者 的 第 一 个 元 素 。 这 样 ， 所 
需 步 数 至 多 等 于 set1 与 set2 的 大 小 之 和 ， 而 不 像 在 未 排序 表示 中 它们 的 乘积 。 这 也 就 是 
O(n) 的 增长 速度 ， 而 不 是 8(n?) 一 一 这 一 加 速 非常 明显 ， 即 使 对 中 等 大 小 的 集合 也 是 如 此 。 
练习 2.61 ”请 给 出 采用 排序 表示 时 adjoin-set 的 实现 。 通 过 类 似 element-~of-set? 
的 方式 说 明 ， 可 以 如 何 利用 排序 的 优势 得 到 一 个 过 程 ， 其 平均 所 需 的 步 数 是 采用 未 排序 表示 
时 的 一 半 。 
练习 2.62 请 给 出 在 集合 的 排序 表示 上 union-set 的 一 个 8(n) 实现 。 


集合 作为 二 叉 树 
如 果 将 集合 元 素 安 排 成 一 棵 树 的 形式 ， 我 们 还 可 以 得 到 比 排序 表 表 示 更 好 的 结果 。 树 中 
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每 个 结 点 保存 集合 中 的 一 个 元 素 ， 称 为 该 结 点 的 “数据 项 ”， 它 还 链接 到 另外 的 两 个 结 点 (可 
能 为 空 )。 其 中 “左边 ”的 链接 所 指向 的 所 有 元 素 均 小 于 本 结 点 的 元 素 ， 而 “右边 ”链接 到 的 
元 素 都 大 于 本 结 点 里 的 元 素 。 图 2-16 显 示 的 是 一 棵 表示 集合 的 树 。 同 一 个 集合 表示 为 树 可 以 
有 多 种 不 同 的 方式 ， 我 们 对 一 个 合法 表示 的 要 求 就 是 ,位 于 左 子 树 里 的 所 有 元 素 都 小 于 本 结 
点 里 的 数据 项 ， 而 位 于 右 子 树 里 的 所 有 元 素 都 大 于 它 。 


AALA 
AN A SA 


图 2-16 #811, 3, 5,7, 9, 11} 的 几 种 二 又 树 表示 


树 表示 方法 的 优点 在 于 :假定 我 们 希望 检查 某 个 数 x 是 否 在 一 个 集合 里 ， 那 么 就 可 以 用 x 
与 树 顶 结 点 的 数据 项 相 比 较 。 如 果 x 小 于 它 ， 我 们 就 知道 现在 只 需要 搜索 左 子 树 ， 如 果 X 比 较 
大 ， 那 么 就 只 需 搜索 右 子 树 。 在 这 样 做 时 ， 如 果 该 树 是 “平衡 的 ”"， 也 就 是 说 ,每 棵 子 树 大 约 
是 整个 树 的 一 半 大 ， 那 么 ， 这 样 经 过 一 步 ， 我 们 就 将 需要 搜索 规模 为 4 的 树 的 问题 ， 归 约 为 搜 
索 规 模 为 4/2 的 树 的 问题 。 由 于 经 过 每 个 步骤 能 够 使 树 的 大 小 减 小 一 半 ， 我 们 可 以 期 望 搜 索 规 
模 为 4 的 树 的 计算 步 数 以 B(log n) 速度 增长 ”。 在 集合 很 大 时 ， 相 对 于 原来 的 表示 ， 现 在 的 操 
作 速 度 将 明显 快 得 多 。 

我 们 可 以 用 表 来 表示 树 ， 将 结 点 表示 为 三 个 元 素 的 表 : 本 结 点 中 的 数据 项 ， 其 左 子 树 和 
右 子 树 。 以 空 表 作 为 左 子 树 或 者 右 子 树 ， 就 表示 没有 子 树 连接 在 那里 。 我 们 可 以 用 下 面 过 程 
描述 这 种 表示 '”: 

(define (entry tree) (car tree)) 

(define (left~branch tree) (cadr tree)) 

(define (right-branch tree) (caddr tree)) 


(define (make-tree entry left right) 
(list entry left right)) 


现在 ， 我 们 就 可 以 采用 上 面 描述 的 方式 实现 导 程 evement -of-set?7; 


(define (element-of-set? x set) 
{cond ((null? set) false) 


104 每 步 使 问题 规模 减 小 一 半 ， 这 就 是 对 数 型 增长 的 景明 显 特征 ， 就 像 我 们 在 1.2.4 A RR BK A 3.3 


里 的 半 区 间 搜 索 算法 中 所 看 到 的 那样 。 
ws 我 们 用 树 来 表示 和 集合， 而 树 本身 又 用 表 表 示 一 一 从 作用 上 看 ， 这 就 是 在 一 种 数据 抽象 上 面 构造 另 一 种 数据 抽 
象 。 我 们 可 以 把 过 程 entry、 left-branch, right-branch 和 make-tree 看 作 是 一 种 方法 ， 它 将 “二 


叉 树 ”抽象 隔离 于 如 何 用 表 结 构 表 示 它 的 特定 方式 之 外 。 


23 AF KH 107 


((= x (entry set)) true) 

((< x (entry set)) 

(element-of-set? x (left-branch set))) 
((> x (entry set)) 

(element-of-set? x (right-branch set))))) 


向 集合 里 加 入 一 个 项 的 实现 方式 与 此 类 似 ， 也 需要 B(og n) HH. AL MATH. RN 
需要 将 x 与 结 点 数据 项 比较 ， 以便 确定 x 应 该 加 入 右 子 树 还 是 左 子 树 中 。 在 将 x 加 入 适当 的 分 
支 之 后 ， 我 们 将 新 构造 出 的 这 个 分 支 、 原 来 的 数据 项 与 另 一 分 支 放 到 一 起 。 如 果 x 等 于 这 个 数 
据 项 ， 那 么 就 直接 返回 这 个 结 点 。 如 果 需 要 将 x 加 入 一 个 空子 树 ， 那 么 我 们 就 生成 一 棵 树 ， 以 
X 作 为 数据 项 ， 并 让 它 具 有 空 的 左右 分 支 。 下 面 是 这 个 过 程 : 

(define (adjoin-set x set) 

(cond ((null? set) (make-tree x 7() '())) 

((= x (entry set)) set) . 

((< x (entry set)) 

(make-tree {cntry set) 
(adjoin-set x (left-branch set) ) 
(cvight-branch set)))- 

((> x (entry set)) 

(make-tree (entry set) 
(left-branch set). 
(adjoin-set x (right-branch set)))))) 


我 们 在 上 面 断言 ， 搜 索 树 的 操作 可 以 在 对 数 步 数 中 完成 ， 这 实际 上 依赖 于 树 “ 平 衡 ” 的 
假设 ， 也 就 是 说 ， 每 个 树 的 左右 子 树 中 的 结 点 大 ， 
致 上 一 样 多 ， 因 此 每 棵 子 树 中 包含 的 结 点 大 约 就 。””、\、 
是 其 父 的 一 半 。 但 是 我 们 怎么 才能 确保 构造 出 的 2 
树 是 平衡 的 呢 ? 即使 是 从 一 棵 平衡 的 树 开始 工作 ， \ 
采用 adjoin=~set 加 入 元 素 也 可 能 产生 出 不 平衡 N 
的 结果 。 因 为 新 加 入 元 素 的 位 置 依赖 于 它 与 当时 4 
已 经 在 树 中 的 那些 项 比较 的 情况 。 我 们 可 以 期 望 ， N 
如 果 “ 随 机 地 ”将 元 素 加 入 树 中 ， 平 均 而 言 将 会 \ 
使 树 趋 于 平衡 。 但 在 这 里 并 没有 任何 保证 。 例 如 ， 。 
如 果 我 们 从 空 集 出 发 ， 顺 序 将 数值 1 至 7 加 入 其 中 ， N 
我 们 就 会 得 到 如 图 2-17 所 示 的 高 度 不 平衡 的 树 。 7 
在 这 个 树 里 ， 所 有 的 左 子 树 都 为 空 ， 所 以 它 与 简 图 2-17 通过 顺序 加 入 1 到 7 产生 的 非 平 衡 树 
单 排序 表 相 比 一 点 优势 也 没有 。 解 决 这 个 问题 的 
一 种 方式 是 定义 一 个 操作 ， 它 可 以 将 任意 的 树 变 换 为 一 棵 具有 同样 元 素 的 平衡 树 。 在 每 执行 
过 几 次 adjoin-set 操 作 之 后 ， 我 们 就 可 以 通过 执行 它 来 保持 树 的 平衡 。 当 然 ， 解 决 这 一 问 
题 的 方法 还 有 许多 ， 大 部 分 这 类 方法 都 涉及 到 设计 一 种 新 的 数据 结构 ， 设 法 使 这 种 数据 结构 
上 的 搜索 和 插入 操作 都 能 够 在 9(log n) 步 数 内 完成 '“。 


106 这 种 结构 的 例子 如 B 树 和 红 黑 树 。 存 在 大 量 有 关 数 据 结构 的 文献 讨论 这 一 问题 ， 参 见 Cormen, Leiserson, and 
Rivest 1990 。 
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练习 2.63 下面 两 个 过 程 都 能 将 树 变换 为 表 : 
(define (tree->list-1 tree) 
(if (null? tree) 
O 
(append (tree->list-1 (left-branch tree)) 
(cons (entry tree) 
(tree->list~1l (right-branch tree)))))) 


(define (tree->list-2 tree) 
(define (copy-to-list tree result-list) 
(if (null? tree) 
result-list 
(copy-to-list (left-branch tree) 
(cons (entry tree) 
(copy-to-list (right-branch tree) 
result-list))))) 
(copy-to-list tree ’())) 


a) 这 两 个 过 程 对 所 有 的 树 都 产生 同样 结果 吗 ? 如 果 不 是 ， 它 们 产生 出 的 结果 有 什么 不 
同 ? 它们 对 图 2-16 中 的 那些 树 产 生 什 么 样 的 表 ? 

b) 将 ?个 结 点 的 平衡 树 变换 为 表 时 ， 这 两 个 过 程 所 需 的 步 数 具有 同样 量 级 的 增长 速度 吗 ? 
如 果 不 一 样 ， 哪 个 过 程 增长 得 慢 一 些 ? 

练习 2.64 下面 过 程 1ist->tree 将 一 个 有 序 表 变换 为 一 棵 平衡 二 又 树 。 其 中 的 辅助 函 
数 partial~tree 以 整数 x: 和 一 个 至 少 包 含 k 个 元 素 的 表 为 参数 ， 构 造 出 一 棵 包含 这 个 表 的 前 
nn 个 元 素 的 平衡 树 。 由 partial-tree 返 回 的 结果 是 一 个 序 对 〈 用 cons 构 造 )， 其 car 是 构造 
出 的 树 ， 其 cdr 是 没有 包含 在 树 中 那些 元 素 的 表 。 


(define (list->tree elements) 
(car (partial-tree elements (length elements)))) 


(define (partial-tree elts n) 
(if (= n Q0) 
(cons ’() elts) 
(let ((left-size (quotient (- n 1) 2))) 
(let ((left-result (partial-tree elts left-size))) 
(let ((left-tree (car left-result) ) 
(non-left-elts (cdr left-result)) 
(right-size (- n (+ left-size 1)))) 
(let ((this-entry (car non-left-elts) ) 
(right-result (partial-tree (cdr non-left-elts) 
right-size) )) 
(let ((rvight-tree (car right-result)} 
(remaining-elts (cdr right-result))) 
(cons (make-tree this-entry left-tree right-tree) 
remaining-elts)))))))) 


a) 请 简要 地 并 尽 可 能 清楚 地 解释 为 什么 partial-tree 能 完成 工作 。 请 画 出 将 List- 
>tree 用 于 表 (1 3 5 7 9 11) 产生 出 的 树 。 

b) 过 程 1ist->tree 转 换 n 个 元 素 的 表 所 需 的 步 数 以 什么 量 级 增长 ? 

练习 2.65 “利用 练习 2.63 和 练习 2.64 的 结果 ， 给 出 对 采用 CAR) 二 叉 树 方式 实现 的 集合 
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的 union-set 和 intersection-set 操 作 的 BQ(n) 实现 !0 。 


集合 与 信息 检索 

BRIAR 了 用 表 表示 集合 的 各 种 选择 ， 并 看 到 了 数据 对 象 表示 的 选择 可 能 如 何 深刻 地 影 
响 到 使 用 数据 的 程序 的 性 能 。 关 注 集合 的 另 一 个 原因 是 ， 这 里 所 讨论 的 技术 在 涉及 信息 检索 
的 各 种 应 用 中 将 会 一 次 又 一 次 地 出 现 。 

现在 考虑 一 个 包含 大 量 独立 记录 的 数据 库 ， 例 如 一 个 企业 中 的 人 事 文件 ， 或 者 一 个 会 计 
系统 里 的 交易 记录 。 典 型 的 数据 管理 系统 都 需 将 大 量 时 间 用 在 访问 和 修改 所 存 的 数据 上 ,. 
此 就 需要 访问 记录 的 高 效 方法 。 完 成 此 事 的 一 种 方式 是 将 每 个 记录 中 的 一 部 分 当 作 标 识 key 
(SHE). 。 所 用 键 值 可 以 是 任何 能 唯一 标识 记录 的 东西 。 对 于 人 事 文件 而 言 ， 它 可 能 是 雇员 的 
ID 编 码 。 对 于 会 计 系统 而 言 ， 它 可 能 是 交易 的 编号 。 在 确定 了 采用 什么 键 值 之 后 ， 就 可 以 将 
记录 定义 为 一 种 数据 结构 ， 并 包含 key 选择 过 程 ， 它 可 以 从 给 定 记 录 中 提取 出 有 关 的 键 值 。 

现在 就 可 以 将 这 个 数据 库 表示 为 一 个 记录 的 集合 。 为 了 根据 给 定 键 值 确定 相关 记录 的 位 
E, 我 们 用 一 个 过 程 lookup, 它 以 一 个 键 值 和 一 个 数据 库 为 参数 ,返回 具有 这 个 键 值 的 记录 ， 
或 者 在 找 不 到 相应 记录 时 报告 失败 。1ookup 的 实现 方式 几乎 与 element-of-set? 一 模 一 
样 ， 如 果 记 录 的 集合 被 表示 为 未 排序 的 表 ， 我 们 就 可 以 用 : 

(define (lookup given-key set-of-records) 

(cond ((null? set-of-records) false) 
((equal? given-key (key (car set-of-records) )) 


(car set~of-records) ) 
(else (lookup given-key (cdr set-of-records))))) 


ARS TM, ， 还 有 比 未 排序 表 更 好 的 表示 大 集合 的 方法 。 常 常 需要 “随机 访问 ”其 中 记录 
的 信息 检索 系统 通常 用 某 种 基于 树 的 方法 实现 ， 例 如 用 前 面 讨 论 过 的 二 叉 树 。 在 设计 这 种 系 
统 时 ， 数 据 抽象 的 方法 学 将 很 有 帮助 。 设 计 师 可 以 创建 某 种 简单 而 直接 的 初始 实现 ， 例 如 采 
用 未 排序 的 表 。 对 于 最 终 系 统 而 言 ， 这 种 做 法 显然 并 不 合适 ， 但 采用 这 种 方式 提供 一 个 “一 
挥 而 就 ”的 数据 库 ， 对 用 于 测试 系统 的 其 他 部 分 则 可 能 很 有 帮助 。 然 后 可 以 将 数据 表示 修改 
得 更 加 精细 。 如 果 对 数据 库 的 访问 都 是 基于 抽象 的 选择 函数 和 构造 函数 ， 这 种 表示 的 改变 就 
不 会 要求 对 系统 其 余部 分 做 任何 修改 。 

练习 2.66 ”假设 记录 的 集合 来 用 二 又 树 实现 ， 按 照 其 中 作为 键 值 的 数值 排序 。 请 实现 相 
应 的 lookup 过 程 。 . 


2.3.4 实例 : Huffman 编 码 树 


本 节 将 给 出 一 个 实际 使 用 表 结 构 和 数据 抽象 去 操作 集合 与 树 的 例子 。 这 一 应 用 是 想 确 定 
一 些 用 0 和 1 (二 进 制 位 ) 的 序列 表示 数据 的 方法 。 举 例 说 ,用 于 在 计算 机 里 表示 文本 的 
ASCII 标 准 编码 将 每 个 字符 表示 为 一 个 包含 7 个 二进制 位 的 序列 ， 采用 7 个 二 进 制 位 能 够 区 分 
27 种 不 同情 况 ， 即 128 个 可 能 不 同 的 字符 。 一 般 而 言 ， 如 果 我 们 需要 区 分 个 不 同 字符 ， 那 么 
就 需要 为 每 个 字符 使 用 log: 个 二 进 制 位 。 假 设 我 们 的 所 有 信息 都 是 用 A、B. C.D、E、F、 
G 和 H 这 样 8 个 字符 构成 的 ， 那 么 就 可 以 选择 每 个 字符 用 3 个 二 进 制 位 ， 例 如 : 
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A 000 C 010 E 100 G 110 
B 001 D 011 F101 H 111 


采用 这 种 编码 方式 ， 消 息 : 
BACADAEAFABBAAAGAH 


将 编码 为 54 个 二 进 制 位 
001000010000011000100000101000001001000000000110000111 


像 ASCI 码 和 上 面 A 到 五 编码 这 样 的 编码 方式 称 为 定 长 编码 ， 因 为 它们 采用 同样 数目 的 二 进 制 
位 表示 消息 中 的 每 一 个 字符 。 变 长 编码 方式 就 是 用 不 同 数目 的 二 进 制 位 表示 不 同 的 字符 ， 这 
种 方式 有 时 也 可 能 有 些 优势 。 举 例 说 ， 莫 尔 斯 电报 码 对 于 字母 表 中 各 个 字母 就 没有 采用 同样 
数目 的 点 和 划 ， 特 别 是 最 常见 的 字母 E 只 用 一 个 点 表示 。 一 般 而 言 ， 如 果 在 我 们 的 消息 里 ， 某 
些 符 号 出 现 得 很 频繁 ， 而 另 一 些 却 很 少见 ， 那 么 如 果 为 这 些 频 繁 出 现 的 字符 指定 较 短 的 码 字 ， 
我 们 就 可 能 更 有 效 地 完成 数据 的 编码 (对 于 同样 消息 使 用 更 少 的 二 进 制 位 ) 。 请 考虑 下 面 对 于 
字母 A 到 H 的 另 一 种 编码 : 

AO C 1010 E 1100 G 1110 

B 100 D 1011 F 1101 H1111 


采用 这 种 编码 方式 ， 上 面 的 同样 信息 将 编码 为 如 下 的 串 : 
100010100101101100011010100100000111001111 

这 个 串 中 只 包含 42 个 二 进 制 位 ， 也 就 是 说 ， 与 上 面 定 长 编码 相 比 ， 现 在 的 这 种 方式 节约 了 超 
过 20% 的 空间 。 

采用 变 长 编码 有 一 个 困难 ， 那 就 是 在 读 0/1 序 列 的 过 程 中 确定 何 时 到 达 了 一 个 字符 的 结束 。 
莫 尔 斯 码 解决 这 一 问题 的 方式 是 在 每 个 字母 的 点 划 序 列 之 后 用 一 个 特殊 的 分 隔 符 【( 它 用 的 是 
一 个 间歇 )。 另 一 种 解决 方式 是 以 某 种 方式 设计 编码 ， 使 得 其 中 每 个 字符 的 完整 编码 都 不 是 为 
一 字符 编码 的 开始 一 段 (或 称 前 缓 )。 这 样 的 编码 称 为 前 缓 码 。 在 上 面 例子 里 ， 人 编码 为 而 了 
编码 为 100， 没 有 其 他 字符 的 编码 由 0 或 者 100 开 始 。 

一 般 而 言 ， 如 果 能 够 通过 变 长 前 缀 码 去 利用 被 编码 消息 中 符号 出 现 的 相对 频 度 ， 那 么 就 
能 明显 地 节约 空间 。 完 成 这 件 事情 的 一 种 特定 方式 称 为 Huftman 编 码 ， 这 个 名 称 取 自 其 发 明 人 
David Huftman 。 一 个 Hufftman 编码 可 以 表示 为 一 棵 二 又 树 ， 其 中 的 树叶 是 被 编码 的 符号 。 树 
中 每 个 非 叶 结 点 代表 一 个 集合 ， 其 中 包含 了 这 一 结 点 之 下 的 所 有 树叶 上 的 符号 。 除 此 之 外 ， 
位 于 树叶 的 每 个 符号 还 被 赋予 一 个 权重 (也 就 是 它 的 相对 频 度 )， 非 叶 结 点 所 包含 的 权重 是 位 
于 它 之 下 的 所 有 叶 结 点 的 权重 之 和 。 这 种 权重 在 编码 和 解码 中 并 不 使 用 。 下 面 将 会 看 到 ,在 
构造 树 的 过 程 中 需要 它们 的 帮助 。 

图 2-18 显 示 的 是 上 面 给 出 的 A 到 H 编码 所 对 好 的 Huffman 编 码 树 ， 树 叶 上 的 权重 表明 ， 这 
棵 树 的 设计 所 针对 的 消息 是 ， 字 母 A 具 有 相对 权重 8，B 具 有 相对 权重 3， 其 余 字母 的 相对 权重 
都 是 1。 . 
给 定 了 一 棵 Hufftman 树 ， 要 找 出 任 一 符号 的 编码 ， 我 们 只 需 从 树 根 开始 向 下 运动 ， 直 到 到 . 
达 了 保存 着 这 一 符号 的 树叶 为 止 ， 在 每 次 向 左 行 时 就 给 代码 加 上 一 个 0， 右 行 时 加 上 一 个 1 。 
在 确定 向 哪 一 分 支 运动 时 ， 需 要 检查 该 分 支 是 否 包含 着 与 这 一 符号 对 应 的 叶 结 点 ， 或 者 其 集 
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合 中 包含 着 这 个 符号 。 举 例 说 ， 从 图 2-18 中 树 的 根 开 始 ， 到 达 D 的 叶 结 点 的 方式 是 走 一 个 右 分 
支 ， 而 后 一 个 左 分 支 ， 而 后 是 右 分 支 ， 而 后 又 是 右 分 支 ， 因 此 其 代码 为 1011。 
{ABCDEFGH} 17 


{BCDEFGH}9 
A8 


{BCD}5 


{EFGH}4 
B3 


图 2-18 一 棵 Hufftman 编 码 树 


在 用 Huffman 树 做 一 个 序列 的 解码 时 ， 我 们 也 从 树 根 开始 ， 通 过 位 序列 中 的 0 或 1 确定 是 移 
向 左 分 支 还 是 右 分 支 。 每 当 我 们 到 达 一 个 叶 结 点 上 时， 就 生成 出 了 消息 中 的 一 个 符号 。 此 时 就 
重新 从 树 根 开始 去 确定 下 一 个 符号 。 例 如 ， 如 果 给 我 们 的 是 上 面 的 树 和 序列 10001010 。 从 树 
根 开始 ， 我 们 移 向 右 分 支 (因为 串 中 第 一 个 位 是 1 )， 而 后 向 左 分 支 (因为 第 二 个 位 是 0)， 而 
后 再 向 左 分 支 《因为 第 三 个 位 也 是 0) 。 这 时 已 经 到 达 B 的 叶 ， 所 以 被 解码 消息 中 的 第 一 个 符号 
EB, 。 现 在 再 次 从 根 开 始 ， 因 为 序列 中 下 一 个 位 是 0 ， 这 就 导致 一 次 向 左 分 支 的 移动 ， 使 我 们 
到 达 A 的 叶 。 然 后 我 们 再 次 从 根 开 始 处 理 剩 下 的 串 1010 ， 经 过 右 左 右 左 移动 后 到 达 了 C 。 这 样 ， 
整个 消息 也 就 是 BAC。 

生成 Hufman 树 

给 定 了 符号 的 “字母 表 ” 和 它们 的 相对 频 度 ， 我 们 怎么 才能 构造 出 “最 好 的 ”编码 呢 ? 
换 句 话说 ， 哪 样 的 树 能 使 消息 编码 的 位 数 达 到 最 少 ? Huftman 给 出 了 完成 这 件 事 的 一 个 算法 ， 
并 且 证 明了 ， 对 于 符号 所 出 现 的 相对 频 度 与 构造 树 的 消息 相符 的 消息 而 言 ， 这 样 产生 出 的 编 
码 确实 是 最 好 的 变 长 编码 。 我 们 并 不 打算 在 这 里 证 明 Hufftman 编 码 的 最 优 性 质 ， 但 将 展示 如 何 
Hk Huffman 树 :08 。 | 

生成 Huffman 树 的 算法 实际 上 十 分 简单 ， 其 起 法 就 是 设法 安排 这 桔 树 ， 使 得 那些 带 有 最 低 
频 度 的 符号 出 现在 离 树 根 最 远 的 地 方 。 这 一 构造 过 程 从 叶 结 点 的 集合 开始 ， 这 种 结 点 中 包含 
名 个 符号 和 它们 的 频 度 ， 这 就 是 开始 构造 编码 的 初始 数据 。 现 在 要 找 出 两 个 具有 最 低 权重 的 
时 ， 并 归并 它们 ， 产 生出 一 个 以 这 两 个 结 点 为 左右 分 支 的 结 点 。 新 结 点 的 权重 就 是 那 两 个 结 
点 的 权重 之 和 。 现 在 我 们 从 原来 集合 里 删除 前 面 的 两 个 时 结 点 ， 并 用 这 一 新 结 点 代替 它们 。 
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随后 继续 这 一 过 程 ， 在 其 中 的 每 一 步 都 归并 两 个 具有 最 小 权重 的 结 点 ， 将 它们 从 集合 中 删除 ， 
并 用 一 个 以 这 两 个 结 点 作为 左右 分 支 的 新 结 点 取而代之 。 当 集合 中 只 剩 下 一 个 结 点 时 ， 这 一 
过 程 终止 ， 而 这 个 结 点 就 是 树 根 。 下 面 显示 的 是 图 2-18 中 的 Huftman 树 的 生成 过 程 : 


初始 树叶 {(A 8) (B 3) (C 1) (D D (E 1) (F 1) (G 1) (H 1)} 
归并 {(A 8) (B 3) (C D} 2) (Œ 1) (F 1) (G 1) (H 1)} 
归并 {(A 8) (B 3) {C D} 2) (E F} 2) (G 1) (H D} 
归并 {(A 8) (B 3) ({C D} 2) ({E F} 2) ({G H} 2)} 
归并 {(A 8) (B 3) ({C D} 2) (EF GH} 4)} 

归并 {C(A 8) ({B C D} 5) (EF GH} 4} 

归并 ((A 8) ({B CDEFG H} 9)} 

最 后 归并 {dA BCDEFGH}17)} 


这 一 算法 并 不 总 能 描述 一 棵 唯一 的 树 ， 这 是 因为 ， 每 步 选择 出 的 最 小 权重 结 点 有 可 能 不 唯一 。 
还 有 ， 在 做 归并 时 ， 两 个 结 点 的 顺序 也 是 任意 的 ， 也 就 是 说 ， 随 便 哪 个 都 可 以 作为 左 分 支 或 
者 右 分 支 。 

Huffman 树 的 表示 

在 下 面 的 练习 中 ， 我 们 将 要 做 出 一 个 使 用 Huffman 树 完成 消息 编码 和 解码 ， 并 能 根据 上 面 
给 出 的 梗概 生成 Huffman 树 的 系统 。 开 始 还 是 讨论 这 种 树 的 表示 。 

将 一 棵 树 的 树叶 表示 为 包含 符号 Leaf 、 叶 中 符号 和 权重 的 表 : 


(define (make-leaf symbol weight) 
(list ’leaf symbol weight)) 


(define (leaf? object) 


(eq? (car object) ’leaf)) 


(define (symbol-leaf x) (cadr x)) 
(define (weight-leaf x) (caddr x)) 


一 棵 一 般 的 树 也 是 一 个 表 ， 其 中 包含 一 个 左 分 支 、 一 个 右 分 支 、 一 个 符号 集合 和 一 个 权重 。 
符号 集合 就 是 符号 的 表 ， 这 里 没有 用 更 复杂 的 集合 表示 。 在 归并 两 个 结 点 做 出 一 棵 树 时 ， 树 
的 权重 也 就 是 这 两 个 结 点 的 权重 之 和 ， 其 符号 集 就 是 两 个 结 点 的 符号 集 的 并 集 。 因 为 这 里 的 
符号 集 用 表 来 表示 ， 通 过 2.2.1 节 的 apPend 过 程 就 可 以 得 到 它们 的 并 集 ; 
(define (make-code-tree left right) 
(list left 
right 、 
(append (symbols left) (symbols right)) 
(+ (weight left) (weight right)))) 
如 果 以 这 种 方式 构造 ， 我 们 就 需要 采用 下 面 肪 选择 函数 : 
{define (left-branch tree) (car tree)) 
(define (right-branch tree) (cadr tree)) 


(define (symbols tree) 


(if (leaf? tree) 
{list (symbol-leaf tree) ) 
(caddr tree))) 
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(define (weight tree) 
(if (leaf? tree) 
(weight-leaf tree) 
(cadddr tree))) 


在 对 树叶 或 者 一 般 树 调用 过 程 syYmbols 和 weight 时 ， 它 们 需要 做 的 事情 有 一 点 不 同 。 这 些 
不 过 是 通用 型 过 程 (可 以 处 理 多 于 一 种 数据 的 过 程 ) 的 简单 实例 ， 有 关 这 方面 的 情况 ， 在 2.4 
节 和 2.5 节 将 有 很 多 讨论 。 


解码 过 程 
下 面 的 过 程 实现 解码 算法 ， 它 以 一 个 0/1 的 表 和 一 棵 Huffman 树 为 参数 ， 
(define (decode bits tree) 
(define (decode-1 bits current-branch) 
(if (null? bits) 
O 
(let ((next-branch 
(choose-branch (car bits) current-branch))) 
(if (leaf? next-branch) 
(cons (symbol-leaf next-branch) 
(decode-1 (cdr bits) treë)) 
(decode-1 (cdr bits) next-branch))))) 
(decode-1 bits tree)) 
(define (choose-branch bit branch) 
(cond ((= bit 0) (left-branch branch) ) 
((= bit 1) (right-branch branch) ) 
(else (error "bad bit -- CHOOSE-BRANCH” bit)))) 


过 程 decode-1 有 两 个 参数 ， 其 中 之 一 是 包含 二 进 制 位 的 表 ， 另 一 个 是 树 中 的 当前 位 置 。 它 
不 断 在 树 里 “向 下 ”移动 ， 根 据 表 中 下 一 个 位 是 0 或 者 1 选择 树 的 左 分 支 著者 右 分 支 (这 一 工 
作 由 过 程 choose-branch 完 成 )。 -一旦 到 达 了 叶 结 点 ， 它 就 把 位 于 这 里 的 符号 作为 消息 中 的 
下 一 个 符号 ， 将 其 cons 到 对 于 消息 里 随后 部 分 的 解码 结果 之 前 。 而 后 这 一 解码 又 从 树 根 重 新 
开始 。 请 注意 choose-~ branch 里 最 后 一 个 子 名 的 错误 检查 ， 如 果 过 程 遇 到 了 不 是 0/1 的 东西 
时 就 会 报告 错误 。 ”- 

带 权 重 元 素 的 集合 o 

在 树 表示 里 ， 每 个 非 叶 结 点 包含 着 一 个 符号 集合 ， 在 这 里 表示 为 一 个 简单 的 表 。 然 而 ， 
上 面 讨论 的 树 生成 算法 要 求 我 们 也 能 对 树叶 和 树 的 集合 工作 ， 以 便 不 断 地 归并 一 对 一 对 的 最 
小 项 。 估 为 在 这 里 需要 反复 去 确定 集合 里 的 最 小 项 ， 采 用 某 种 有 序 的 集合 表示 会 比较 方便 。 

我 们 准备 将 树叶 和 树 的 集合 表示 为 一 批 元 素 的 表 ， 按 照 权 重 的 上 升 顺序 排列 表 中 的 元 素 。 
下 面 用 于 构造 集合 的 过 程 adjoin-set 与 练习 2.61 中 描述 的 过 程 类 似 ,，' 但 这 里 比较 的 是 元 素 
的 权重 ， 而 且 加 入 集合 的 新 元 素 原来 绝 不 会 出 现在 这 个 集合 里 * 


(define'(adjoin-set x set) 
(cond ((null?.set) (list x)) 
((< (weight x) (weight (car set))) (cons x set)) 
(else (cons (car set) 
(adjoin-set x (cdr set)))))) 
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下 面 过程 以 一 个 符号 -权重 对 偶 的 表 为 参数 ， 例 如 ((A 4) (B 2) (C 1) (D 1))， 它 构 
造 出 树叶 的 初始 排序 集合 ， 以 便 Huftman 算 法 能 够 去 做 归并 : 
(define (make-leaf-set pairs) 
(if (null? pairs) 
0) 
« (let ((pair (car pairs) ))} 
(adjoin-set (make-leaf (car pair) ; symbol 
(cadr pair)) ; frequency 
(make-leaf-set (cdr pairs)))))) 


练习 2.67 请 定义 一 棵 编码 树 和 一 个 样 例 消息 : 


{define sample-tree 
(make-code-tree (make-leaf ’A 4) 
(make-code-tree 
(make-leaf ’B 2) 
(make-code-tree (make-leaf °D 1) . 
(make-leaf ’C 1))))) 


(define sample-message "(0 11001010111 0)) 


然后 用 过 程 decode 完 成 该 消息 的 编码 ， 给 出 编码 的 结果 。 
练习 2.68 ”过 程 encode 以 一 个 消息 和 一 棵 树 为 参数 ， 产 生出 被 编码 消息 所 对 应 的 二 进 制 
位 的 表 : ” 
(define (encode message tree) 
(if (null? message) 
0) 
(append (encode-symbol (car message) tree) 
(encode (cdr message) tree)))) 


其 中 的 encode-symbol 是 需要 你 写 出 的 过 程 ， 它 能 根据 给 定 的 树 产 生出 给 定 符号 的 一 进 制 
位 表 。 你 所 设计 的 encode-symbol 在 遇 到 未 出 现在 树 中 的 符号 时 应 报告 错误 。 请 用 在 练习 
2.67 中 得 到 的 结果 检查 所 实现 的 过 程 ， 工 作 中 用 同样 一 棵 树 。 看 看 得 到 的 结果 是 不 是 原来 那 
个 消息 。 . 

练习 2.69 ”下面 过 程 以 一 个 符号 - 频 度 对 偶 表 为 参数 (其 中 没有 任何 符号 出 现在 多 于 一 个 
对 偶 中 ) ， 并 根据 Huftman 算 法 生成 出 Huftman 编 码 树 。 


(define (generate-huffman-tree pairs) 
(successive-merge (make-leaf-set pairs))) 


其 中 的 make-leaf-set 是 前 面 给 出 的 过 程 ， 它 将 对 偶 表 变换 为 叶 的 有 序 集 ，successive~ 
merge 是 需要 你 写 的 过 程 ， 它 使 用 make-code-tree 反 复 归并 集合 中 具有 最 小 权重 的 元 素 ， 
直至 集合 里 只 剩 下 一 个 元 素 为 止 。 这 个 元 素 就 是 我 们 所 需要 的 Huffman 树 。( 这 一 过 程 稍微 有 
点 技巧 性 ， 但 并 不 很 复杂 。 如 果 你 正在 设计 的 过 程 变 得 很 复杂 ， 那么 几乎 可 以 肯定 是 在 什么 
地 方 搞 错 了 。 你 应 该 尽 可 能 地 利用 有 序 集 合 表 示 这 一 事实 。) l 

练习 2.70 ”下面 带 有 相对 频 度 的 8 个 符号 的 字母 表 ， 是 为 了 有 效 编码 20 世 纪 50 年 代 的 摇滚 
歌曲 中 的 词语 而 设计 的 。( 请 注意 , “字母 表 ” 中 的 “符号 ”不 必 是 单个 字母 。) 

A 2 NA 16 

BOOM 1 SHA. 3 
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GET 2 YIP 9 
JOB 2 WAH 1 


请 用 (练习 2.69 的 ) generate-huffman-tree 过 程 生 成 对 应 的 Huffman 树 ， 用 (练习 2.68 
AY) encode 过 程 编码 下 面 的 消息 : 

Get a job 

Sha na na na na na na na na 

Get a job 

Sha na na na na na na na na 

Wah yip yip yip yip yip yip yip yip yip 

Sha boom 
这 一 编码 需要 多 少 个 二 进 制 位 ? 如 果 对 这 8 个 符号 的 字母 表 采 用 定 长 编码 ， 完 成 这 个 歌曲 的 编 
码 最 少 需要 多 少 个 二 进 制 位 ? i 

练习 2.71 ”假定 我 们 有 一 棵 ?个 符号 的 字母 表 的 Huftman 树 ， 其 中 各 符号 的 相对 频 度 分 别 
是 1，2，,，4，…，2"-!。 请 对 n =5 和 n=10 勾 勒 出 有 关 的 树 的 样子 。 对 于 这 样 的 树 (对 于 一 般 
的 上 )， 编 码 出 现 最 频繁 的 符号 用 多 少 个 二 进 制 位 ? 最 不 频繁 的 符号 呢 ? 

练习 2.72 ”考虑 你 在 练习 2.68 中 设计 的 编码 过 程 。 对 于 一 个 符号 的 编码 ， 计 算 步 数 的 增长 
速率 是 什么 ?请 注意 ， 这 时 需要 把 在 每 个 结 点 中 检查 符号 表 所 需 的 步 数 包括 在 内 。 一 般 性 地 
回答 这 一 问题 是 非常 困难 的 。 现 在 考虑 一 类 特殊 情况 ， 其 中 的 "个 符号 的 相对 频 度 如 练习 2.71 
所 描述 的 。 请 给 出 编码 最 频繁 的 符号 所 需 的 步 数 和 最 不 频繁 的 符号 所 需 的 步 数 的 增长 速度 
(作为 的 函数 )。 


24 ”抽象 数据 的 多 重 表示 


我 们 已 经 介绍 过 数据 抽象 ， 这 是 一 种 构造 系统 的 方法 学 ， 采 用 这 种 方法 ， 将 使 一 个 程序 中 
的 大 部 分 描述 能 与 这 一 程序 所 操作 的 数据 对 象 的 具体 表示 的 选择 无 关 。 举 例 来 说 ， 在 2.1.1 节 
里 ， 我 们 看 到 如 何 将 一 个 使 用 有 理 数 的 程序 的 设计 与 有 理 数 的 实现 工作 相互 分 离 ， 具 体 实现 
中 采用 的 是 计算 机 语言 所 提供 的 构造 复合 数据 的 基本 机 制 。 这 里 的 关键 性 思想 就 是 构筑 起 一 
道 抽象 屏障 一 对 于 上 面 情 况 ， 也 就 是 有 理 数 的 选择 函数 和 构造 函数 (make-rat, numer, 
denom) 一 它 能 将 有 理 数 的 使 用 方式 与 其 借助 于 表 结构 的 具体 表示 形式 隔离 开 。 与 此 类 似 的 
抽象 屏障 ， 也 把 执行 有 理 数 算术 的 过 程 (add-rat, sub-rat, mul-rat 和 div-rat) 与 
使 用 有 理 数 的 “高 层 ” 过 程 隔离 开 。 这 样 做 出 的 程序 所 具有 的 结构 如 图 2-1 所 示 。 

数据 抽象 屏障 是 控制 复杂 性 的 强 有 力 工具 。 通 过 对 数据 对 象 基 础 表示 的 屏蔽 ， 我 们 就 可 
以 将 设计 一 个 大 程序 的 任务 ， 分 割 为 一 组 可 以 分 别处 理 的 较 小 任务 。 但 是 ， 这 种 类 型 的 数据 
抽象 还 不 够 强大 有 力 ， 因 为 在 这 里 说 数据 对 象 的 “基础 表示 ”并 不 一 定 总 有 意义 。 

从 一 个 角度 看 ， 对 于 一 个 数据 对 象 也 可 能 存在 多 种 有 用 的 表示 方式 ， 而 且 我 们 也 可 能 和 希 
望 所 设计 的 系统 能 处 理 多 种 表示 形式 。 举 一 个 简单 的 例子 ， 复 数 就 可 以 表示 为 两 种 几乎 等 价 
的 形式 : 直角 坐标 形式 (KRAER) 和 极 坐标 形式 〈 模 和 幅 角 )。 有 时 采用 直角 坐标 形式 更 
合适 ， 有 时 极 坐 标 形式 更 方便 。 的 确 ， 我 们 完全 可 能 设想 一 个 系统 ， 其 中 的 复数 同时 采用 了 
两 种 表示 形式 ， 而 其 中 的 过 程 可 以 对 具有 任意 表示 形式 的 复数 工作 。 


6 HIB HE 


更 重要 的 是 ， 一 个 系统 的 程序 设计 常常 是 由 许多 人 通过 一 个 相当 长 时 期 的 工作 完成 的 ， 
系统 的 需求 也 在 随 着 时 间 而 不 断 变 化 。 在 这 样 一 种 环境 里 ， 要 求 每 个 人 都 在 数据 表示 的 选择 
上 达成 一 臻 是 根本 就 不 可 能 的 事情 。 因 此 ， 除 了 需要 将 表示 与 使 用 相隔 离 的 数据 抽象 屏障 之 
外 ， 我 们 还 需要 有 抽象 屏障 去 隔离 互 不 相同 的 设计 选择 ， 以 便 人 允许 不 同 的 设计 选择 在 同一 个 
程序 里 共存 。 进 一 步 说 ， 由 于 大 型 程序 常常 是 通过 组 合 起 一 些 现存 模块 构造 起 来 的 ， 而 这 些 
模板 又 是 独立 设计 的 ， 我 们 也 需要 一 些 方 法 ， 使 程序 员 可 能 逐步 地 将 许多 模块 结合 成 一 个 大 
型 系统 ， 而 不 必 去 重新 设计 或 者 重新 实现 这 些 模块 。 

在 这 一 节 里 ， 我 们 将 学 习 如 何 去 处 理 数据 ， 使 它们 可 能 在 一 个 程序 的 不 同 部 分 中 采用 
不 同 的 表示 方式 。 这 就 需要 我 们 去 构造 通用 型 过 程 一 一 也 就 是 那 种 可 以 在 不 止 一 种 数据 表 
示 上 操作 的 过 程 。 这 里 构造 通用 型 过 程 所 采用 的 主要 技术 ,是 让 它们 在 带 有 类 型 标志 的 数 
据 对 象 上 工作 。 也 就 是 说 ， 让 这 些 数据 对 象 包含 着 它们 应 该 如 何 处 理 的 明确 信息 。 我 们 还 
要 讨论 数据 导向 的 程序 设计 ， 这 是 一 种 用 于 构造 采用 了 通用 型 操作 的 系统 有 力 而 且 方便 的 
技术 。 

我 们 将 从 简单 的 复数 实例 开始 ， 看 看 如 何 采用 类 型 标志 和 数据 导向 的 风格 ， 为 复数 分 别 
设计 出 直角 坐标 表示 和 极 坐 标 表示 ， 而 又 维持 一 种 抽象 的 “复数 ”数据 对 象 的 概念 。 做 到 这 
一 点 的 方式 就 是 定义 基于 通用 型 选择 函数 定义 复数 的 算术 运算 (add-complex, sub- 
complex, mul-complex fldiv-complex) , 使 这 些 选择 函数 能 访问 一 个 复数 的 各 个 部 分 ， 
无 论 复 数 采用 的 是 什么 表示 方式 。 作 为 结果 的 复数 系统 如 图 2-19 所 示 ， 其 中 包含 两 种 不 同类 
型 的 抽象 屏障 , “水 平 ”抽象 屏障 扮演 的 角色 与 图 2-1 中 的 相同 ， 它 们 将 “高 层 ” 操 作 与 “ 低 
层 ” 表 示 隔 离开 。 此 外 ， 还 存在 着 一 道 “垂直 ”屏障 ， 它 使 我 们 能 够 隔离 不 同 的 设计 ， 并 且 
还 能 够 安装 其 他 的 表示 方式 。 


使 用 复数 的 程序 


add-complex sub-complex mul-complex div-complex 


复数 算术 包 


直角 坐标 表示 | | 极 坐标 表示 


表 结 构 和 基本 机 器 算术 
图 2-19 复数 系统 中 的 数据 抽象 屏障 
在 2.5 节 里 ， 我 们 将 说 明 如 何 利用 类 型 标志 和 数据 导向 的 风格 去 开发 一 个 通用 型 算术 包 ， 


其 中 提供 的 过 程 (add, mul 等 等 ) 可 以 用 于 操作 任何 种 类 的 “ 数 "， 在 需要 另 一 类 新 的 数 时 
也 很 容易 进行 扩充 。 在 2.5.3 节 里 ， 我 们 还 要 展示 如 何在 执行 符号 代数 的 系统 里 使 用 通用 型 算 


术 功 能 。 
2.4.1 复数 的 表示 


这 里 要 开发 一 个 完成 复数 算术 运算 的 系统 ， 作 为 使 用 通用 型 操作 的 程序 的 一 个 简单 的 ， 
但 不 那么 实际 的 例子 。 开 始 时 ， 我 们 要 讨论 将 复数 表示 为 有 序 对 的 两 种 可 能 表示 方式 : 直角 
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坐标 形式 (KRAER) 以 及 极 坐标 形式 AMEA) !”。2.4.2 节 将 展示 如 何 通过 类 型 标志 
和 通用 型 操作 ， 使 这 两 种 表示 共存 于 同一 个 系统 中 。 
与 有 理 数 一 样 ， 复 数 也 可 以 很 自然 地 用 有 序 对 表示 。 我 们 可 以 将 复数 集合 设想 为 一 个 带 

有 两 个 坐标 轴 (“ 实 ” 轴 和 “ 虚 ” 轴 ) 的 两 维 空间 ( 见 图 2-20)。 .按照 这 一 观点 ， 复 数 z =x iy 
(其 中 尺 = 一 1) 可 看 作 这 个 平面 上 的 一 个 点 ， 其 中 的 实 坐 标 是 x 而 虚 坐 标 为 ? 。 在 这 种 表示 下 ， 
复数 的 加 法 就 可 以 归结 为 两 个 坐标 分 别 相 加 ; 

实 部 (z1 +22) = 实 部 (z1) + 实 部 (2?) 

HEEB (z1 +22) = 虚 部 (21) + HERB (22) 


虚 坐 标 


图 2-20 将 复数 看 作 平面 上 的 点 


在 需要 乘 两 个 复数 时 ， 更 自然 的 考虑 是 采用 复数 的 极 坐标 形式 ， 此 时 复数 用 一 个 模 和 一 
个 幅 角 表示 (图 2-20 中 的 r 和 4 )。 两 个 复数 的 乘积 也 是 一 个 向 量 ， 得 到 它 的 方式 是 模 相 乘 ， 幅 
角 相 加 。 

模 (z1 : 22) = (21) + 模 (z2) 
幅 角 (21 : 22) = 幅 角 (Zi) 十 幅 角 (22) 

.可见 ， 复 数 有 两 种 不 同 表示 方式 ， 它 们 分 别 适 合 不 同 的 运算 。 当 然 ， 从 编写 使 用 复数 的 
程序 的 开发 人 员 角 度 看 ,数据 抽象 原理 的 建议 是 所 有 复数 操作 都 应 该 可 以 使 用 ， 无 论 计算 机 
所 用 的 具体 表示 形式 是 什么 。 例 如 ， 我 们 也 常常 需要 取得 一 个 复数 的 模 ， 即 使 它 原本 采用 的 
是 复数 的 直角 坐标 表示 。 同 样 ， 我 们 也 常常 需要 得 到 复数 的 实 部 ， 即 使 它 实 际 采用 的 是 极 坐 
标 形式 。 

在 设计 一 个 这 样 的 系统 时 ， 我 们 将 沿用 在 2.1.1 节 设计 有 理 数 包 时 所 采用 的 同样 的 数据 抽 
象 策略 ， 假 定 所 有 复数 运算 的 实现 都 基于 如 下 四 个 选择 函数 ， real-part 、imag-part、 
magnitude 和 angle， 还 要 假定 有 两 个 构造 复数 的 过 程 : make~from-real-imag 返 回 一 
个 采用 实 部 和 虚 部 描述 的 复数 ，make-Efrom-mag-~ -ang 返 回 一 个 采用 模 和 幅 角 描述 术 的 复数 。 
这 些 过 程 的 性 质 是 ， 对 于 任何 复数 z ， 下 面 两 者 : 


(make-from-real-imag (real-part z) (imag-part z)) 


!o 在 实际 计算 系统 里 ， 大 部 分 情况 下 人 们 都 倾向 于 采用 直角 坐标 形式 而 不 是 极 坐标 形式 ， 这 样 做 的 原因 是 在 
直角 毕 标 形式 和 极 坐 标 形式 之 间 转 换 的 会 入 误差 。 这 也 是 为 什么 说 这 个 复数 实例 不 实际 的 原因 。 但 无 论 如 
何 ， 这 一 实例 清晰 地 阅 释 了 采用 通用 型 操作 时 的 系统 设计 ， 也 是 对 于 本 章 后 面 开发 的 更 实际 的 系统 的 一 个 
很 好 准备 。 


e E ADs ce a 


和 


(make~from-mag-ang (magnitude z) (angle 2)) 


产生 出 的 复数 都 等 于 z 。 

利用 这 些 构 造 函 数 和 选择 函数 ， 我 们 就 可 以 实现 复数 算术 了 ， 其 中 使 用 由 这 些 构造 函数 
和 选择 函数 所 刻画 的 “抽象 数据 ”， 就 像 前 面 在 2.1.1 节 中 针对 有 理 数 所 做 的 那样 。 正 如 上 面 公 
式 中 所 描述 的 ， 复 数 的 加 法 和 减法 采用 实 部 和 虚 部 的 方式 描述 ， 而 乘法 和 除法 采用 模 和 幅 角 
的 方式 描述 : 

(define (add-complex z1 22) 


(make-from-real-imag (+ (real-part zl) (real-part 22)) 
(+ (imag-part zl) (imag-part 22)))) 


(define (sub-complex z1 22) 
(Make-from-real-imag (- (real-part zl) (real-part 22)) 
(- (imag-part z1) (imag-part 22))})) 


(define (mul-complex 21 22) 
(make-from-mag-ang (* (magnitude z1) (magnitude 22)) 
(+ (angle z1) (angle 2z2)))) 


(define (div-complex 21 22) 
(make-from-mag-ang (/ (magnitude zl) (magnitude 2z2)) 
(~ (angle zl) (angle 2z2)))) 


为 了 完成 这 一 复数 包 ， 我 们 必须 选择 一 种 表示 方式 ， 而 且 必 须 基于 基本 的 数值 和 基本 表 
结构 ， 基 于 它们 实现 各 个 构造 函数 和 选择 函数 。 现 在 有 两 种 显 见 的 方式 完成 这 一 工作 :可 以 
将 复数 按 “ 直 角 坐 标 形式 ”表示 为 一 个 有 序 对 ( 实 部 ， 虚 部 )， 或 者 按照 “ 极 坐标 形式 ”表示 
为 有 序 对 ( 模 ， 幅 角 )。 究 竟 应 该 选择 哪 一 种 方式 呢 ? l 

为 了 将 不 同 选择 的 情况 看 得 更 清楚 些 ， 现 在 让 我 们 假定 有 两 个 程序 员 ，Ben Bitdiddle 和 
Alyssa P. Hacker， 他 们 正在 分 别 独 立地 设计 这 一 复数 系统 的 具体 表示 形式 。Ben 选 择 了 复数 的 
直角 坐标 表示 形式 ， 采 用 这 一 选择 ， 选 取 复 数 的 实 部 与 虚 部 是 直截了当 的 ， 因 为 这 种 复数 就 
是 由 实 部 和 虚 部 构成 的 。 而 为 了 得 到 模 和 幅 角 ， 或 者 需要 在 给 定 模 和 幅 角 的 情况 下 构造 复数 
时 ， 他 利用 了 下 面 的 三 角 关系 : 

x=rcosA r= x+y’ 
y=rsinA A =arctan (y, x) 
这 些 公式 建立 起 实 部 和 虚 部 对 偶 (x, y) 与 模 和 幅 角 对 偶 C, A) 之 间 的 联系 ”。Ben 在 这 种 表 
示 之 下 给 出 了 下 面 这 几 个 选择 函数 和 构造 函数 : 
(define (real-part z) (car 2)) 
(define (imag-part z) (cdr 2)) 


(define (magnitude z) 
(sqrt (+ (Square (real-part z)) (square (imag-part z))))) 


(define (angle z) 


no 这 里 所 用 的 反正 切 函 数 由 Scheme 的 atan 过 程 计算 ， 其 定义 取 两 个 参数 ?和 x， 返 回 正切 是 yx 的 角度 。 参 数 的 
符号 决定 角度 所 在 的 象限 。 
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(atan (imag-part z) (real-part z))) 
(define (make-from-real-imag x y) (cons x y)) 


(define (make-from-mag-ang r a) 
(cons (* r (cos a)) (* r (sin a)))) 


而 在 另 一 边 ，Alyssa 却 选择 了 复数 的 极 坐 标 形式 。 对 于 她 而 言 ， 选 取 模 和 幅 角 的 操作 直 截 
TM. 但 必须 通过 三 角 关系 去 得 到 实 部 和 虚 部 。 Alyssa 的 表示 是 : 


(define (real-part z) 
(* (magnitude z) (cos (angle z)))) 


(define (imag-part z) 

(* (magnitude z) (sin (angle z)))) 
(define (magnitude z) (car 2z)) 
(define (angle z) (cdr z)) 

(define (make-from-real-imag x y) 


(cons (sqrt (+ (square x) (square y))) 
(atan y x))) 


(define (make~from-mag-ang r a) (cons r a)) 


数据 抽象 的 规则 保证 了 add-complex、sub-complex.、 mui-complex 和 div- 
complex 的 同一 套 实现 对 于 Ben 的 表示 或 者 Alyssa 的 表示 都 能 正常 工作 。 


2.4.2 带 标 志 数 据 


认识 数据 抽象 的 一 种 方式 是 将 其 看 作 “ 最 小 允诺 原则 ”的 一 个 应 用 。 在 2.4.1 节 中 实现 复 
数 系统 时 ， 我 们 可 以 采用 Ben 的 直角 坐标 表示 形式 或 者 Alyssa 的 极 坐 标 表示 形式 ， 由 选择 函数 
和 构造 函数 形成 的 抽象 屏障 ， 使 我 们 可 以 把 为 自己 所 用 数据 对 象 选择 具体 表示 形式 的 事情 尽 
量 向 后 推 ， 而 且 还 能 保持 系统 设计 的 最 大 灵活 性 。 

最 小 允诺 原则 还 可 以 推进 到 更 极端 的 情况 。 如 果 我 们 需要 的 话 ， 那 么 还 可 以 在 设计 完成 先 
择 函 数 和 构造 函数 ， 并 决定 了 同时 使 用 Ben 的 表示 和 Alyssa 的 表示 之 后 ， 仍 然 维 持 所 用 表示 方 
式 的 不 确定 性 。 如 果 要 在 同一 个 系统 里 包含 这 两 种 不 同 表示 形式 ， 那 么 就 需要 有 一 种 方式 ， 将 
极 坐 标 形式 的 数据 与 直角 坐标 形式 的 数据 区 分 开 。 否 则 的 话 ， 如 果 现 在 要 找 出 对 偶 (3, 4) 的 
magnitude， 我 们 将 无 法 知道 答案 是 5 (将 数据 解释 为 直角 坐标 表示 形式 ) 还 是 3 (将 数据 解 
释 为 极 坐标 表示 )。 完 成 这 种 区 分 的 一 种 方式 ， 就 是 在 每 个 复数 里 包含 一 个 类 型 标志 部 分 一 
用 符号 rectangular 或 者 polar 。 比 后 如 果 我 们 需要 操作 一 个 复数 ， 借助 于 这 丫 标志 就 可 以 
确定 应 该 使 用 的 选择 函数 了 。 

为 了 能 对 带 标志 数据 进行 各 种 操作 ， 我 们 将 假定 有 过 程 tyPe-~ -tag 和 contenks ， 它 们 
分 别 从 数据 对 象 中 提取 出 类 型 标志 和 实际 内 容 (对 于 复数 的 情况 ， 其 中 的 极 坐 标 或 者 直角 坐 
标 ) 。 还 要 假定 有 一 个 过 程 attach-tag ， 它 以 一 个 标志 和 实际 内 容 为 参数 ， 生成 出 一 个 带 标 
志 的 数据 对 象 。 实 现 这 些 的 直接 方式 就 是 采用 普通 的 表 结构 ; 


(define (attach-tag type-tag contents) 
(cons type-tag contents)) 


(define (type-tag datum) 
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(if (pair? datum) 
(car datum) 
(error "Bad tagged datum -- TYPE-TAG" datum) )) 


(define (contents datum) 
(if (pair? datum) 
(cdr datum) 
(error "Bad tagged datum -- CONTENTS" datum) ) ) 


利用 这 些 过 程 ， 我 们 就 可 以 定义 出 谓词 rectangular? 和 polar?， 它 们 分 别 辨识 直角 坐标 
的 和 极 坐 标的 复数 : 
(define (rectangular? z) 
(eq? (type-tag z) rectangular) ) 


(define (polar? z) 
(eq? (type-tag z) ’polar)) 


有 了 类 型 标志 之 后 ，Ben 和 Alyssa 现 在 就 可 以 修改 自己 的 代码 ， 使 他 们 的 两 种 不 同 表示 能 
够 共存 于 同一 个 系统 中 了 。 当 Ben 构 造 一 个 复数 时 ， 总 为 它 加 上 标志 ， 说 明 采 用 的 是 直角 坐 
标 ， 而 当 Alyssa 构 造 复 数 时 ， 总 将 其 标志 设置 为 极 坐标 。 此 外 ，Ben 和 Alyssa 还 必须 保证 他 们 
所 用 的 过 程 名 并 不 冲突 。 保 证 这 一 点 的 一 种 方式 是 ，Ben 总 为 在 他 的 表示 上 操作 的 过 程 名 字 加 
ja rectangular, ， 而 Alyssa 为 她 的 过 程 名 加 上 后 级 polar 。 这 里 是 Ben 根 据 2.4.1 节 修改 
后 的 直角 坐标 表示 : 


(define (real~part-rectangular z) (car z)) 
(define (imag-part-rectangular z) (cdr z)) 


(define (magnitude-rectangular z) 
(sqrt (+ (square (real-part-rectangular z)) 
(square (imag-part-rectangular z))))) 


(define (angle-rectangular z) 
(atan (imag-part-rectangular z) 
(real-part-rectangular z))) 


(define (make-from-real-imag-rectangular x y) 
(attach-tag ’rectangular (cons x y))) 


(define (make-from-mag~ang-rectangular r a) 
(attach-tag ’rectangular 
(cons (* r (cos a)) (* r (sin a))))) 


下 面 是 修改 后 的 极 坐 标 表示 : 
(define (real-part-polar z) 
(* ,(magnitude-polar z) (cos (angle-polar z)))) 


(define (imag-part-polar z) 
(* (magnitude-polar z) (sin (angle-polar z)))) 


(define (magnitude-polar z) (car z)) 
(define (angle-polar z) (cdr z)) 


(define (make-from-real-imag-polar x y) 
(attach-tag "polar 
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(cons (sqrt (+ (Square x) (square y))) 
(atan y X)))) 


(define (make-from-mag-ang-polar r a) 
(attach-tag ‘polar (cons r a))) 


每 个 通用 型 选择 函数 都 需要 实现 为 这 样 的 过 程 ， 它 首先 检查 参数 的 标志 ， 而 后 去 调用 处 
理 该 类 数据 的 适当 过 程 。 例 如 ， 为 了 得 到 一 个 复数 的 实 部 ，real-~part 需 要 通过 检查 ， 设 法 
确定 是 去 使 用 Ben 的 real-part-rectangular ,还 是 所 用 Alyssa 的 real-part-polar。 
在 这 两 种 情况 下 ， 我 们 都 用 contents 提 取出 原始 的 无 标志 数据 ， 并 将 它 送 给 所 需 的 直角 坐 
标 过 程 或 者 极 坐 标 过 程 : 


(define (real-part z) 
(cond ((rectangular? z) 
(veal-part-rectangular (contents z))) 
((polar? z) 
(rveal-part-polar (contents z))) 
(else (error "Unknown type -~ REAL-PART" z)))) 


(define (imag-part z) 
(cond ((rectangular? 2) 
(imag-part-rectangular (contents z))) 


( (polar? z) 
(imag-part-polar (contents z))) 
(else (error "Unknown type -- IMAG-PART" z)))) 


(define (magnitude 2) 
(cond ((rectangular? 2z) 
(magnitude-rectangular (contents z))) 


( (polar? z) 
(magnitude-polar (contents z))) 
(else (error "Unknown type -- MAGNITUDE" 2)))) 


(define (angle z) 
(cond ((rectangular? z) 
(angle-rectangular (contents z))) 
( (polar? z} 
(angle-polar (contents z))) 
(else (error "Unknown type -- ANGLE" 2)))) 


在 实现 复数 算术 运算 时 ， 我 们 仍然 可 以 采用 取 自 2.4.1 节 的 同样 过 程 add-complex、 
sub-complex. mul-complex 和 div-complex, 因为 它们 所 调用 的 选择 函数 现在 都 是 通 
用 型 的 ， 对 任何 表示 都 能 工作 。 例 如 ， 过 程 add-complex 仍 然 是 : | 


(define (add-complex zi 22) 
(make-from-real-imag (+ (real-part zł) (real-part 22)) 
(+ (imag-part 21) (imag-part 22)))) 
最 后 ， 我 们 还 必须 选择 是 采用 Ben 的 表示 还 是 Alyssa 的 表示 构造 复数 。 一 种 合理 选择 是 ， 
在 手头 有 实 部 和 虚 部 时 采用 直角 坐标 表示 ， 有 模 和 幅 角 时 就 采用 极 坐标 表示 : 
(define (make-from-real-imag x y) ` 


(make-from-real-imag-rectangular x y)) 
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(define (make-from-mag-ang r a) 
(make-from-mag-ang-polar r a)) 


这 样 得 到 的 复数 系统 所 具有 的 结构 如 图 2-21 所 示 。 这 一 系统 已 经 分 解 为 三 个 相对 独立 的 
部 分 : 复数 算术 运算 、Alyssa 的 极 坐 标 实现 和 Ben 的 直角 坐标 实现 。 极 坐标 或 直角 坐标 的 实现 
可 以 是 Ben 和 Alyssa 独 立 工作 写 出 的 东西 ， 这 两 部 分 又 被 第 三 个 程序 员 作为 基础 表示 ， 用 于 在 
抽象 构造 函数 和 选择 函数 界面 之 上 实现 各 种 复数 算术 过 程 。 


使 用 复数 的 程序 


add-complex sub-complex mul-complex div-complex 


复数 算术 包 


imag-part 


real-part 


magnitude angle 


直角 坐标 表示 


极 坐标 表示 


表 结构 和 基本 机 器 算术 
图 2-21 通用 型 复数 算术 系统 的 结构 


因为 每 个 数据 对 象 都 以 其 类 型 作为 标志 ， 选 择 函数 就 能 够 在 不 同 的 数据 上 以 一 种 通用 的 
方式 操作 。 也 就 是 说 ， 每 个 选择 函数 的 定义 行为 依赖 于 它 操作 其 上 的 特定 的 数据 类 型 。 请 注 
意 这 里 建立 不 同 表示 之 间 的 界面 的 一 般 性 机 制 ， 在 一 种 给 定 的 表示 实现 中 〈 例 如 Alyssa 的 极 
坐标 包 ) ， 复 数 是 一 种 无 类 型 的 对 偶 ( 模 , 幅 角 ) 。 当 通用 型 选择 函数 对 一 个 POlar 类 型 的 复数 
进行 操作 时 ， 它 会 剥 去 标志 并 将 相应 内 容 传递 给 Alyssa 的 代码 。 与 此 相对 应 ， 当 Alyssa 去 构造 
一 个 供 一 般 性 使 用 的 复数 时 ， 她 也 为 其 加 上 类 型 标志 ， 使 这 个 数据 对 象 可 以 为 高 层 过 程 所 识 
别 。 在 将 数据 对 象 从 一 个 层次 传 到 另 一 层次 的 过 程 中 ， 这 种 剥 去 和 加 上 标志 的 规范 方式 可 以 
成 为 一 种 重要 的 组 织 策略 ， 正 如 我 们 将 在 2.5 节 中 看 到 的 那样 。 


2.4.3 数据 导向 的 程序 设计 和 可 加 性 


检查 一 个 数据 项 的 类 型 ， 并 据 此 去 调用 某 个 适当 过 程 称 为 基于 类 型 的 分 派 。 在 系统 设计 中 ， 
这 是 一 种 获得 模块 性 的 强 有 力 策略 。 而 在 另 一 方面 ， 像 2.4.2 节 那样 实现 的 分 派 有 两 个 显著 的 弱 
点 。 第 一 个 弱点 是 ， 其 中 的 这 些 通用 型 界面 过 程 (real-part, imag-part, magnitude 
和 angle) 必须 知道 所 有 的 不 同 表示 。 举 例 来 说 ， 假 定 现在 希望 能 为 前 面 的 复数 系统 增加 另 一 
种 表示 ， 我 们 就 必须 将 这 一 新 表示 方式 标识 为 一 种 新 类 型 ， 而 且 要 在 每 个 通用 界面 过 程 里 增加 
一 个 子 句 ， 检 查 这 一 新 类 型 ， 并 对 这 种 表示 形式 使 用 适当 的 选择 函数 。 

这 一 技 术 还 有 另 一 个 弱点 。 即 使 这 些 独立 的 表示 形式 可 以 分 别 设计 ， 我 们 也 必须 保证 在 
整个 系统 里 不 存在 两 个 名 字 相 同 的 过 程 。 正 因为 这 一 原因 ，Ben 和 Alyssa 必 须 去 修改 原来 在 
2.4.1 节 中 给 出 的 那些 过 程 的 名 字 。 

位 于 这 两 个 弱点 之 下 的 基础 问题 是 ， 上 面 这 种 实现 通用 型 界面 的 技术 不 具有 可 加 性 。 在 
每 次 增加 一 种 新 表示 形式 时 ， 实 现 通用 选择 函数 的 人 都 必须 修改 他 们 的 过 程 ， 而 那些 做 独立 
表示 的 界面 的 人 也 必须 修改 其 代码 ， 以 避免 名 字 冲 突 问题 。 在 做 这 些 事情 时 ， 所 有 修改 都 必 
须 直 接 对 代码 去 做 ,而 且 必须 准确 无 误 。 这 当然 会 带 来 极 大 的 不 便 ， 而 且 还 很 容易 引进 错误 。 
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对 于 上 面 这 样 的 复数 系统 ， 这 种 修改 还 不 是 什么 大 问题 。 但 如 果 假 定 现在 需要 处 理 的 不 是 复 
数 的 两 种 表示 形式 ， 而 是 几 百 种 不 同 表示 形式 ， 假 定 在 抽象 数据 界面 上 有 许 许多 多 需要 维护 
的 通用 型 选择 函数 ， 再 假定 (事实 上 ) 没有 一 个 程序 员 了 解 所 有 的 界面 过 程 和 表示 形式 ， 情 
况 又 会 怎样 呢 ? 在 例如 大 规模 的 数据 库 管 理 系统 中 ， 这 一 问题 是 现实 存在 ， 且 必须 去 面 对 的 。 

现在 我 们 需要 的 是 一 种 能 够 将 系统 设计 进一步 模块 化 的 方法 。 一 种 称 为 数据 导向 的 程序 
设计 的 编程 技术 提供 了 这 种 能 力 。 为 了 理解 数据 导向 的 程序 设计 如 何 工作 ， 我 们 首先 应 该 看 
Bl, 在 需要 处 理 的 是 针对 不 同类 型 的 一 集 公共 通用 型 操作 时 ， 事 实 上 , 我 们 正 是 在 处 理 一 个 
二 维 表格 ， 其 中 的 一 个 维 上 包含 着 所 有 的 可 能 操作 ， 另 一 个 维 就 是 所 有 的 可 能 类 型 。 表 格 中 
的 项 目 是 一 些 过 程 ， 它 们 针对 作为 参数 的 每 个 类 型 实现 每 一 个 操作 。 在 前 一 节 中 开发 的 复数 
系统 里 ， 操 作 名 字 、 数 据 类 型 和 实际 过 程 之 间 的 对 应 关系 散布 在 各 个 通用 界面 过 程 的 各 个 条 
件 子 句 里 ， 我 们 也 可 以 将 同样 的 信息 组 织 为 一 个 表格 ， 如 图 2-22 所 示 。 


类 型 


Rectangular 


real-part | real-part-polar real-part-rectangular 


imag-part | imag-part-polar imag-part-rectangular 


操作 


magnitude |magnitude-polar magnitude-rectangular 


angle angle-polar angle-rectangular 


图 2-22 复数 系统 的 操作 表 


数据 导向 的 程序 设计 就 是 一 种 使 程序 能 直接 利用 这 种 表格 工作 的 程序 设计 技术 。 在 我 们 
前 面 的 实现 里 ， 是 采用 一 集 过 程 作为 复数 算术 与 两 个 表示 包 之 间 的 界面 , -并 让 这 些 过 程 中 的 
每 一 个 去 做 基于 类 型 的 显 式 分 派 。 下 面 我 们 要 把 这 一 界面 实现 为 一 个 过 程 ， 由 它 用 操作 名 和 
参数 类 型 的 组 合 到 表格 中 查找 ， 以 便 找 出 应 该 调用 的 适当 过 程 ， 并 将 这 一 过 程 应 用 于 参数 的 
AA. 。 如 果 能 做 到 这 些 ， 再 把 一 种 新 的 表示 包 加 入 系统 里 ， 我 们 就 不 需要 修改 任何 现存 的 过 
程 ， 而 只 要 在 这 个 表格 里 添加 一 些 新 的 项 目 即 可 。 

为 了 实现 这 一 计划 ， 现 在 假定 有 两 个 过 程 Put 和 get， 用 于 处 理 这 种 操作 -类 型 表格 ， 


* (put <op> <type> <item>) 


将 项 <item> 加 入 表格 中 ， 以 <op> 和 <type> 作 为 这 个 表 项 的 索引 。 

。 (get <op> <type>) 

在 表 中 查找 与 <op> 和 <type> 对 应 的 项 ， 如 果 找 到 就 返回 找到 的 项 ， 否 则 就 返回 假 。 

从 现在 起 ， 我 们 将 假定 put 和 get 已 经 包含 在 所 用 的 语言 里 。 在 第 3 章 里 (3.3.3 节 ， 练 习 
3.24) 可 以 看 到 如 何 实现 这 些 函 数 ， 以 及 其 他 操作 表格 的 过 程 。 

下 面 我 们 要 说 明 ， 这 种 数据 导向 的 程序 设计 可 以 如 何 用 于 复数 系统 。 在 开发 了 直角 坐标 
表示 时 ，Ben 完 全 按 他 原来 所 做 的 那样 实现 了 自己 的 代码 ， 他 定义 了 一 组 过 程 或 者 说 一 个 程序 
包 ， 并 通过 向 表格 中 加 入 一 些 项 的 方式 ， 告 诉 系 统 如 何 去 操 作 直 角 坐 标 形式 表示 的 数 ， 这 样 
就 建立 起 了 与 系统 其 他 部 分 的 界面 。 完 成 此 事 的 方式 就 是 调用 下 面 的 过 程 : 


(define (install-rectangular-package) 


;; internal procedures 
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(define (real-part z) (car z)) 
(define (imag-part z) (cdr z)) 
(define (make-from-real-imag x y) (cons x y)) 
(define (magnitude Zz) 

(sqrt (+ (square (real-part z)) 

(square (imag-part z))))) 

(define (angle z) 

(atan (imag-part z) (real-part z))) 
(define (make-from-mag-ang r a) 

(cons (* r (cos a)) (* r (sin a)))) 


;; interface to the rest of the system 
(define (tag x) (attach-tag ‘rectangular x)) 
(put "real-part "(rectangular) real~part) 
(put “imag-part ’(rectangular) imag-part) 
(put ‘magnitude ’(rectangular) magnitude) 
(put ’angle ‘(rectangular) angle) 
(put ’make-from-real-imag ’rectangular 
(lambda (x y) (tag (make-from~real-imag x y)))) 
(put ’make-from-mag-ang ’rectangular 
(lambda (r a) (tag (make-from-mag-ang r a))})) 
*done) 


请 注意 ， 这 里 的 所 有 内 部 过 程 ， 与 2.4.1 节 里 Ben 在 自己 独立 工作 中 写 出 的 过 程 完全 一 样 ， 
在 将 它们 与 系统 的 其 他 部 分 建立 联系 时 ， 也 不 需要 做 任何 修改 。 进 一 步 说 ， 由 于 这 些 过 程 定 
义 都 是 上 述 安装 过 程 内 部 的 东西 ，Ben 完 全 不 必 担 心 它们 的 名 字 会 与 直角 坐标 程序 包 外 面 的 其 
他 过 程 的 名 字 相 互 冲 突 。 为 了 能 与 系统 里 的 其 他 部 分 建立 起 联系 ，Ben 将 他 的 real-Part 过 
程 安装 在 操作 名 字 real~part 和 类 型 (rectangular) 之 下 ， 其 他 选择 函数 的 情况 也 都 与 
此 类 似 "。 这 一 界面 还 定义 了 提供 给 外 部 系统 的 构造 函数 ”， 它 们 也 与 Ben 自己 定义 的 构造 函 
数 一 样 ， 只 是 其 中 还 需要 完成 添加 标志 的 工作 。 
Alyssa 的 极 坐标 包 与 此 类 似 : 
(define (install-polar~package) 
;; internal procedures ; 
(define (magnitude z) (car 2z)) 
(define (angle z) (cdr z)) 
(define (make-from-mag-ang r a) (cons r a)) 
(define (real-part z) 
(* (magnitude z) (cos (angle z)))) 
(define (imag-part zy 
(* (magnitude z) (sin (angle 2z)))) 
(define (make-from-real-imag x y) . 
(cons (sqrt (+ (square x) (square y))) 
(atan y X) ) ) 


;; interface to the rest of the system 
(define (tag x) (attach-tag "polar x)) 


ni 这 里 采用 的 是 表 (rectangular) 而 不 是 符号 rectangular ， 以 便 能 允许 某 些 带 有 多 个 参数 ， 而 且 这 些 


参数 又 并 非 都 是 同一 类 型 的 操作 。 
u2 这 里 安装 的 构造 函数 所 用 的 类 型 不 必 是 表 ， 因 为 每 个 构造 函数 总 是 只 用 于 做 出 某 个 特定 类 型 的 对 象 。 
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(put ’real-part ‘(polar) real-part) 
(put ’imag-part *(polar) imag-part) 
(put ’magnitude ’(polar) magnitude) 
(put "angle ‘(polar) angle) 
(put ’make-from-real-imag ‘polar 
(lambda (x y) (tag (make-from-real-imag x y)))) 
(put *’make-from-mag-ang “Polar 
(lambda {r a) (tag (make-from-mag-ang r a)))) 
"done) 
虽然 Ben 和 Alyssa 两 个 人 仍然 使 用 着 他 们 原来 的 过 程 定 义 ， 这 些 过 程 也 有 着 同样 的 名 字 
(例如 zeal-pazt)， 但 对 于 其 他 过 程 而 言 ， 这 些 定义 都 是 内 部 的 《参见 1.1.8 节 )， 所 以 在 这 
里 不 会 出 现 名字 冲 突 问题 。 
复数 算术 的 选择 函数 通过 一 个 通用 的 名 为 apPIY-geneIic 的 “操作 ”过 程 访 问 有 关 表 
格 ， 这 个 过 程 将 通用 型 操作 应 用 于 一 些 参 数 。apPIY-generic 在 表格 中 用 操作 名 和 参数 类 
型 查找 ， 如 果 找 到 ， 就 去 应 用 查找 中 得 到 的 过 程 "2， 
(define (apply-generic op . args) 
(let ((type-tags (map type-tag args))) 
(let ((proc (get op type-tags) )) 
(if proc 
(apply proc (map contents args)) 


(error 
“No method for these types -~ APPLY- GENERIC" 


(list op type-tags)))))) 

利用 apP1Y-generic， 各 种 通用 型 选择 函数 可 以 定义 如 下 : 

(define (real-part z) (apply-generic *real-part 2z)) 

(define (imag-part z) (apply-generic ’imag-part 2)) 

(define (magnitude z) (apply-generic “magnitude z)) ， 

(define (angle z) (apply-generic ‘angle z)) 
请 注意 ， 如 果 要 将 一 个 新 表示 形式 加 入 这 个 系统 ， 上 述 这 些 都 完全 不 必修 改 。 

我 们 同样 可 以 从 表 中 提取 出 构造 函数 ， 用 到 包 之 外 的 程序 中 ， 从 实 部 和 呀 部 或 者 模 和 幅 
角 构造 出 复数 来 。 就 像 在 2.4.2 节 中 那样 ， 当 我 们 有 的 是 实 部 和 起 部 时 就 构造 直角 坐标 表示 的 


复数 ， 有 模 和 幅 角 时 就 构造 极 坐 标的 数 : 
(define (make-from-real-imag x y) 
((get ’make-from-real-imag ’rectangular) x y)) 
(define (make-from-mag-ang r a) 
((get *make-from-mag-ang ’polar) r a)) 


练习 2.73 ”2.3.2 节 描述 了 一 个 执行 符号 求 导 的 程序 : 


(define (deriv exp var) 
(cond ((number? exp) 0) 


"3 apply-generic (ti 7 2212.20 PHRMA BIC, A AA AER SR RT RET. E 
apply-generic 里 ，op 将 取得 apPpJY-~generic 的 第 一 个 参数 的 值 MAIS 的 值 是 其 余 参 数 的 表 。 
app1y-generic 还 使 用 了 基本 过 程 apP1y， 这 一 过 程 需要 两 个 参数 、 一 个 过 程 和 一 个 表 。apP1y 将 应 用 这 
一 过 程 ， 用 表 的 元 素 作为 其 参数 。 例 如 (apply+ (list 1 2 3 4)) 的 结果 是 10。 
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((variable? exp) (if (same~variable? exp var) 1 0)) 
( (sum? exp) ` 
(make-sum (deriv (addend exp) var) 
(deriv (augend exp) var))} 
((product? exp) 
(make-sum 
(make-product (multiplier exp) 
(deriv (multiplicand exp) var)) 
(make-product (deriv (multiplier exp) var) 
(multiplicand exp)))) 
< 更 多 规则 可 以 加 在 这 里 > 
{else (error “unknown expression type -~ DERIV" exp)))) 
可 以 认为 ， 这 个 程序 是 在 执行 一 种 基于 被 求 导 表达 式 类 型 的 分 派 工作 。 在 这 里 ， 数 据 的 “类 
型 标志 ”就 是 代数 运算 符 〈 例 如 + )， 需 要 执行 的 操作 是 aeriv 。 我 们 也 可 以 将 这 一 程序 变换 
到 数据 导向 的 风格 ， 将 基本 求 导 过 程 重新 写成 ， 
(define (deriv exp var) 
(cond ((number? exp) 0) 
((variable? exp) (if (same-variable? exp var) 1 0)) 
(else ((get ‘deriv (operator exp)) (operands exp) 
var)))) 


(define (operator exp) (car exp) ) 


{define (operands exp) (cdr exp)) 


a) 请 解释 上 面 究竟 做 了 些 什么 。 为 什么 我 们 无 法 将 相近 的 谓词 number? 和 same~variab1e3? 
也 加 入 数据 导向 分 派 中 ? 

b) 请 写 出 针对 和 式 与 积 式 的 求 导 过 程 ， 并 把 它们 安装 到 表格 里 ， 以 便 上 面 程序 使 用 所 需 
要 的 辅助 性 代码 。 

c) 请 选择 一 些 你 希望 包括 的 求 导 规则 ， 例 如 对 乘 宕 (练习 2.56) 求 导 等 等 ， 并 将 它们 安 
装 到 这 一 数据 导向 的 系统 里 。 

d) 在 这 一 简单 的 代数 运算 器 中 ， 表 达 式 的 类 型 就 是 构造 起 它们 来 的 代数 运算 符 。 假 定 我 
们 想 以 另 一 种 相反 的 方式 做 素 引 ， 使 得 qeriv 里 完成 分 派 的 代码 行 像 下 面 这 样 : 

((get (operator exp) ‘deriv) (operands exp) var) 
求 导 系统 里 还 需要 做 哪些 相应 的 改动 ? 

练习 2.74 Insatiable Enterprise 公 司 是 一 个 高 度 分 散 经 营 的 联合 公司 ， 由 大 量 分 布 在 世界 
各 地 的 分 支 机 构 组 成 。 公 司 的 计算 机 设施 已 经 通过 一 种 非常 巧妙 的 网 络 连 接 模 式 联 为 一 体 ， 
它 使 得 从 任何 一 个 用 户 的 角度 看 ， 整 个 网 络 就 像 是 一 台 计 算 机 。 在 第 一 次 试图 利用 网 络 能 力 
从 各 分 支 机 构 的 文件 中 提取 管理 信息 时 ，Insatiable 的 总 经 理 非常 诅 形 地 发 现 ， 虽 然 所 有 分 支 
机 构 的 文件 都 被 实现 为 Scheme 的 数据 结构 ， 但 是 各 分 支 机 构 所 用 的 数据 结构 却 各 不 相同 。 她 
马上 招集 了 各 分 支 机 构 的 经 理会 议 ， 希 望 寻找 一 种 策略 集成 起 这 些 文件 ， 以 便 在 维持 各 个 分 
支 机 构 中 现存 独立 工作 方式 的 同时 ， 又 能 满足 公司 总 部 管理 的 需要 。 

请 说 明 这 种 策略 可 以 如 何 通过 数据 导向 的 程序 设计 技术 实现 。 作 为 例子 ， 假 定 每 个 分 支 
机 构 的 人 事 记录 都 存放 在 一 个 独立 文件 里 ， 其 中 包含 了 一 集 以 雇员 名 字 作 为 键 值 的 记录 。 而 
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有 关 集 合 的 结构 却 由 于 分 支 机 构 的 不 同 而 不 同 。 进 一 步 说 ， 某 个 雇员 的 记录 本 身 又 是 一 个 集 
合 (各 分 支 机 构 所 用 的 结构 也 不 同 )， 其 中 所 包含 的 信息 也 在 一 些 作 为 键 值 的 标识 符 之 下 ， 例 
如 address 和 salary。 特 别 是 考虑 如 下 问题 : ‘ 

a) 请 为 公司 总 部 实现 一 个 get-record 过 程 ， 使 它 能 从 一 个 特定 的 人 事 文 件 里 提取 出 一 
个 特定 的 雇员 记录 。 这 一 过 程 应 该 能 应 用 于 任何 分 支 机 构 的 文件 。 请 说 明 各 个 独立 分 支 机 构 
的 文件 应 具有 怎样 的 结构 。 特 别 是 考虑 ， 它 们 必须 提供 哪些 类 型 信息 ? 

b 请 为 公司 总 部 实现 一 个 get-salary 过 程 ， 它 能 从 任何 分 支 机 构 的 人 事 文件 中 取得 某 

给 定 亡 员 的 薪金 信息 。 为 了 使 这 一 操作 能 够 工作 ， 这 些 记录 应 具有 怎样 的 结构 ? 

c) 请 为 公司 总 部 实现 一 个 过 程 find-~employee-zecord ， 该 过 程 需要 针对 一 个 特定 雇 
员 名 ， 在 所 有 分 支 机 构 的 文件 去 查找 对 应 的 记录 ， 并 返回 找到 的 记录 。 假 定 这 一 过 程 的 参数 
是 一 个 雇员 名 和 所 有 分 支 文 件 的 表 。 

d) 当 Insatiable 购 并 新 公司 后 ， 要 将 新 的 人 事 文件 结合 到 系统 中 ,，. 必 须 做 哪些 修改 ? 


消息 传递 

在 数据 导向 的 程序 设计 里 ， 最 关键 的 想法 就 是 通过 显 式 处 理 操作 - 类 型 表格 (例如 图 2- 
22 里 的 表格 ) 的 方式 ， 管 理 程 序 中 的 各 种 通用 型 操作 。 我 们 在 2.4.2 节 中 所 用 的 程序 设计 风格 ， 
是 一 种 基于 类 型 进行 分 派 的 组 织 方式 ， 其 中 让 每 个 操作 管理 自己 的 分 派 。 从 效果 上 看 ， 这 种 
方式 就 是 将 操作 一 类 型 表格 分 解 为 一 行 一 行 ， 每 个 通用 型 过 程 表示 表格 中 的 一 行 。 

另 一 种 实现 策略 是 将 这 一 表格 按 列 进行 分 解 ， 不 是 采用 一 批 “ 智 能 操作 ”去 基于 数据 类 
型 进行 分 派 ， 而 是 采用 “智能 数据 对 象 " ， 让 它们 基于 操作 名 完成 所 需 的 分 派 工 作 。 如 果 我 们 
想 这 样 做 ， 所 需要 做 的 就 是 做 出 一 种 安排 ， 将 每 一 个 数据 对 象 〈 例 如 一 个 采用 直角 坐标 表示 
的 复数 ) 表示 为 一 个 过 程 。 它 以 操作 的 名 字 作 为 输入 ， 能 够 去 执行 指定 的 操作 。 按 照 这 种 方 
式 ，make-from-real~imag 应 该 写成 下 面 样子 : 


(define. (make-from-real-imag x y) 
{define (dispatch op) 
(cond ((eq? op ’real-part) x) 
((eq? op ’imag-part) y) 
((eq? op ’magnitude) 
(sqrt (+ (square x) (square y)))) 

((eq? op ’angle) (atan y x)) 
(else 
(error "Unknown. op -- MAKE- FROM-REAL-IMAG" op)))) 


dispatch) 

与 之 对 应 的 apP1Y- -generic 过 程 应 访 对 其 参数 应 用 一 个 通用 型 操作 ， 此 时 它 只 需要 简单 地 
将 操作 名 馈 入 该 数据 对 象 ， 并 让 那个 对 象 去 完成 工作 2 :， _ 

(define (apply~generic op arg) (arg op)) 
请 注意 ，make-from-real-imag 返 回 的 值 是 一 个 过 程 -一 它 内 部 的 dzispatch 过 程 xt 
就 是 当 apP1Y-generic 要 求 执行 一 个 操作 时 所 调用 的 过 程 。 

这 种 风格 的 程序 设计 称 为 消息 传递 ， 这 一 名 字源 自 将 数据 对 象 设 想 为 一 个 实体 ， 它 以 
“消息 ”的 方式 接收 到 所 需 操作 的 名 字 。 在 2.1.3 节 中 我 们 已 经 看 到 过 一 个 消息 传递 的 例子 ， 在 


14 这 种 组 织 方式 的 一 个 限制 是 只 允许 一 个 参数 的 通用 型 过 程 。 
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那里 看 到 的 是 如 何 用 没有 数据 对 象 而 只 有 过 程 的 方式 定义 cons 、car 和 cdr 。 现 在 我 们 看 到 
的 是 ， 消 息 传递 并 不 是 一 种 数学 机 巧 ， 而 是 一 种 有 价值 的 技术 ， 可 以 用 于 组 织带 有 通用 型 操 
作 的 系统 。 在 本 章 剩 下 的 部 分 里， 我 们 将 要 继续 使 用 数据 导向 的 程序 设计 (而 不 是 用 消息 传 
递 )， 进 一 步 讨 论 通 用 型 算术 运算 的 问题 。 在 第 3 章 里 我 们 将 会 回 到 消息 传递 ， 并 在 那里 看 到 
它 可 能 怎样 成 为 构造 模拟 程序 的 强 有 力 工具 。 

练习 2.75 请 用 消息 传递 的 风格 实现 构造 函数 nake-from-mag-~ang。 这 一 过 程 应 该 与 
上 面 给 出 的 nake-from-real-imag 过 程 类 似 。 

练习 2.76 ”一 个 带 有 通用 型 操作 的 大 型 系统 可 能 不 断 演化 ， 在 演化 中 常 需要 加 入 新 的 数 
据 对 象 类 型 或 者 新 的 操作 。 对 于 上 面 提 出 的 三 种 策略 一 一 带 有 显 式 分 派 的 通用 型 操作 ， 数 据 
导向 的 风格 ， 以 及 消息 传递 的 风格 一 一 请 描述 在 加 入 一 个 新 类 型 或 者 新 操作 时 ， 系 统 所 必须 
做 的 修改 。 哪 种 组 织 方 式 最 适合 那些 经 常 需 要 加 入 新 类 型 的 系统 ? 哪 种 组 织 方式 最 适合 那些 
经 常 需要 加 入 新 操作 的 系统 ? 


2.5 带 有 通用 型 操作 的 系统 


在 前 一 节 里 ， 我 们 看 到 了 如 何 去 设 计 一 个 系统 ， 使 其 中 的 数据 对 象 可 以 以 多 于 一 种 方式 
表示 。 这 里 的 关键 思想 就 是 通过 通用 型 界面 过 程 ， 将 描述 数据 操作 的 代码 连接 到 几 种 不 同 表 
示 上 。 现 在 我 们 将 看 到 如 何 使 用 同样 的 思想 ， 不 但 定义 出 能 够 在 不 同 表示 上 的 通用 操作 ， 还 
能 定义 针对 不 同 参数 种 类 的 通用 型 操作 。 我 们 已 经 看 到 过 几 个 不 同 的 算术 运算 包 : 语言 内 部 
的 基本 算术 (+，- ，*，/)，2.1.1 节 的 有 理 数 算术 (add-rat, sub-rat, mul-rat, 
div-rat)， 以 及 2.4.3 节 里 实现 的 复数 算术 。 现 在 我 们 要 使 用 数据 导向 技术 构造 起 一 个 算术 
运算 包 ， 将 前 面 已 经 构造 出 的 所 有 算术 包 都 结合 进去 。 

图 2-23 展 示 了 我 们 将 要 构造 的 系统 的 结构 。 请 注意 其 中 的 各 抽象 屏障 。 从 某 些 使 用 “ 数 
值 ”的 人 的 观点 看 ， 在 这 里 只 存在 一 个 过 程 add ,无 论 提 供给 它 的 数 是 什么 。add 是 通用 型 界 
面 的 一 部 分 ， 这 一 界面 将 使 那些 使 用 数 的 程序 能 以 一 种 统一 的 方式 ， 访问 相互 分 离 的 常规 算 
术 、 有 理 数 算术 和 复数 算术 程序 包 。 任 何 独立 的 算术 程序 包 〈 例 如 复数 包 ) 本 身 也 可 能 通过 
通用 型 过 程 (例如 add~complex) 访问 ， 它 也 可 能 由 针对 不 同 表示 形式 设计 的 包 (直角 坐 


使 用 数 的 程序 
通用 型 算术 包 
add-rat sub-rat add-complex sub-complex 
mul-rat div-rat mul-complex div-complex 
有 理 数 算术 复数 算术 常规 算术 
直角 坐标 极 坐标 


表 结 构 和 基本 机 器 算术 
图 2-23 通用 型 算术 系统 
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标 表示 和 极 坐标 表示 ) 组 合 而 成 。 进 一 步 说 ,这 一 系统 具有 可 加 性 ， 这 样 ， 人 们 还 可 以 设计 
出 其 他 独立 的 算术 包 ， 并 将 其 组 合 到 这 一 通用 型 的 算术 系统 中 。 


2.5.1 通用 型 算术 运算 


设计 通用 型 算术 运算 的 工作 类 似 于 设计 通用 型 复数 运算 。 我 们 希望 (例如 ) 有 一 个 通用 
型 的 加 法 过 程 add ， 对 于 常规 的 数 ， 它 的 行为 就 像 常规 的 基本 加 法 + ， 对 于 有 理 数 ， 它 就 像 
add-rat， 对 于 复数 就 像 add-complex。 我 们 可 以 沿用 在 2.4.3 节 为 实现 复数 上 的 通用 选择 
函数 所 用 的 同样 策略 ， 去 实现 add 和 其 他 通用 算术 运算 。 下 面 将 为 每 种 数 附着 一 个 类 型 标志 ， 
以 便 通用 型 过 程 能 绢 根据 其 参数 的 类 型 完成 到 基 个 适用 的 程序 包 的 分 派 。 

通用 型 算术 过 程 的 定义 如 下 : i 


(define (add x y) (apply-generic ’add x y)) 
(define (sub x y) (apply-generic ‘sub x y)) 
(define (mul x y) (apply~generic ‘mul x y)) — 
(define (div x y) (apply-generic ‘div x y)) 


下 面 我 们 将 从 安装 处 理 常 规 数 〈 即 ， 语 言 中 基本 的 数 ) 的 包 开始 ， 对 这 种 数 采 用 的 标志 
是 符号 scheme-number 。 这 个 包 里 的 算术 运算 都 是 基本 算术 过 程 . (因此 不 需要 再 定义 过 程 
去 处 理 无 标志 的 数 )。 因 为 每 个 操作 都 有 两 个 参数 ， PLA AZE (scheme-number scheme- 
number) 作为 表格 中 的 键 值 去 安装 它们; 


(define (install-scheme-number-package) 
(define (tag x) 
(attach-tag ’scheme-number x) ) 
(put ’add ’(scheme-number scheme-number) 
(lambda (x y) (tag (+ x y)))) 
(put ’sub ’(scheme-number scheme-number) 
(lambda (x y) (tag (- x y)))) 
(put ’mul ’(scheme-number scheme-number ) 
(lambda (x y) (tag (* x y)))) 
(put ‘div *(scheme-number scheme-number ) 
* (lambda (x y) (tag (/ x y)))) 
(put ’make ’scheme-number 
(lambda (x) (tag *x))) 
"done) 


Scheme 数值 包 的 用 户 可 以 通过 下 面 过 程 ， 创 建 还 标志 的 常规 数 : 
(define (make-scheme-number n) 
((get ’make ’scheme-number) n)) 
现在 我 们 已 经 做 好 了 通用 型 算术 系统 的 框架 ， 可 以 将 新 的 数 类 型 加 入 其 中 了 。 下 面 是 一 
个 执行 有 理 数 算术 的 程序 包 。 请 注意 ， 由 于 具有 可 加 性 ， 我 们 可 以 直接 把 取 自 2.1.1 节 的 有 理 
数 代码 作为 这 个 程序 包 的 内 部 过 程 ， 完 全 不 必 做 任何 修改 : 
(define (install-rational-package) 
;; internal procedures 
(define (numer x) (car x)) 


(define (denom x) (cdr x)) 
(define (make-rat n d) 
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(let ((g (gcd n d))) 
(cons (/ n g) (/ dg)))) 
(define (add-rat x y) 
(make-rat (+ (* (numer x) (denom y)) 
(* (numer y) (denom x))) 
(* (denom x) (denom y)))) 
(define (sub-rat x y) 
(make-rat (- (* (numer x) (denom y)) 
(* (numer y) (denom x))) 
(* (denom x) (denom y)))) 
(define (mul-rat x y) 
(make-rat (* (numer x) (numer y)) 
(* (denom x) (denom y)))) 
(define (div-rat x y) 
(make-rat (* (numer x) (denom y)) 
(* (denom x) (numer y)))) 


z; interface to rest of the system 

(define (tag x) (attach-tag ‘rational x)) 
(put ‘add ‘(rational rational) 

(lambda (x y) (tag (add-rat x y)))) 
(put ‘sub ’(rational rational) 

(lambda (x y) (tag (sub-rat x y)))) 
(put ’mul ’(rational rational) 

(lambda (x y) (tag (mul-rat x y)))) 
(put ‘div ’(rational rational) 

(lambda (x y) (tag (div-rat x y)))) 


(put ’make ‘rational | 
(lambda (n d) (tag (make-rat n d)))) 
"done) 


(define (make-rational n d) 
((get "make ’rational) n d)) 


我 们 可 以 安装 上 另 一 个 处 理 复数 的 类 似 程序 包 ， 采 用 的 标志 是 complex。 在 创建 这 个 程 
序 包 时 ， 我 们 要 从 表格 里 抽取 出 操作 make-from-real-imag 和 make-from-mag-ang， 
它们 原来 分 别 定义 在 直角 坐标 和 极 坐 标 包 里 。 可 加 性 使 我 们 能 把 取 自 2.4.1 节 同样 的 add-~ 
complex, sub-complex, mul-complex 和 div-complex 过 程 用 作 内 部 操作 。 


(define (install-complex-package) 
;; imported procedures from rectangular and polar packages 
(define (make-from-real-imag x y) 
((get *make-from-real-imag ’rectangular) x y)) 
(define (make-from-mag-ang r a) 
((get ’make-from-mag-ang ’polar) r a)) 


;; internal procedures 
(define (add-complex 21 z2) 
(make-from-real-imag (+ (real-part zl) (real-part 22)) 
(+ (imag-part zl) (imag-part 22)))) 
(define (sub-complex zl 22) 
(make-from-real-imag (- (real-part zl) (real-part 22)) 
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(~ (imag-part zi) (imag-part 22)))) 
(define (mul-complex 21 z2) 
(make-from-mag-ang (* (magnitude zl) (magnitude 22)) 
(+ (angle zl) (angle 22)))) 
(define (div-complex z1 22) 
(make-from-mag-ang (/ (magnitude zl) (magnitude 2z2)) 
(- (angle zl) (angle 22)))) 


;; interface to rest of the system 
(define (tag z) (attach-tag ’complex z)) 
(put ’add ’(complex complex) _ 
(lambda (z1 22) (tag (add-complex zl 2z2)))) 
(put ’sub ’(complex complex) 
(lambda (zl 22) (tag (sub-complex zl 22)))) 
& (put ’mul (complex complex) 
(lambda (z1 22) (tag (mul-complex 21 22)))) 
(put ‘div *(complex complex) 
(lambda (z1 22) (tag (div-complex zl 22)))) 
(put ’make-~from-real-imag ‘complex 
(lambda (x y) (tag (make-from-real-imag x y)))) 
(put ’make-from-mag-ang ’complex 
(lambda (r a) (tag (make-from-mag-ang r-a)))) 
*done) . 
在 复数 包 之 外 的 程序 可 以 从 实 部 和 虚 部 出 发 构造 复数 ， 也 可 以 从 模 和 幅 角 出 发 。 请 注意 
这 里 如 何 将 原先 定义 在 直角 坐标 和 极 坐 标 包 里 的 集成 过 程 导 出 ， 放 入 复数 包 中 ， 又 如 何 从 这 
里 导出 送 给 外 面 的 世界 。 
(define (make-complex-from-real-imag x y) 
((get ’make-from-real-imag ‘complex) x y)) 


(define (make-complex-from-mag-ang r a) 
((get ‘’make-from-mag-ang ’complex) r a)) 


这 里 描述 的 是 一 个 具有 两 层 标志 的 系统 。 一 个 典型 的 复数 如 直角 坐标 表示 的 3 +41, WE 
的 表示 形式 如 图 2-24 所 示 。 外 层 标志 (complex) 用 于 将 这 个 数 引 导 到 复数 包 ， 一旦 进入 复 
数 包 ， 下 一 个 标志 (rectangular) 就 会 引导 这 个 数 进入 直角 坐标 表示 包 。 在 一 个 大 型 的 
复杂 系统 里 可 能 有 许多 层次 ， 每 层 与 下 一 层次 之 间 的 连接 都 借助 于 一 些 通 用 型 操作 。 当 一 个 
数据 对 象 被 “向 下 ”传输 时 ， 用 于 引导 它 进 入 适当 程序 包 的 最 外 层 标 志 被 剥 除 (通过 使 用 
contents)， 下 一 层次 的 标志 (如 果 有 的 话 ) 变 成 可 见 的 ， 并 将 被 用 于 下 一 次 分 派 。 


图 2-24 直角 坐标 形式 的 3 +4; 的 表示 
在 上 面 这 些 程序 包 里 ， 我 们 使 用 Jadd-rat、 add-complex 以 及 其 他 算术 过 程 ， 完 全 
按照 它们 原来 写 出 的 形式 。 一 旦 把 这 些 过 程 定义 为 不 同安 装 过 程 内 部 的 东西 ， 它 们 的 名 字 就 
没有 必要 再 相互 不 同 了 ， 可 以 在 两 个 包 中 都 简单 地 将 它们 命名 为 add sub, mulfidiv, 
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练习 2.77 Louis Reasoner 试 着 去 求 值 (magnitude z)， 其 中 的 z 就 是 图 2-24 里 的 那个 
对 象 。 令 他 吃惊 的 是 ， 从 apply-generic 出 来 的 不 是 5 而 是 一 个 错误 信息 ， 说 没 办 法 对 类 型 
(complex) 做 操作 magnitude。 他 将 这 次 交互 的 情况 给 Alyssa P. Hacker 看 ，Alyssa 说 “ 问 
题 出 在 没有 为 complex 数 定义 复数 选择 函数 ， 而 只 是 为 Polar 和 rectangular 数 定义 了 它 
们 。 你 需要 做 的 就 是 在 complex 包 里 加 入 下 面 这 些 东 西 ”: 

(put ’real-part ’(complex) real-part) 

(put ’imag-part ’(complex) imag-part) 

(put ‘magnitude ’ (complex) magnitude) 

(put ’angle ’(complex) angle) 
请 详细 说 明 为 什么 这 样 做 是 可 行 的 。 作 为 一 个 例子 ,请 考虑 表达 式 (magnitude z) 的 求 
值 过 程 ， 其 中 z 就 是 图 2-24 里 展示 的 那个 对 象 ， 请 追踪 一 下 这 一 求 值 过 程 中 的 所 有 函数 调用 。 
特别 是 看 看 apply-generic 被 调用 了 几 次 ?每 次 调用 中 分 派 的 是 哪个 过 程 ? 

练习 2.78 ” 包 scheme-number 里 的 内 部 过 程 几乎 什么 也 没 做 ， 只 不 过 是 去 调用 基本 过 
程 +、 一 等 等 。 直 接 使 用 语言 的 基本 过 程 当 然 是 不 可 能 的 ， 因 为 我 们 的 类 型 标志 系统 要 求 每 
个 数据 对 象 都 附加 一 个 类 型 。 然 而 ， 事 实 上 所 有 Lisp 实 现 都 有 自己 的 类 型 系统 ,使 用 在 系统 
实现 的 内 部 ， 基 本 谓词 symbo1l? 和 number? 等 用 于 确定 某 个 数据 对 象 是 否 具有 特定 的 类 型 。 
请 修改 2.4.2 节 中 type-tag、contents 和 attach-tag 的 定义 ， 使 我 们 的 通用 算术 系统 可 
以 利用 Scheme 的 内 部 类 型 系统 。 这 也 就 是 说 ， 修 改 后 的 系统 应 该 像 原来 一 样 工作 ， 除 了 其 中 
常规 的 数 直接 采用 Scheme 的 数 形式 ， 而 不 是 表示 为 一 个 car 部 分 是 符号 scheme-number 的 
序 对 。 

练习 2.79 ”请 定义 一 个 通用 型 相等 谓词 equ? ， 它 能 检查 两 个 数 是 否 相等 。 请 将 它 安装 到 
通用 算术 包 里 。 这 一 操作 应 该 能 处 理 常 规 的 数 、 有 理 数 和 复数 。 

练习 2.80 ”请 定义 一 个 通用 谓词 =zero? ， 检 查 其 参数 是 否 为 0， 并 将 它 安装 到 通用 算术 
包 里 。 这 一 操作 应 该 能 处 理 常 规 的 数 、 有 理 数 和 复数 。 


2.5.2 不 同类 型 数据 的 组 合 


前 面 已 经 看 到 了 如 何 定 义 出 一 个 统一 的 算术 系统 ， 其 中 包含 常规 的 数 、 复 数 和 有 理 数 ， 
以 及 我 们 希望 发 明 的 任何 其 他 数值 类 型 。 但 在 那里 也 忽略 了 一 个 重要 的 问题 。 我 们 至 今 定义 
的 所 有 运算 ， 都 把 不 同 数据 类 型 看 作 相互 完全 分 离 的 东西 ， 也 就 是 说 ， 这 里 有 几 个 完全 分 离 
的 程序 包 ， 它 们 分 别 完成 两 个 常规 的 数 ， 或 者 两 个 复数 的 加 法 。 我 们 至 今 还 没有 考虑 的 问题 
是 下 面 事实 : 定义 出 能 够 跨 过 类 型 界限 的 操作 也 很 有 意义 ， 璧 如 完成 一 个 复数 和 一 个 常规 数 
的 加 法 。 在 前 面 ， 我 们 一 直 繁 费 苗 心地 在 程序 的 各 个 部 分 之 间 引 进 了 屏障 ， 以 使 它们 能 够 分 
别 开 发 和 分 别 理解 。 现 在 却 又 要 引进 跨 类 型 的 操作 。 当 然 ， 我 们 必须 以 一 种 经 过 精心 考虑 的 
可 挖 方式 去 做 这 件 事 情 ， 以 使 我 们 在 支持 这 种 操作 的 同时 又 没有 严重 地 损害 模块 闻 的 分 界 。 

处 理 跨 类 型 操作 的 一 种 方式 ， 就 是 为 每 一 种 类 型 组 合 的 合法 运算 设计 一 个 特定 过 程 。 例 
如 ， 我 们 可 以 扩充 复数 包 ， 使 它 能 提供 一 个 过 程 用 于 加 起 一 个 复数 和 一 个 常规 的 数 ， 并 用 标 
£ (complex scheme-number ) 将 它 安装 到 表格 里 "2 ， 


;; to be included in the complex package 


NS 我 们 还 需要 另 一 个 几乎 相同 的 过 程 去 处 理 类 型 (scheme-number complex), 
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(define (add-complex-to-schemenum z x) 
(make-from-real-imag (+ (real-part z) x) 
(imag-part z))) 


(put ’add ’ (complex scheme-number ) 
(lambda (z x) (tag (add-complex-to-schemenum z x)))) 


这 一 技术 确实 可 以 用 ， 但 也 非常 麻烦 。 对 于 这 样 的 一 个 系统 ， 引 进 一 个 新 类 型 的 代价 就 
不 仅仅 需要 构造 出 针对 这 一 类 型 的 所 有 过 程 的 包 ， 还 需要 构造 并 安装 好 所 有 实现 跨 类 型 操作 
的 过 程 。 后 一 件 事 所 需要 的 代码 很 容易 就 会 超过 定义 类 型 本 身 所 需 的 那些 操作 。 这 种 方法 也 
损害 了 以 添加 方式 组 合 独立 开发 的 程序 包 的 能 力 ， 至 少 给 独立 程序 包 的 实现 者 增加 了 一 些 限 
制 ， 要 求 他 们 在 对 独立 程序 包工 作 时 ， 必 须 同 时 关注 其 他 的 程序 包 。 比 如 ， 在 上 面 例子 里 ， 
如 果 要 处 理 复数 和 常规 数 的 混合 运算 ， 将 其 看 作 复 数 包 的 责任 是 合理 的 。 然 而 ， 有 关 有 理 数 
和 复数 的 组 合 工作 却 存 在 许多 选择 ， 完 全 可 以 由 复数 包 、 有 理 数 包 ， 或 者 由 另外 的 ， 使 用 了 
从 前 面 两 个 包 中 取出 的 操作 的 第 三 个 包 完成 。 在 设计 包含 许多 程序 包 和 许多 跨 类 型 操作 的 系 
统 时 ， 要 想 规 划 好 一 套 统 一 的 策略 ， 分 清 各 种 包 之 间 的 责任 ， 很 容易 变 成 非常 复杂 的 任务 。 

强制 

最 一 般 的 情况 是 需要 处 理 针对 一 批 完全 无 关 的 类 型 的 一 批 完全 无 关 的 操作 ， 直 接 实现 跨 
类 型 操作 很 可 能 就 是 解决 问题 的 最 好 方式 了 ， 当 然 ， 这 样 做 起 来 确实 比较 麻烦 。 幸 运 的 是 ， 
我 们 常常 可 以 利用 潜藏 在 类 型 系统 之 中 的 一 些 额外 结构 ， 将 事情 做 得 更 好 些 。 不 同 的 数据 类 
型 通常 都 不 是 完全 相互 无 关 的 ， 常 常 存在 一 些 方式 ， 使 我 们 可 以 把 一 种 类 型 的 对 象 看 作 另 一 
种 类 型 的 对 象 。 这 种 过 程 就 称 为 强制 。 举 例 来 说 ， 如 果 现 在 需要 做 常规 数值 与 复数 的 混合 算 
术 ,我 们 就 可 以 将 常规 数值 看 成 是 虚 部 为 0 的 复数 。 这 样 就 把 问题 转换 为 两 个 复数 的 运算 问题 ， 
可 以 由 复数 包 以 正常 的 方式 处 理 了 。 

一 般 而 言 ， 要 实现 这 一 想法 ， 我 们 可 以 设计 出 一 些 强制 过 程 ， 它 们 能 把 一 个 类 型 的 对 象 
转换 到 另 一 类 型 的 等 价 对 象 。 下 面 是 一 个 典型 的 强制 过 程 ， 它 将 给 定 的 常规 数值 转换 为 一 个 
复数 ， 其 中 的 实 部 为 原来 的 数 而 虚 部 是 0 : 


(define (scheme-number->complex n) 
(make-complex-from-real-imag (contents n) 0)) 


我 们 将 这 些 强制 过 程 安装 到 一 个 特殊 的 强制 表格 中 ， 用 两 个 类 型 的 名 字 作 为 索引 : 


(put-coercion 'Scheme~number ’complex scheme-number->complex) 


(这 里 假定 了 存在 着 用 于 操纵 这 个 表格 的 put-coercion 和 get-coercion 过 程 .) 一 般 而 
言 ， 这 一 表格 里 的 某 些 格子 将 是 空 的 ， 因 为 将 任何 数据 对 象 转换 到 另 一 个 类 型 并 不 是 都 能 做 
的 。 例 如 并 不 存在 某 种 将 任意 复数 转换 为 常规 数值 的 方式 ， 因 此 ， 这 个 表格 中 就 不 应 包括 一 
般 性 的 complex->scheme-number 过 程 。 

一 旦 将 上 述 转换 表格 装配 好 ， 我 们 就 可 以 修改 2.4.3 节 的 app1Y-generic 过 程 ， 得 到 一 
种 处 理 强制 的 统一 方法 。 在 要 求 应 用 一 个 操作 时 ， 我 们 将 首先 检查 是 否 存在 针对 实际 参数 类 
型 的 操作 定义 ， 就 像 前 面 一 样 。 如 果 存 在 ， 那 么 就 将 任务 分 派 到 由 操作 — 类 型 表格 中 找 出 的 
相应 过 程 去 ， 否 则 就 去 做 强制 。 为 了 简化 讨论 ， 这 里 只 考虑 两 个 参数 的 情况 "^。 我 们 检查 强 


"6 有 关 推广 见 练习 2.82 。 
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制 表格 ， 查 看 其 中 第 一 个 参数 类 型 的 对 象 能 否 转换 到 第 二 个 参数 的 类 型 。 如 果 可 以 ， 那 就 对 
第 一 个 参数 做 强制 后 再 试验 操作 。 如 果 第 一 个 参数 类 型 的 对 象 不 能 强制 到 第 二 个 类 型 MA 
就 试验 另 一 种 方式 ， 看 看 能 否 从 第 二 个 参数 的 类 型 转换 到 第 一 个 参数 的 类 型 。 最 后 ， 如 果 不 
存在 从 一 个 类 型 到 另 一 类 型 的 强制 ， 那 么 就 只 能 放弃 了。 下面 是 这 个 过 程 : 
(define (apply~generic op . args) 
{let ((type-tags (map type-tag args))) 
(let ((proc (get op type-tags))) 
(if proc 
(apply proc (map contents args)) 
(if (= (length args) 2) 
(let ((typel (car type-tags) ) 
(type2 (cadr type~tags) ) 
(al (car args)) 
(a2 (cadr args))) 
(let ((t1l->t2 (get-coercion typel type2)) 
(t2->t1l (get-coercion type2 typel))) 
(cond (tl->t2 
(apply-generic op (tl->t2 al) a2)) 
(t2->t1 
(apply-generic op al (t2->ti a2))) 
(else 
(error "No method for these types" 
(list op type-tags)))))) | 
(error "No method for these types" 
(list op type-tags))))))) 


与 显 式 定义 的 跨 类 型 操作 相 比 ， 这 种 强制 模式 有 许多 优越 性 。 就 像 在 上 面 已 经 说 过 的 。 
虽然 我 们 仍然 需要 写 出 一 些 与 各 种 类 型 有 关 的 强制 过 程 (对 于 n 个 类 型 的 系统 可 能 需要 ew 个 过 
E), 但 是 却 只 需要 为 每 一 对 类 型 写 一 个 过 程 ， 而 不 是 为 每 对 类 型 和 每 个 通用 型 操作 写 一 个 过 
程 ""。 能 够 这 样 做 的 基础 就 是 ， 类 型 之 闻 的 适当 转换 只 依赖 于 类 型 本 身 ， 而 不 依赖 于 所 实际 
应 用 的 操作 。 

在 另 一 方面 ， 也 可 能 存在 一 些 应 用 ， 对 于 它们 而 言 我 们 的 强制 模式 还 不 足够 一 般 。 即 使 
需要 运算 的 两 种 类 型 的 对 象 都 不 能 转换 到 另 一 种 类 型 ， 也 完全 可 能 在 将 这 两 种 类 型 的 对 象 都 
转换 到 第 三 种 类 型 后 执行 这 一 运算 。 为 了 处 理 这 种 复杂 性 ， 同 时 又 能 维持 我 们 系统 的 模块 性 ， 
通常 就 需要 在 建立 系统 时 利用 类 型 之 间 的 进一步 结构 ， 有 关 情 况 见 下 面 的 讨论 。 

类 型 的 层次 结构 

上 面 给 出 的 强制 模式 ， 依 赖 于 一 对 对 类 型 之 间 存 在 着 某 种 自然 的 关系 。 在 实际 中 ， 还 党 
常 存在 着 不 同类 型 间 相互 关系 的 更 “全 局 性 ”的 结构 。 例 如 ， 假 定 我 们 想 要 构造 出 一 个 通用 
型 的 算术 系统 ， 处 理 整 数 、 有 理 数 、 实 数 、 复 数 。 在 这 样 的 一 个 系统 里 ， 一 种 很 自然 的 做 法 
是 把 整数 看 作 是 一 类 特殊 的 有 理 数 ， 而 有 理 数 又 是 一 类 特殊 的 实数 ， 实 数 转 而 又 是 一 类 特殊 


u7 如 果 做 得 更 聪明 些 ， 常 常 不 需要 写 出 忆 那 么 多 个 强制 过 程 。 例 如 ， 如 果 知道 如 何 从 类 型 1 转换 到 类 型 2 ， 以 及 
如 何 从 类 型 2 转换 到 类 型 3 ， 那 么 也 就 可 以 利用 这 些 知 识 从 类 型 1 转换 到 类 型 3 。 这 将 大 大 减少 在 向 系统 中 加 入 
新 类 型 时 需要 显 式 提供 的 转换 过 程 的 个 数 。 如 果真 的 希望 ， 也 完全 可 以 将 这 种 复杂 方式 做 到 系统 里 ， 让 系统 
去 查找 类 型 之 间 的 关系 “图 "， 而 后 自动 地 通过 显 式 提供 的 强制 过 程 ， 生 成 其 他 能 够 推导 出 的 强制 过 程 。 
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的 复数 。 这 样 ， 我 们 实际 有 的 就 是 一 个 所 谓 的 类 型 的 层次 结构 ， 在 复数 
其 中 ，( 例 如 ) 整数 是 有 理 数 的 子 类 型 (也 就 是 说 ， 任 何 可 以 应 用 ` A 
于 有 理 数 的 操作 都 可 以 应 用 于 整数 ) 。 与 此 相对 应 ， 人 们 也 说 有 理 实数 
数 形成 了 整数 的 一 个 超 类 型。 在 这 个 例子 里 所 看 到 的 类 型 层次 结构 

是 最 简单 的 一 种 ， 其 中 一 个 类 型 只 有 至 多 一 个 超 类 型 和 至 多 一 个 子 | 
类 型 。 这 样 的 结构 称 为 一 个 类 型 塔 ， 如 图 2-25 所 示 。 有 理 数 


如 果 我 们 面 对 的 是 一 个 塔 结 构 ， 那 么 将 一 个 新 类 型 加 入 层次 结 
构 的 问题 就 可 能 极 大 地 简化 了 ， 因 为 需要 做 的 所 有 事情 ， 也 就 是 刻 
画 清 楚 这 一 新 类 型 将 如 何 嵌 入 正好 位 于 它 之 上 的 超 类 型 ， 以 及 它 如 
何 作为 下 面 一 个 类 型 的 超 类 型 。 举 例 说 ， 如 果 我 们 希望 做 一 个 整数 W 一 个 类 型 塔 
和 一 个 复数 的 加 法 ， 那 么 并 不 需要 明确 定义 一 个 特殊 强制 函数 integer->compP1ex 。 相 反 ， 
我 们 可 以 定义 如 何 将 整数 转换 到 有 理 数 ， 如 何 将 有 理 数 转换 到 实数 ， 以 及 如 何 将 实数 转换 到 
复数 。 而 后 让 系统 通过 这 些 步 又 将 该 整数 转换 到 复数 ， 在 此 之 后 再 做 两 个 复数 的 加 法 。 

我 们 可 以 按照 下 面 的 方式 重新 设计 那个 apPIY-generic 过 程 。 对 于 每 个 类 型 ， 都 需要 
提供 一 个 raise 过 程 ， 它 将 这 一 类 型 的 对 象 “ 提 升 ”到 塔 中 更 高 一 层 的 类 型 。 此 后 ， 当 系统 
遇 到 需要 对 两 个 不 同类 型 的 运算 时 ， 它 就 可 以 逐步 提升 较 低 的 类 型 ， 直 至 所 有 对 象 都 达到 了 
塔 的 同一 个 层次 (练习 2.83 和 练习 2.84 关 注 的 就 是 实现 这 种 策略 的 一 些 细节 ) 。 

类 型 塔 的 另 一 优点 ， 在 于 使 我 们 很 容易 实现 一 种 概念 : 每 个 类 型 能 够 “继承 ”其 超 类 型 
中 定义 的 所 有 操作 。 举 例 说 ， 如 果 我 们 没有 为 找 出 整数 的 实 部 提供 一 个 特定 过 程 ， 但 也 完全 
可 能 期 望 reaL-part 过 程 对 整数 有 定义 ， 因 为 事实 上 整数 是 复数 的 一 个 子 类 型 。 对 于 类 型 拱 
的 情况 ， 我 们 可 以 通过 修改 app1y-generic 过 程 ， 以 一 种 统一 的 方式 安排 好 这 些 事情 。 如 
果 所 需 操作 在 给 定 对 象 的 类 型 中 没有 明确 定义 ， 那 么 就 将 这 个 对 象 提升 到 它 的 超 类 型 并 再 次 
检查 。 在 向 塔 顶 攀 登 的 过 程 中 ， 我 们 也 不 断 转换 有 关 的 参数 ;直至 在 某 个 层次 上 找到 了 所 需 
的 操作 而 后 去 执行 它 ， 或 者 已 经 到 达 了 塔 顶 (此 时 就 只 能 放弃 了 )。 

与 其 他 层次 结构 相 比 ， 塔 形 结构 的 另 一 一 优点 是 它 使 我 们 有 一 种 简单 的 方式 去 “下 降 ” 

个 数据 对 象 ， 使 之 达到 最 简单 的 表示 形式 。 例如 ， 如 果 现 在 做 了 2+3i 和 4 -- 3; 的 加 法 ， 如 果 结 
果 是 整数 6 而 不 是 复数 6 +0i 当 然 就 更 好 了 。 练习 2.85 讨 论 了 实现 这 种 下 降 操 作 的 一 种 方式 。 这 
里 的 技巧 在 于 需要 有 一 种 一 般 性 的 方式 ， 分 辨 出 哪些 是 可 以 下 降 的 对 象 《 例 如 6 上 +0i) , BE 
是 不 能 下 降 的 对 象 〔 例 如 6 +2i)。 


层次 结构 的 不 足 

如 果 在 一 个 系统 里 ， 有 关 的 数据 关 型 可 以 自然 地 安排 为 一 个 塔 形 ， 那么 正如 在 前 面 已 经 
看 到 的 ， 处 理 不 同类 型 上 通用 型 操作 的 问题 将 能 得 到 极 大 的 简化 。 遗 憾 的 是 ， 事 情 通 常 都 不 
是 这 样 。 图 2-26 展 示 的 是 类 型 之 间 关 系 的 一 种 更 复杂 情况 ， 其 中 显示 出 的 是 表示 几何 图 形 的 
各 种 类 型 之 间 的 关系 。 从 这 个 图 里 可 以 看 到 ， 一 般 而 言 ， 一 个 类 型 可 能 有 多 于 一 个 子 类 型 ， 
例如 三 角形 和 四 边 形 都 是 多 边 形 的 子 类 型 。 此 外 ， 一 个 类 型 也 可 能 有 多 于 一 个 超 类 型 ， 例 如 ， 
等 腰 直 角 三 角形 可 以 看 作 是 等 腰 三 角形 ， 又 可 以 看 作 是 直 钢 三角形。 这 种 存在 多 重 超 类 型 的 
问题 特别 令 人 棘手 ， 因 为 这 就 意味 着 ， 并 不 存在 一 种 唯一 方式 在 层次 结构 中 去 “提升 ”一 
类 型 。 当 我 们 需要 将 一 个 操作 应 用 于 一 个 对 象 时 ， 为 此 而 找 出 “正确 ” 超 类 型 的 工作 (例如 ， 


整数 
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多 边 形 
四 边 形 
梯形 gE 
三 角形 
平行 四 边 形 
SEZ 角形 直角 三 角形 
矩形 Sia 
正三 角形 等 腰 直 角 三 
角形 正方 形 


图 2-26 几何 图 形 类 型 间 的 关系 


这 就 是 apPpPly-generic 这 类 过 程 中 的 一 部 分 ) 可 能 涉及 到 对 整个 类 型 网 络 的 大 范围 搜索 。 
由 于 一 般 说 一 个 类 型 存在 着 多 个 子 类 型 ， 需 要 在 类 型 层次 结构 中 “下 降 ” 一 个 值 时 也 会 遇 到 
类 似 的 问题 。 在 设计 大 型 系统 时 ， 处 理 好 一 大 批 相互 有 关 的 类 型 而 同时 又 能 保持 模块 性 ， 这 
是 一 个 非常 困难 的 问题 ， 也 是 当前 正在 继续 研究 的 一 个 领域 …。 

练习 2.81 Louis Reasoner 注 意 到 ， 甚 至 在 两 个 参数 的 类 型 实际 相同 的 情况 下 ，apPP1y- 
generic 也 可 能 试图 去 做 参数 间 的 类 型 强制 。 由 此 他 推论 说 ， 需 要 在 强制 表格 中 加 入 一 些 过 
程 ， 以 将 每 个 类 型 的 参数 “强制 ”到 它们 自己 的 类 型 。 例 如 ， 除 了 上 面 给 出 的 scheme- 
number->comp1lex 强 制 之 外 ， 他 觉得 应 该 有 

(define (scheme-number->scheme-number n} n) 

(define (complex->complex z) zZ) 


(put-coercion ’scheme-number ‘’scheme-number 
scheme-number->scheme-number ) 


us 这 各 话 也 出 现在 本 书 的 第 1 版 里 ， 它 在 现在 就 像 20 年 前 写 出 时 一 样 的 正确 。 开 发 出 一 种 有 用 的 ， 具 有 一 般 意 
义 的 框架 ， 以 描述 不 同类 型 的 对 象 之 间 的 关系 (这 在 哲学 中 称 为 “本 体 论 ") ， 看 来 是 一 件 极其 困难 的 工作 。 
在 10 年 前 存在 的 混乱 和 今天 存在 的 混乱 之 间 的 主要 差异 在 于 ， 今 天 已 经 有 了 一 批 各 式 各 样 的 并 不 合适 的 本 体 
理论 ， 它 们 已 经 被 嵌入 到 数量 过 多 而 又 先天 不 足 的 各 种 程序 设计 语言 里 。 举 例 来 说 ， 面 向 对 象 语言 的 大 部 分 
复杂 性 -一 以 及 当前 各 种 面向 对 象 语言 之 间 细 人 微 的 而 且 使 人 迷惑 的 差异 -一 的 核心 ,就 是 对 类 型 之 问 通 用 型 
操作 的 处 理 。 我 们 在 第 3 章 有 关 计算 性 对 象 的 讨论 中 完全 避免 了 这 些 问 题 。 热 悉 面向 对 象 程序 设计 的 读者 将 
会 注意 到 ， 在 第 3 章 里 关于 局 部 状态 说 了 许多 东西 ， 但 是 却 根 本 没有 提 到 “类 ”或 者 “继承 "。 事 实 上 ， 我 们 
的 猜想 是 ， 如 果 没 有 知识 表示 和 自动 推理 工作 的 帮助 ， 这 些 问题 是 无 法 仅仅 通过 计算 机 语言 设计 的 方式 合理 
处 理 的 。 
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(put-coercion ’complex ’complex complex->complex) 


a) 如 果 安 装 了 Louis 的 强制 过 程 ， 如 果 在 调用 apply-generic 时 各 参数 的 类 型 都 为 
scheme~number 或 者 类 型 都 为 complex， 而 在 表格 中 又 找 不 到 相应 的 操作 ， 这 时 会 出 现 什 
么 情况 ? 例如 ， 假 定 我 们 定义 了 一 个 通用 型 的 求 曙 运算 : 

(define (exp x y) (apply-generic ’exp x y)) 
H#HEScheme k AE EKAT —PRAB LE, eee : 


;; following added to Scheme-number package 
(put ’exp ’(scheme-number scheme-number ) 
(lambda (x y) (tag (expt x y)))) ; using primitive expt 


如 果 对 两 个 复数 调用 exp 会 出 现 什么 情况 ? 请 

b) Louis 真 的 纠正 了 有 关 同 样 类 型 参数 的 强制 问题 吗 ? apply-~generic 还 能 像 原 来 那样 
正确 工作 吗 ? 

c) 请 修改 apP1YyY-generj2 ， 使 之 不 会 试 着 去 强制 两 个 同样 类 型 的 参数 。 

练习 2.82 ”请 益 述 一 种 方法 ， 设 法 推广 apPP1L1Y-generic， 以 便 处 理 多 个 参数 的 一 般 性 
情况 下 的 强制 问题 。 一 种 可 能 策略 是 试 着 将 所 有 参数 都 强制 到 第 一 个 参数 的 类 型 ， 而 后 试 着 
强制 到 第 二 个 参数 的 类型 ， 并 如 此 试 下 去 。 请 给 出 一 个 例子 说 明 这 种 策略 还 不 够 一 般 (就 像 
上 面 对 两 个 参数 的 情况 给 出 的 例子 那样 )。( 提 示 ,请 考虑 一 些 情况 ， 其 中 表格 里 某 些 合用 的 
操作 将 不 会 被 考虑 。) : 

练习 2.83 ”假定 你 正在 设计 一 个 通用 型 的 算术 包 ， 处 理 图 2-25 所 示 的 类 型 塔 ， 包 括 整 数 、 有 
理 数 、 实 数 和 复数 。 请 为 每 个 类 型 ( 除 复数 外 ) 设计 一 个 过 程 ， 它 能 将 该 类 型 的 对 象 提升 到 塔 中 
的 上 面 一 层 。 请 说 明 如 何 安 装 一 个 通用 的 raise 操 作 ,， 使 之 能 对 各 个 类 型 工作 ( 除 复数 之 外 )。 

练习 2.84 ”利用 练习 2.83 的 raise 操作 修改 apP1Y-generic 过 程 ， 使 它 能 通过 逐 层 提升 
的 方式 将 参数 强制 到 同样 的 类 型 ， 正 如 本 节 中 讨论 的 。 你 将 需要 安排 一 种 方式 ， 去 检查 两 个 
类 型 中 哪个 更 高 。 请 以 一 种 能 与 系统 中 其 他 部 分 “ 相 容 ”， 而 且 又 不 会 影响 向 塔 中 加 入 新 层次 
的 方式 完成 这 一 工作 。 

练习 2.85 ”本 节 中 提 到 了 “简化 ”数据 对 象 表示 的 一 种 方法 ， 就 是 使 之 在 类 型 塔 中 尽 可 
能 地 下 降 。 请 设计 一 个 过 程 4rop (下 落 )， 使 它 能 在 如 练习 2.83 所 描述 的 类 型 塔 中 完成 这 一 
工作 。 这 里 的 关键 是 以 某 种 一 般 性 的 方式 ， 判 断 一 个 数据 对 象 能 否 下 降 。 举 例 来 说 ， 复 数 
1.5 +0i 至 多 可 以 下 降 到 real ， 复 数 1 +0i 至 多 可 以 下 降 到 integer ， 而 复数 2 +3i 就 根本 无 法 
下 降 。 现 在 提出 一 种 确定 一 个 对 象 能 否 下 降 的 计划 : 首先 定义 一 个 运算 project (投影 )， 
它 将 一 个 对 象 “ 压 ”到 塔 的 下 面 一 层 。 例 如 ， 投 影 一 个 复数 就 是 丢掉 其 虚 部 。 这 样 ， 一 个 数 
能 够 向 下 落 ， 如 果 我 们 首先 Project 它 而 后 将 得 到 的 结果 raise 到 开始 的 类 型 ， 最 终 得 到 的 
东西 与 开始 的 东西 相等 。 请 阐述 实现 这 一 想法 的 具体 细节 ， 并 写 出 一 个 drop 过 程 ， 使 它 可 以 
将 一 个 对 象 尽 可 能 地 下 落 。 你 将 需要 设计 各 种 各 样 的 投影 函数 "”， 并 需要 把 PBroject 安 装 为 
系统 里 的 一 个 通用 型 操作 。 你 还 需要 使 用 一 个 通用 型 的 相等 谓词 ， 例 如 练习 2.79 所 描述 的 。 
最 后 ， 请 利用 drop 重 写 练习 2.84 的 apply-generic， 使 之 可 以 “简化 ”其 结果 。 

练习 2.86 ”假定 我 们 希望 处 理 一 些 复数 ， 它 们 的 实 部 、 虚 部 、 模 和 幅 角 都 可 以 是 常规 数 


1 实数 可 以 用 基本 过 程 round 投 射 到 整数 ， 它 返回 最 接近 参数 的 整数 值 。 
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值 、 有 理 数 ,或 者 我 们 希望 加 入 系统 的 任何 其 他 数值 类 型 。 请 描述 和 实现 系统 需要 做 的 各 种 
修改 ， 以 满足 这 一 需要 。 你 应 设法 将 例如 sine 和 cosine 一 类 的 运算 也 定义 为 在 常规 数 和 有 
理 数 上 的 通用 运算 。 


25.3 实例， 符号 代数 


符号 表达 式 的 操作 是 一 种 很 复杂 的 计算 过 程 ， 它 能 够 展示 出 在 设计 大 型 系统 时 常常 会 出 
现 的 许多 困难 问题 。 一 般 来 说 ， 一 个 代数 表达 式 可 以 看 成 一 种 具有 层次 结构 的 东西 ， 它 是 将 
运算 符 作 用 十 一 些 运算 对 象 而 形成 的 一 棵 树 。 我 们 可 以 从 一 集 基 本 对 象 ， 例 如 常量 和 变量 出 
发 ， 通 过 各 种 代数 运算 符 如 加 法 和 乘法 的 组 合 ， 构 造 起 各 种 各 样 的 代数 表达 式 。 就 像 在 其 他 
ie 里 一 样 ， 在 这 里 也 需要 形成 各 种 抽象 ， 使 我 们 能 够 有 简单 的 方式 去 引用 复合 对 象 。 在 符 
号 代数 中 ， 与 典型 抽象 的 有 关 想 法 包括 线性 组 合 、 多 项 式 、 有 理 函数 和 三 角 函 数 等 等 。 可 以 
将 这 些 看 作 是 复合 的 “类 型 "， 它 们 在 制导 对 表达 式 的 处 理 过 程 方面 非常 有 用 。 例 如 ， 我 们 可 
以 将 表达 式 : 

x sin (y? +1) +x cos 2y +cos (y? —2y°) 


看 作 一 个 x 的 多 项 式 ， 其 参数 是 ?的 多 项 式 的 三 角 函 数 ， 而 的 多 项 式 的 系数 是 整数 。 

下 面 我 们 将 试 着 开发 一 个 完整 的 代数 演算 系统 。 这 类 系统 都 是 异乎 寻常 地 复杂 的 程序 ， 
包含 着 深入 的 代数 知识 和 美妙 的 算法 。 我 们 将 要 做 的 ， 只 是 考察 代数 演算 系统 中 一 个 简单 但 
却 很 重要 的 部 分 ， 多 项 式 算 术 。 我 们 将 展示 在 设计 这 样 一 个 系统 时 所 面临 的 各 种 抉择 ， 以 及 
如 何 应 用 抽象 数据 和 通用 型 操作 的 思想 ， 以 利于 组 织 好 这 一 工作 项 目 。 


多 项 式 算 术 
要 设计 一 个 执行 多 项 式 算术 的 系统 ， 第 一 件 事 情 就 是 确定 多 项 式 到 底 是 什么 。 多 项 式 通 
常 总 是 针对 某 些 特定 的 变量 (多 项 式 中 的 未 定 元 ) 定义 的 。 为 了 简单 起 见 ， 我 们 把 需要 考虑 
的 多 项 式 限制 到 只 有 一 个 未 定 元 的 情况 ( 单 变 元 多 项 式 ) !*。 下 面 将 多 项 式 定义 为 项 的 和 式 ， 
而 每 个 项 或 者 就 是 一 个 系数 ， 或 者 是 未 定 元 的 乘 方 ， 或 者 是 一 个 系数 与 一 个 未 定 元 乘 方 的 乘 
积 。 系 数 也 定义 为 一 个 代数 表达 式 ， 但 它 不 依赖 于 这 个 多 项 式 的 未 定 元 。 例如 : 
5x? 4+3x+7 


是 x 的 一 个 简单 多 项 式 ， 而 
(y? +1) x 4+(2y) x +1 
是 x 的 一 个 多 项 式 ， 而 其 参数 又 是 ?的 多 项 式 。 

这 样 ， 我 们 就 已 经 绕 过 了 某 些 棘手 问题 。 例 如 ， 上 面 的 第 一 个 多 项 式 是 否 与 多 项 式 57+ 
3y +7 相 同 ? 为 什么 ? 合理 的 回答 可 以 是 “是 ， 如 果 我 们 将 多 项 式 看 作 一 种 纯粹 的 数学 函数 ， 
但 又 不 是 ， 如 果 只 是 将 多 项 式 看 作 一 种 语法 形式 ”。 第 二 个 多 项 式 在 代数 上 等 价 于 一 个 y 的 多 
项 式 ， 其 系数 是 x 的 多 项 式 。 我 们 的 系统 将 应 认定 这 一 情况 吗 ， 或 者 不 认定 ?进一步 说 ， 表 示 
一 个 多 项 式 的 方式 可 以 有 很 多 种 -一 例如 ， 将 其 作为 因子 的 乘积 ， 或 者 (对 于 单 变 元 多 项 式 ) 


no 在 另 一 方面 ， 我 们 将 允许 多 项 式 的 系数 本 身 是 其 他 变 元 的 多 项 式 。 这 就 给 了 我 们 与 完全 的 多 变量 系统 一 样 充 
分 的 表达 能 力 ， 虽 然 会 引起 一 些 强制 问题 。 详 情 见 下 面 的 讨论 。 
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作为 一 组 根 ， 或 者 作为 多 项 式 在 些 特定 集合 里 各 个 点 处 的 值 的 列表 所。 我 们 可 以 使 一 点 手段 
以 避免 这 些 问题 。 现 在 我 们 确定 ， 在 这 一 代数 演算 系统 里 ， 一 个 “多 项 式 ” 就 是 一 种 特殊 的 
语法 形式 ， 而 不 是 在 其 之 下 的 数学 意义 。 

现在 必须 进一步 去 考虑 怎样 做 多 项 式 算 术 。 在 这 个 简单 的 系统 里 ， 我 们 将 仅仅 考虑 加 法 
和 乘法 。 进 一 步 说 ， 我 们 还 强制 性 地 要 求 两 个 参与 运算 的 多 项 式 具 有 相同 的 未 定 元 。 

下 面 将 根据 我 们 已 经 熟悉 的 数据 抽象 的 一 套 方式 ， 开 始 设计 这 个 系统 。 多 项 式 将 用 一 种 称 
为 Poly 的 数据 结构 表示 ， 它 由 一 个 变量 和 一 组 项 组 成 。 我 们 假定 已 有 选择 图 数 Variable 和 
term-1list， 用 于 从 一 个 多 项 式 中 提取 相应 的 部 分 。 还 有 一 个 构造 函数 make~poly， 从 给 
定 变量 和 项 表 构 造 出 一 个 多 项 式 。 一 个 变量 也 就 是 一 个 符号 ， 因 此 我 们 可 以 用 2.3.2 节 的 
same-variable? 过 程 做 变量 的 比较 。 下 面 过 程 定义 多 项 式 的 加 法 和 乘法 : 


define (add-poly pl p2) 
(if (same-variable? (variable pl) (variable p2)) 
(make-poly (variable pl) 
(add-terms (term-list pl) 
(term-list p2))}) 
(error "Polys not in same var -~ ADD-POLY" 
(list pl p2)))) 
(define (mul-poly pl p2) 
(if (same-variable? (variable pl) (variable p2)) 
(make-poly (variable pl) 
(mul-terms (term-list pl) 
(term-list p2))) 
(error "Polys not in same var -~ MUL-POLY" 
(list pl p2)))) 
为 了 将 多 项 式 结合 到 前 面 建立 起 来 的 通用 算术 系统 里 ， 我 们 需要 为 其 提供 类 型 标志 。 这 里 采 
用 标志 polynomial， 并 将 适合 用 于 带 标 志 多 项 式 的 操作 安装 到 操作 表格 里 。 我 们 将 所 有 代 
码 都 嵌入 完成 多 项 式 包 的 安装 过 程 中 ， 与 在 2.5.1 节 里 采用 的 方式 类 似 : 


(define (install-polynomial-package) 
z; internal procedures 
;; representation of poly 
(define (make-poly variable term-list) 
(cons variable term-list) ) 
(define (variable p) (car p)) 
(define (term-list p) (cdr p)) 
< 过 程 same-variable? 和 variable? 取 自 2.3.2 节 > 


;; representation of terms and term lists 


< 过 程 adjoin-term ...coeff 在 下 面 定 义 > 


(define (add-poly pl p2) ...) 
<add-poly 使 用 的 过 程 > 
(define (mul-poly pl p2) ...) 
<mul-poly 使 用 的 过 程 > 


2 对 于 单 变 元 多 项 式 而 言 ， 给 出 一 个 多 项 式 在 一 集 点 的 值 可 能 成 为 一 种 特别 好 的 表示 方式 。 这 将 使 多 项 式 算 术 
变 得 特别 简单 。 例 如 ， 要 得 到 两 个 以 这 种 方式 表示 的 多 项 式 之 和 ， 我 们 只 需 加 起 这 两 个 多 项 式 在 对 应 点 的 值 。 
要 将 它们 变换 到 我 们 更 热 悉 的 形式 ， 可 以 利用 拉 格 朗 日 插值 公式 ， 它 说 明了 如 何 从 多 项 式 在 " +1 个 点 的 给 定 
值 构造 出 一 个 n 阶 多 项 式 的 各 个 系数 。 
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;; interface to rest of the system 
(define (tag p) (attach-tag ‘polynomial p)) 
(put ’add (polynomial polynomial) 
(lambda (pl p2) (tag (add-poly pl p2)))) 
(put ’mul ’(polynomial polynomial) 
(lambda (pl p2) (tag (mul-poly pl p2)))) 
(put "make *polynomial 
(lambda (var terms) (tag (make-poly var terms)))) 
*done) 

多 项 式 加 法 通过 一 项 项 的 相 加 完成 ， 同 次 的 项 〈( 即 ， 具 有 同样 未 定 元 咎 次 的 项 ) 必须 归 
并 到 一 起 。 完 成 这 件 事 的 方式 是 建立 一 个 同 次 的 新 项 ， 其 系数 是 两 个 项 的 系数 之 和 。 仅 仅 出 
现在 一 个 求 和 多 项 式 中 的 项 就 直接 累积 到 正 在 构造 的 多 项 式 里 。 | 

为 了 能 完成 对 于 项 表 的 操作 ， 我 们 假定 有 一 个 构造 函数 Lhe-empty-termlist， 它 返 
回 一 个 空 的 项 表 ， 还 有 一 个 构造 函数 adjoin-term 将 一 个 新 项 加 入 一 个 项 表 里 。 我 们 还 假 
定 有 一 个 谓词 empty-termlist?， 可 用 于 检查 一 个 项 表 是 否 为 空 ， 选 择 函 数 first-term 
提取 出 一 个 项 表 中 最 高 次 数 的 项 ， 选 择 函数 rest-terms 返 回 除 最 高 次 项 之 外 的 其 他 项 的 表 。 
为 了 能 对 项 进行 各 种 操作 ， 我 们 假定 已 经 有 一 个 构造 函数 make-term， 它 从 给 定 的 次 数 和 系 
数 构造 出 一 个 项 ， 选 择 函 数 order 和 coeff 分 别 返回 一 个 项 的 次 数 和 系数 。 这 些 操作 使 我 们 
可 以 将 项 和 项 表 都 看 成 数据 抽象 ， 其 具体 实现 就 可 以 另行 单独 考虑 了 。 

下 面 是 一 个 过 程 ， 它 从 两 个 需要 求 和 的 多 项 式 构造 起 一 个 项 表 ” 

(define (add-terms L1 L2) 

(cond ((empty-termlist? L1) L2) 
((empty-termlist? L2) L1) 
(else | 
(let ((t1l (first-term L1)) (t2 (first-term L2))) 
(cond ((> (order tl) (order t2)) 
(adjoin-term 
tl (add-terms (rest-terms L1) L2))) 
((< (order tl) (order t2)) 
(adjoin-term 
t2 (add-terms Li (rest-terms L2)))) 
(else 
(adjoin-term 
(make-term (order t1) 
{add (coeff t1) (coeff t2))) 


(add-terms (rest-terms Ll) 
{rest-terms L2))))))))) 


在 这 里 需要 注意 的 最 重要 的 地 方 是 ， 我 们 采用 了 通用 型 的 加 法 过 程 add 去 求 需要 归并 的 项 的 
系数 之 和 。 这 样 做 有 一 个 特别 有 利 的 后 果 ， 下 面 就 会 看 到 。 

为 了 乘 起 两 个 项 表 ， 我 们 用 第 一 个 表 中 的 每 个 项 去 乘 另 一 表 中 所 有 的 项 ， 通 过 反复 应 用 
mul-term-by-all-terms (这 个 过 程 用 一 个 给 定 的 项 去 乘 一 个 项 表 里 的 各 个 项 ) 完成 项 


oz 这 一 运算 很 像 我 们 在 练习 2.62 中 开发 的 有 序 union-set 运算。 事实 上 ， 如 果 我 们 将 多 项 式 看 成 根据 未 定 元 
的 次 数 排序 的 集合 ， 那 么 为 求 和 产生 项 表 的 程序 几乎 就 等 同 于 union-set T, 


表 的 乘法 。 这 样 得 到 的 结果 项 表 (对 于 第 一 个 表 的 每 个 项 各 有 一 个 表 ) 通过 求 和 积累 起 来 。 
乘 起 两 个 项 形成 一 个 新 项 的 方式 是 求 出 两 个 因子 的 次 数 之 和 作为 结果 项 的 次 数 ， 求 出 两 个 因 
子 的 系数 的 乘积 作为 结果 项 的 系数 : 


(define (mul-terms L1 L2) 
(if (empty-termlist? L1) 
(the-empty-termlist) 
(add-terms (mul-term-by-all-terms (first-term L1) L2) 
(mul-terms (rest-terms L1) L2)))) 


(define (mul-term-by-all-terms tl L) 
(if (empty-termlist? L) 

(the-empty-termlist) 

(let ((t2 (first-term L))) 
(adjoin-term 
(make-term (+ (order tl) (order t2)) 

(mul (coeff tl) (coeff t2))) 

(mul-term-by-all-terms tl (rest-terms L)))))) 

这 些 也 就 是 多 项 式 加 法 和 乘法 的 全 部 了 。 请 注意 ， 因 为 我 们 这 里 的 操作 都 是 基于 通用 型 
过 程 add 和 mul 描 述 的 ， 所 以 这 个 多 项 式 包 将 自动 地 能 够 处 理 任何 系数 类 型 ， 只 要 它 是 这 里 的 
通用 算术 程序 包 能 够 处 理 的 。 如 果 我 们 还 把 2.5.2 节 所 讨论 的 强制 机 制 也 包括 进来 ， 那 么 我 们 
也 就 自动 地 有 了 能 够 处 理 不 同系 数 类 型 的 多 项 式 操 作 的 能 力 ， 例 如 


[3x7 +(2+ aea] + +63) 


由 于 我 们 已 经 把 多 项 式 的 求 和 、 求 乘积 的 过 程 add-poly 和 mul-poly 作 为 针对 类 型 
polynomial 的 操作 ， 安 装 进 通用 算术 系统 的 add 和 mul 操 作 里 ， 这 样 得 到 的 系统 将 能 自动 
处 理 如 下 的 多 项 式 操作 : 


[G+Dx +67 +)x+Q-D] [9-224 0" +7) 


能 够 完成 此 事 的 原因 是 ， 当 系统 试图 去 归并 系数 时 ， 它 将 通过 add 和 mu1 进 行 分 派 。 由 于 这 时 
的 系数 本 身 也 是 多 项 式 (y 的 多 项 式 ) ， 它 们 将 通过 使 用 add~poly 和 mul-Poly 完 成 组 合 。 
这 样 就 产生 出 一 种 “数据 导向 的 递归 ? ， 举 例 来 说 ， 在 这 里 ， 对 mu1l-poly 的 调用 中 还 会 递归 
地 调用 mul-poly ， 以 便 去 求 系数 的 乘积 。 如 果 系 数 的 系数 仍然 是 多 项 式 〈 在 三 个 变 元 的 多 
项 式 中 可 能 出 现 这 种 情况 )， 数 据 导 向 就 会 保证 这 一 系统 仍 能 进入 另 一 层 递归 调用 ， 并 能 这 样 
根据 被 处 理 数据 的 结构 进入 任意 深度 的 递归 调用 。 

项 表 的 表示 

我 们 最 后 面临 的 工作 ， 就 是 需要 为 项 表 实 现 一 种 很 好 的 表示 形式 。 从 作用 上 看 ， 一 个 项 
表 就 是 一 个 以 项 的 次 数 作为 键 值 的 系数 集合 ， 因 此 ， 任 何 能 够 用 于 有 效 表 示 和 集合 的 方法 ( 见 


B 为 了 使 这 些 工作 得 更 加 平滑 ， 我 们 还 需 在 这 个 通用 算术 系统 中 加 入 将 “ 数 ”强制 到 多 项 式 的 能 力 。 这 时 把 数 
看 成 是 次 数 为 而 系数 就 是 这 个 数 的 多 项 式 。 如 果 要 处 理 下 面 的 多项式 运 算 ， 就 需要 这 种 功能 : 


x2 +O+Dx+ 引 + +2x41| 


这 其 中 需要 求 出 系数 ) + 1 和 系数 2 之 和 。 
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2.2.3 节 的 讨论 ) 都 可 以 用 于 完成 这 一 工作 。 但 在 另 一 方面 ， 我 们 所 用 的 过 程 add-terms 和 
mul-terms 都 以 顺序 方式 进行 访问 ， 按 照 从 最 高 次 项 到 最 低 次 项 的 顺序 ， 因 此 应 该 考虑 采用 
某 种 有 序 表 表示 。 

我 们 应 该 如 何 构造 表示 项 表 的 表 结 构 呢 ? 有 一 个 需要 考虑 的 因素 是 可 能 需要 操作 的 多 项 
式 的 “密度 "”。 一 个 多 项 式 称 为 稠密 的 ， 如 果 它 大 部 分 次 数 的 项 都 具有 非 0 系 数 。 如 果 一 个 多 
项 式 有 许多 系数 洲 的 项 ， 那 么 就 称 它 是 乔 殉 的 。 例 如 : 

A: x°42x4 43x? —2x —5 
是 稠密 的 ， 而 
B: xio0+2x2 十 1 


是 稀疏 的 。 

对 于 午 密 多 项 式 而 言 ， 项 表 的 最 有 效 表示 方式 就 是 直接 采用 其 系数 的 表 。 例 如 ， 上 面 的 
多 项 式 A 可 以 很 好 地 表示 为 (1 2 0 3 -2 -5)。 在 这 种 表示 中 ， 一 个 项 的 次 数 也 就 是 从 这 
个 项 开始 的 子 表 的 长 度 减 11*。 对 于 像 B 那 样 的 稀 醇 多 项 式 ， 这 种 表示 将 变 得 十 分 可怕 ， 因 为 
它 将 是 一 个 很 大 的 几乎 全 都 是 0 值 的 表 ， 其 中 零 零落 落地 点 缀 着 几 个 非 0 项 。 对 于 稀 踊 多 项 式 
有 一 种 更 合理 方式 ， 那 就 是 将 它们 表示 为 非 0 项 的 表 ， 表 中 的 每 一 项 包含 着 多 项 式 里 的 一 个 次 
数 和 对 应 于 这 个 次 数 的 系数。 按照 这 种 模式 ， 多 项 式 B 可 以 有 效 地 表示 为 ((100 1) (2 2) 
(0 1))。 由 于 被 操作 的 大 部 分 多 项 式 运算 都 是 稀疏 多 项 式 ， 我 们 采用 后 一 种 方式 。 现 在 假定 
项 表 被 表示 为 项 的 表 ， 按 照 从 最 高 次 到 最 低 次 的 顺序 安 徘 。 一 旦 我 们 做 出 了 这 一 决定 ， 为 项 
表 实 现 选 择 函数 和 构造 函数 就 已 经 直截了当 了 '”。 

(define (adjoin-term term term-list) 

(if (=zero? (coeff term)) 


term-list 
(cons term term-list))) 


(define (the-empty-termlist) °()) 

(define (first-term term-list) (car term-list)) 
(define (rest-terms term-list) (cdr term-list)) 
(define (empty-termlist? term-list) (null? term-list) ) 


(define (make-term order coeff) (list order coeff) ) 
(define (order term) (car term)) 
(define (coeff term) (cadr term) ) 


这 里 的 =zero? 在 练习 2.80 中 定义 ( 另 见 下 面 练习 2.87)。 
多 项 式 程 序 包 的 用 户 可 以 通过 下 面 过 程 创建 多 项 式 : 


(define (make-polynomial var terms) 
((get ’make 'polynomial) var terms)) 


124 在 这 些 多 项 式 的 例子 里 ， 我 们 都 假定 使 用 的 是 练习 2.78 所 提出 的 通用 算术 系统 。 这 样 ， 常 规 数 值 的 系数 将 直 
- 接 用 数值 本 身 表示 ， 而 不 是 表示 为 一 个 car 为 符号 scheme-number 的 对 侦 。 

25 虽然 我 们 假定 项 表 是 排序 的 ， 这 里 还 是 将 adjoin-term 简 单 地 实现 为 用 cons 在 现存 项 表 前 加 一 个 新 项 。 只 
要 能 保证 使 用 adjoin-term 的 过 程 (如 add-terms) 总 用 比 表 中 的 项 次 数 更 高 的 项 调用 它 ， 我 们 就 不 必 担 
心 会 出 问题 。 如 果 不 希 望 事先 有 这 种 保证 ， 那 么 就 可 以 采用 类 似 于 集合 的 有 序 表 表 示 中 实现 构造 函数 
adjoin-set 的 方式 (练习 2.61) 实现 adjoin-term, 
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练习 2.87 请 在 通用 算术 包 中 为 多 项 式 安装 = zero? ， 这 将 使 adjoin-term 也 能 对 系数 
本 身 也 是 多 项 式 的 多 项 式 使 用 。 

练习 2.88 ”请 扩充 多 项 式 系 统 ， 加 上 多 项 式 的 减法 。( 提 示 : 你 可 能 发 现 定义 一 个 通用 的 
求 负 操作 非常 有 用 。) 

练习 2.89 请 定义 一 些 过 程 ， 实 现 上 面 讨论 的 适宜 稠密 多 项 式 的 项 表 表 示 。 

练习 2.90 假定 我 们 希望 有 一 个 多 项 式 系 统 ， 它 应 该 对 稠密 多 项 式 和 稀疏 多 项 式 都 非常 有 
效 。 一 种 途径 就 是 在 我 们 的 系统 里 同时 允许 两 种 表示 形式 。 这 时 的 情况 类 似 于 2.4 节 复数 的 例 
子 ， 那 里 同时 允许 采用 直角 坐标 表示 和 极 坐 标 表 示 。 为 了 完成 这 一 工作 ， 我 们 必须 区 分 不 同 
的 项 表 类 型 ， 并 将 针对 项 表 的 操作 通用 化 。 请 重新 设计 这 个 多 项 式 系统 ， 实 现 这 种 推广 。 这 
将 是 一 项 需要 付出 很 多 努力 的 工作 ， 而 不 是 一 个 局 部 修改 。 
练习 2.91 ”一 个 单 变 元 多 项 式 可 以 除 以 另 一 个 多 项 式 ， 产 生出 一 个 商 式 和 一 个 余 式 。 例 
如 : ` 

x-1 

x-1 
除法 可 以 通过 长 除 完 成 。 也 就 是 说 ， 用 被 除 式 的 最 高 次 项 除 以 除 式 的 最 高 次 项 ， 得 到 商 式 的 
第 一 项 ， 而 后 用 这 个 结果 乘 以 除 式 ， 并 从 被 除 式 中 减 去 这 个 乘积 。 剩 下 的 工作 就 是 用 减 后 得 
到 的 差 作 为 新 的 被 除 式 ， 以 便 产生 出 随后 的 结果 。 当 除 式 的 次 数 超过 被 除 式 的 次 数 时 结束 ， 
将 此 时 的 被 除 式 作 为 余 式 。 还 有 ， 如 果 被 除 式 就 是 0 ， 那 么 就 返回 0 作为 商 和 余 式 。 

我 们 可 以 基于 add-poly 和 mul~poly 的 模型 ， 设 计 出 一 个 除法 过 程 div-poly。 这 一 过 
程 首 先 检 查 两 个 多 项 式 是 否 具有 相同 的 变 元 ， 如 果 是 的 话 就 剥 去 这 一 变 元 ， 将 问题 送 给 过 程 
div-terms ， 它 执行 项 表 上 的 除法 运算 。div-polLy 最 后 将 变 元 重新 附加 到 Giv-terms 返 
回 的 结果 上 。 将 div-terms 设 计 为 同时 计算 出 除法 的 商 式 和 余 式 是 比较 方便 的 。div- 
terms 可 以 以 两 个 表 为 参数 ， 返 回 一 个 商 式 的 表 和 一 个 余 式 的 表 。 O 

请 完成 下 面 div-terms 的 定义 ,填充 其 中 空缺 的 表达 式 ， 并 基于 它 实 现 dQiv-poly。 该 
过 程 应 该 以 两 个 多 项 式 为 参数 ， 返 回 一 个 包含 商 和 余 式 多 项 式 的 表 。 


(define (div-terms L1 L2) 
(if (empty-termlist? L1) 

(list (the-empty-termlist) (the-empty-termlist) ) 

(let ((t1 (first-term L1)) 
(t2 (first-term L2))) 

(if (> (order t2) (order t1)) 

(list (the-empty-termlist) L1) 
(let ((new-c (div (coeff tl) (coeff t2))) 


=x +x ， 余 式 x-1 


(new-o (- (order tl) (order t2)))) 
(let ((rest-of-result 
< 递归 地 计算 结果 的 其 余部 分 > 
)) 
< 形成 完整 的 结果 > 


)))))) 


符号 代数 中 类 型 的 层次 结构 
我 们 的 多 项 式 系统 显示 出 ， 一 种 类 型 (多 项 式 ) 的 对 象 事实 上 可 以 是 一 个 复杂 的 对 象 ， 
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又 以 许多 不 同类 型 的 对 象 作 为 其 组 成 部 分 。 这 种 情况 并 不 会 给 定义 通用 型 操作 增加 任何 实际 
困难 。 我 们 需要 做 的 就 是 针对 这 种 复合 对 象 的 各 个 部 分 的 操作 ， 并 安装 好 适当 的 通用 型 过 程 。 
事实 上 ， 我 们 可 以 看 到 多 项 式 形成 了 一 类 “递归 数据 抽象 ”， 因 为 多 项 式 的 某 些 部 分 本 身 也 可 
能 是 多 项 式 。 我 们 的 通用 型 操作 和 数据 导向 的 程序 设计 风格 完全 可 以 处 理 这 种 复杂 性 ， 这 里 
并 没有 多 少 困难 。 

但 在 另 一 方面 ， 多 项 式 代 数 也 是 这 样 的 一 个 系统 ， 其 中 的 数据 类 型 不 能 自然 地 安排 到 一 
个 类 型 塔 里 。 例 如 ， 在 这 里 可 能 有 x 的 多 项 式 ， 其 系数 是 ?的 多 项 式 ， 也 完全 可 能 有 ?的 多 项 式 ， 
其 系数 是 xz 的 多 项 式 。 这 些 类 型 中 设 有 哪个 类 型 自然 地 位 于 另 一 类 型 的 “上 面 ”， 然 而 我 们 却 
常常 需要 去 求 不 同 集合 的 成 员 之 和 。 有 几 种 方式 可 以 完成 这 件 事情 。 一 个 可 能 性 就 是 将 一 个 
多 项 式 变换 到 另 一 个 多 项 式 的 类 型 ， 这 可 以 通过 展开 并 重新 安排 多 项 式 里 的 项 ， 使 两 个 多 项 
式 都 具有 同样 的 主 变 元 。 也 可 以 通过 对 变 元 的 排序 ， 在 其 中 强行 加 入 一 个 类 型 塔 结构 ， 并 且 
永远 把 所 有 的 多 项 式 都 变换 到 一 种 “规范 形式 ”， 使 具有 最 高 优先 级 的 变 元 成 为 证 变 元 ， 将 优 
先 级 较 低 的 变 元 藏 在 系数 里 面 。 这 种 策略 工作 的 相当 好 ， 但 是 ， 在 做 这 种 变换 时 ， 有 可 能 毫 
无 必要 地 扩大 了 多 项 式 ， 使 它 更 难 读 ， 也 可 能 操作 起 来 的 效率 更 低 。 塔 型 策略 在 这 个 领域 中 
确实 不 大 自然 ， 对 于 另 一 些 领域 也 是 一 样 ， 如 果 在 那里 用 户 可 以 动态 地 通过 已 有 类 型 的 各 种 
组 合 形式 引进 新 类 型 。 这 样 的 例子 如 三 ABR. FRANK. 

如 果 说 在 设计 大 型 代数 演算 系统 时 ， 对 于 强制 的 控制 会 变 成 一 个 很 严重 的 问题 ， 那 完全 
不 应 该 感到 奇怪 。 这 种 系统 里 的 大 部 分 复杂 性 都 牵涉 到 多 个 类 型 之 间 的 关系 。 确 实 ， 公 平地 
说 ,我 们 到 现在 还 没有 完全 理解 强制 。 事 实 上 ， 我 们 还 没有 完全 理解 类 型 的 概念 。 但 无 论 如 
fil, 已 知 的 东西 已 经 为 我 们 提供 了 支持 大 型 系统 设计 的 强 有 力 的 结构 化 和 模块 化 原理 。 

练习 2.92 ”通过 加 入 强制 性 的 变量 序 扩充 多 项 式 程序 包 ， 使 多 项 式 的 加 法 和 乘法 能 对 有 具 
有 不 同 变 量 的 多 项 式 进 行 。( 这 绝 不 简单 ! ) 


PREY: ARAK 
我 们 可 以 扩充 前 面 已 经 做 出 的 通用 算术 系统 ， 将 有 理 函 数 也 包含 进来 。 有 理 函 数 也 就 是 


“分 式 ” ， 其 分 子 和 分 母 都 是 多 项 式 ， 例 如 : 


x+1 
x-i 
这 个 系统 应 该 能 做 有 理 函 数 的 加 减 乘 除 ， 并 可 以 完成 下 面 的 计算 : 
X+1 x x 42x? 43x41 


x-1 x-l xt+x?-x-1 

(这 里 的 和 已 经 经 过 了 简化 ， 删 除了 公 因 子 。 常 规 的 “交叉 乘法 ”得 到 的 将 是 一 个 4 次 多 项 式 
的 分 子 和 5 次 多 项 式 的 分 母 ) | 

修改 前 面 的 有 理 数 程序 包 ， 使 它 能 使 用 通用 型 操作 ， 就 能 完成 我 们 希望 做 的 事情 ， 除 了 
无 法 将 分 式 化 简 到 最 简 形 式 之 外 。 

练习 2.93 请 修改 有 理 数 算术 包 ， 采 用 通用 型 操作 ， 但 在 其 中 改写 make-rat ， 使 它 并 不 
企图 去 将 分 式 化 简 到 最 简 形式 。 对 下 面 两 个 多 项 式 调 用 make-rational 做 出 一 个 有 理 函 数 ， 
以 便 检 查 你 的 系统 : 


(define pl (make-polynomial 'x ’((2 1)(0 1)))) 
(define p2 (make-polynomial ’x °((3 1)(0 1)))) 
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(define rf (make-rational p2 pl)) 
现在 用 add 将 zf 与 它 自己 相 加 。 你 会 看 到 这 个 加 法 过 程 不 能 将 分 式 化 简 到 最 简 形 式 。 


我 们 可 以 用 与 前 面 针 对 整数 工作 时 的 同样 想法 ， 将 分 子 和 分 母 都 是 多 项 式 的 分 式 简 化 到 
最 简 形 式 ， 修 改 make-rat ， 将 分 子 和 分 母 都 除 以 它们 的 最 大 公 因子 。 “最 大 公 因 子 ” 的 概念 
对 于 多 项 式 也 是 有 意义 的 。 事 实 上 ， 我 们 也 可 以 用 与 整数 的 欧 几 里 得 算法 本 质 上 相间 的 算法 
求 出 两 个 多 项 式 的 GCD (最 大 公 因 子 ) “。 对 于 整数 的 算法 是 : 

(define (gcd a b) 

(if (= b 0) 
(gcd b (remainder a b)))) 


利用 它 ， 再 做 一 点 非常 明显 的 修改 ， 就 可 以 定义 出 一 个 对 项 表 工 作 的 GCD 操 作 : 


(define (gcd-terms a b) 
(if (empty-termlist? b) 
a 
(gcd-terms b (remainder-terms a b)))) 


其 中 的 remainder-terms 提 取出 由 项 表 除 法 操作 div-terms 返 回 的 表 里 的 余 式 成 分 ， 该 操 
作 在 练习 2.91 中 实现 。 
练习 2.94 ”利用 div-terms 实 现 过 程 remainder-terms， 并 用 它 定 义 出 上 面 的 gcd- 
terms 。 现 在 写 出 一 个 过 程 gcd-poly ， 它 能 计算 出 两 个 多 项 式 的 多 项 式 GCD (如 果 两 个 多 
项 式 的 变 元 不 同 ， 这 个 过 程 应 该 报告 错误 ) 。 在 系统 中 安装 通用 型 操作 greatest-common- 
divisor ,使 得 遇 到 多 项 式 时 ， 它 能 归 约 到 9cd-poly ， 对 于 常规 的 数 能 归 约 到 常规 的 gcd 。 
作为 试验 ， 请 做 : 
(define pl (make-polynomial ’x ’((4 1) (3 -1) (2 -2) (1 2)))) 
(define p2 (make-polynomial 'x ’((3 1) (1 -1)))) 
(greatest-common-divisor pl p2) 
并 用 手工 检查 得 到 的 结果 。 
练习 2.95 iE SUP. P2 和 P;: 
Pi: x —2x+1 
Pa: 11x? +7 
Py: 13x+5 


现在 定义 2 为 P, 和 P2: 的 乘积 ， 定 义 &: 为 P; 和 Ps 的 乘积 ， 而 后 用 9zeatest-common- 
divisor (练习 2.94) 求 出 2, 和 2@: 的 GCD 。 请 注意 得 到 的 回答 与 P, 并 不 一 样 。 这 个 例子 将 非 
整数 操作 引进 了 计算 过 程 ， 从 而 引起 了 GCD 算 法 的 困难 ”。 要 理解 这 里 发 生 了 什么 ， 请 试 着 


56 按照 代数 的 说 靶 ， 欧 几 里 得 算法 对 于 多 项 式 也 可 以 使 用 的 事实 说 明 多 项 式 构成 了 一 种 代数 论 域 ， 称 为 欧 几 里 
得 环 。 一 个 欧 几 里 得 环 是 一 种 论 域 ， 它 允许 加 、 减 和 可 交换 乘 ， 再 加 上 一 种 方式 为 环 中 每 个 元 柬 " 赋 以 一 个 
正 整数 的 “度量 ”mo ， 其 性 质 是 ， 对 任何 非 0 的 x 和 y 都 有 m(xy) >m(x) ， 而 且 对 于 任何 给 定 的 < 和， 存在 一 
个 9 使 得 ?= gr +r， 这 里 有 =0 或 者 m(r) <m(x)。 从 一 种 抽象 的 观点 看 ， 这 些 也 就 是 证 明 欧 几 里 得 算法 能 够 使 
用 所 需要 的 所 有 性 质 。 对 于 整数 论 域 而 言 ， 一 个 整数 的 度量 m 就 是 这 个 整数 的 绝对 值 。 对 多 项 式 论 域 ， 这 一 
度量 就 是 多 项 式 的 次 数 。 

27 在 类 位 MIT Scheme 的 实现 中 ,这 将 产生 一 个 多 项 式 ， 它 确实 是 C, 和 @: 的 因子 ， 但 却 有 着 有 理 数 系数 。 许多 
其 他 Scheme 系统 中 的 整数 除法 可 以 产生 有 限 精度 的 十 进 制 数 ， 这 时 可 能 就 无 法 得 到 合法 的 因子 了 。 
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手工 追踪 9cd-terms 在 计算 GCD 或 者 做 除法 时 的 情况 。 


如 果 我 们 对 于 GCD 算 法 采用 下 面 的 修改 ， 就 可 以 解决 练习 2.95 揭 示 出 的 问题 (这 只 能 对 
整数 系数 的 多 项 式 使 用 ) 。 在 GCD 计 算 中 执行 任何 多 项 式 除法 之 前 ， 我 们 先 将 被 除 式 乘 以 一 个 
整数 的 常数 因子 ， 选 择 的 方式 是 保证 在 除 的 过 程 中 不 出 现 分 数 。 这 样 得 到 的 回答 将 比 实际 的 
GCD 多 出 一 个 整 的 常数 因子 ， 但 它 不 会 在 将 有 理 函 数 化 简 到 最 简 形 式 的 过 程 中 造成 任何 问题 。 
由 于 将 用 这 个 GCD 去 除 分 子 和 分 母 ， 所 以 这 个 当 数 因子 会 被 消除 掉 。 

说 得 更 精确 些 ， 如 果 P 和 Q 都 是 多 项 式 , 令 01 是 P 的 次 数 (P 的 最 高 次 项 的 次 数 )， 仿 0, 是 
的 次 数 ， 令 c 是 8 的 首 项 系数 。 可 以 证 明 ， 如 果 我 们 给 P 乘 上 一 个 整数 化 因子 c!+01-%， 得 到 
的 多 项 式 用 div-terms 算 法 除 以 8 将 不 会 引进 任何 分 数 。 将 被 除 式 乘 上 这 样 的 常数 后 除 以 除 
式 ， 这 种 操作 在 某 些 地 方 称 为 已 对 于 @ 的 伪 除 ， 这 样 除 后 得 到 的 余 式 也 被 称 为 伪 余 。 

练习 2.96 

a) 请 实现 过 程 pBseudoremainder~terms， 它 就 像 是 remainder-terms ， 但 是 像 上 
面 所 描述 的 那样 ， 在 调用 div-terms 之 前 ， 先 将 被 除 式 乘 了 整数 化 因子 。 请 修改 gcd- 
terms 使 之 能 使 用 pseudoremainder-terms， 并 检验 现在 9reatest-common- 
divisor 能 否 对 练习 2.95 的 例子 产生 出 一 个 整 系数 的 答案 。 

b) 现在 的 GCD 保 证 能 得 到 整 系数 ， 但 它们 将 比 P1 的 系数 大 ， 请 修改 9cd-terms 使 它 能 从 
答案 的 所 有 系数 中 删除 公 因 子 ， 方法 是 将 这 些 系 数 都 除 以 它们 的 (整数) 最 大 公约 数 。 

至 此 我 们 已 经 状 清 了 如 何 将 一 个 有 理 函 数 化 简 到 最 简 形式 : 

“用 取 自 练习 2.96 的 gcd-terms 版 本 计算 出 分 子 和 分 母 的 GCD , 

“在 你 得 到 了 这 个 GCD 后， 在 用 GCD 去 除 分 子 和 分 母 之 前 ， 先 将 它们 都 乘 以 同一 个 整数 

化 因子 ， 以 使 除 以 这 个 GCD 不 会 引进 任何 非 整数 系数 。 作 为 这 个 因子 ， 你 可 以 使 用 得 到 
的 GCD 的 首 项 系数 的 1 + O01 一 0 次 智 。 其 中 O02 是 这 个 GCD 的 次 数 ，O1 是 分 子 与 分 母 的 次 
数 中 大 的 那 一 个 。 这 将 保证 用 这 个 GCD 去 除 分 子 和 分 母 不 会 引进 任何 分 数 。 

。 这 一 操作 得 到 的 结果 将 是 具有 整 系数 的 分 子 和 分 母 。 它 们 的 系数 通常 会 由 于 整数 化 因子 

而 变 得 非常 大 。 所 以 最 后 一 步 是 去 除 这 个 多 余 的 因子 ， 为 此 需要 首先 计算 出 分 子 和 分 母 
中 所 有 系数 的 (整数 ) 最 大 公约 数 ， 而 后 除去 这 个 公约 数 。 

练习 2.97 

a) 请 将 这 一 算法 实现 为 过 程 reduce-terms， 它 以 两 个 项 表 n 和 a 为 参数 ， 返 回 一 个 包含 
nn 和 dd 的 表 ， 它 们 分 别 是 由 n 和 d 通 过 上 面 描述 的 算法 简化 而 得 到 的 最 简 形式 。 另 请 写 出 一 个 
与 adad-poly 类 似 的 过 程 educe-poly，, 它 检查 两 个 多 项 式 是 否 具 有 同样 变 元 。 如 果 是 的 话 ， 
reduce-poly 就 隶 去 其 中 变 元 ， 并 将 问题 交 给 reduce-terms ,最 后 为 Treduce-terms 返 
回 的 表 里 的 两 个 项 表 重 新 附加 上 变 元 。 

b) 请 定义 一 个 类 似 于 reduce-terms 的 过 程 ， 它 完成 的 工作 就 像 是 make-rat 对 整数 做 
的 事情 : 

(define (reduce-integers n d) 


(let ((g (ged n d))) 
(list (/ n g) (/ 4 9)))) 


再 将 reduce 定 义 为 一 个 通用 型 操作 ， 它 调用 apply-generic 完 成 到 reduce-poly (对 于 
polynomial 参 数 ) 或 者 到 reduce-integers (对 scheme-number 参数 ) 的 分 派 。 你 可 
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以 很 容易 让 有 理 数 算术 包 将 分 式 简 化 到 最 简 形 式 ， 采 用 的 方式 就 是 让 make-rat 在 组 合 给 定 
分 子 和 分 母 ， 做 出 有 理 数 之 前 也 调用 reduce。 这 一 系统 现在 就 能 处 理 整 数 或 者 多 项 式 的 有 理 
表达 式 了 。 为 测试 你 的 程序 ， 请 首先 试验 下 面 的 扩充 练习 : 


(define pl (make-polynomial ’x ’((1 1)(0 1)))) 
(define p2 (make-polynomial x °((3 1)(0 -1)))) 
(define p3 (make-polynomial °x ((1 = 1)))) 

(define p4 (make-polynomial °x '((2 1)(0 -1)))) 


(define rfl (make-rational pl p2)) 
(define rf2 (make-rational p3 p4)) 


(add rfl rf2) 
看 看 能 否 得 到 正确 结果 ， 结 果 是 否 正确 地 化 简 为 最 简 形 式 。 


GCD 计 算是 所 有 需要 完成 有 理 函 数 操作 的 系统 的 核心 。 上 面 所 使 用 的 算法 虽然 在 数学 上 
直截了当 ， 但 却 异 常 低 效 。 低 效 的 部 分 原因 在 于 大 量 的 除法 操作 ， 部 分 在 于 由 伪 除 产生 的 巨 
大 的 中 间 系 数 。 在 开发 代数 演算 系统 的 领域 中 ， 一 个 很 活跃 问题 就 是 设计 计算 多 项 式 GCD 的 
更 好 算法 。 


128 一 个 特别 高 效 而 优美 的 计算 多 项 式 GCD 的 方法 由 Richard Zippel 发 明 (1979)。 这 是 一 个 概率 算法 ， 就 像 我 们 
在 第 1 章 讨论 过 的 素数 快速 检查 算法 。Zippel 的 书 (1993) 里 讨论 了 这 个 算法 ， 还 介绍 了 计算 多 项 式 GCD 的 
其 他 一 些 方法 。 


第 3 章 ”模块 化 、 对 象 和 状态 


Bp 使 在 变化 中 ， 它 也 丝毫 未 变 。 
一 一 畔 拉克 立 特 ( Heraclitus ) 
变 得 越 多 ， 它 就 越 是 原来 的 样子 。 


阿尔 芬 斯 . 卡尔 (Alphonse Karr ) 


前 面 两 章 介 绍 了 组 成 程序 的 各 种 基本 元 素 ， 我 们 看 到 了 如 何 把 基本 过 程 和 基本 数据 组 合 
起 来 ， 构 造 出 复合 的 实体 ， 也 从 中 认识 到 ， 在 克服 大 型 系统 的 复杂 性 的 问题 上 ， 抽 象 起 着 至 
关 王 要 的 作用 。 但 是 对 于 没 计 程序 而 言 ， 这 些 于 眉 还 不 够 用， 有 效 的 程序 综合 还 需要 

织 原则 ， 它 们 应 能 指导 我 们 系统 化 地 完成 系统 的 整体 设计 。 特 别 是 需要 一 些 能 够 帮助 我 们 构 
造 起 模块 化 的 大 型 系统 的 策略 ， 也 就 是 说 ， 使 这 些 系 统 能 够 “自然 地 ”划分 为 一 些 具 有 内 聚 
力 的 部 分 ， 使 这 些 部 分 可 以 分 别 进行 开发 和 维护 。 

有 一 种 非常 强 有 力 的 设计 策略 ， 特 别 适 合用 于 构造 那 类 模拟 真实 物理 系统 的 程序 ， 那 就 
是 基于 被 模拟 系统 的 结构 去 设计 程序 的 结构 。 对 于 有 关 的 物理 系统 里 的 每 个 对 象 ， 我 们 构造 
起 一 个 与 之 对 应 的 计算 对 象 ， 对 该 系统 里 的 每 种 活动 ， 我 们 在 自己 的 计算 系统 里 定义 一 种 符 
号 操作 。 采 用 这 一 策略 时 的 希望 是 ， 在 需要 针对 系统 中 的 新 对 象 或 者 新 活动 扩充 对 应 的 计算 
模型 时 ， 我 们 能 够 不 必 对 程序 做 全 面 的 修改 ， 而 只 需要 加 入 与 这 些 对 象 或 者 动作 相对 应 的 新 
的 符号 对 象 。 如 果 我 们 在 系统 的 组 织 方面 做 得 很 成 功 ， 那 么 在 需要 添加 新 特征 或 者 排除 旧 东 
西里 的 错误 时 ， 就 只 需 在 系统 里 的 一 些小 局 部 中 工作 。 

这 样 ， 在 很 大 程度 上 ， 组 织 大 型 程序 的 方式 会 受到 我 们 对 于 被 模拟 系统 的 认识 的 支配 。 
在 这 一 章 里 ， 我 们 要 研究 两 种 特点 很 鲜明 的 组 织 策略 ， 它 们 源 自 对 于 系统 结构 的 两 种 非常 不 
同 的 “世界 观 "。 第 一 种 策略 将 注意 力 集中 在 对 象 上 ， 将 一 个 大 型 系统 看 成 一 大 批 对 象 ， 它 们 
的 行为 可 能 随 着 时 间 的 进展 而 不 断 变 化 。 另 一 种 组 织 策略 将 注意 力 集 中 在 流 过 系统 的 信息 流 
上 ， 非 常 像 电 子 工程 师 观 察 一 个 信号 处 理 系 统 。 

基干 对 象 的 途径 和 基于 流 处 理 的 途径 ， 都 对 程序 设计 提出 了 具有 重要 意义 的 语言 要 求 。 
对 于 对 象 途径 而 言 ， 我 们 必须 关注 计算 对 象 可 以 怎样 变化 而 又 同时 保持 其 标识 。 这 将 迫使 我 
们 抛弃 老 的 计算 的 代 换 模型 ( 见 1.1.5 节 )， 转 向 更 机 械 式 的 ， 理 论 上 也 更 不 容易 把 握 的 计算 的 
环境 模型 。 在 处 理 对 象 、 变 化 和 标识 时 ， 各 种 困难 的 基本 根源 在 于 我 们 需要 在 这 一 计算 模型 
中 与 时 间 搏斗 。 如 果 人 允许 程序 并 发 执行 的 可 能 性 ， 事 情 就 会 变 得 更 困难 许多 。 流 方式 特别 能 
够 用 于 松 解 在 我 们 的 模型 中 对 时 间 的 模拟 与 计算 机 求 值 过 程 中 的 各 种 事件 发 生 的 顺序 。 我 们 
将 通过 一 种 称 为 延 时 来 值 的 技术 做 到 这 一 点 。 


3.1 赋值 和 局 部 状态 
我 们 关于 世界 的 常规 观点 之 ， 就 是 将 它 看 人 聚集 在 一 起 的 许多 独立 对 象 ， 每 个 对 象 
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都 有 自己 的 随 着 时 间 变化 的 状态 。 所 谓 一 个 对 象 “有 状态 ”， 也 就 是 说 它 的 行为 受到 它 的 历 
史 的 影响 。 例 如 一 个 银行 账户 就 具有 状态 ， 对 问题 “我 能 取出 100 元 钱 吗 ? ”的 回答 依赖 于 
它 的 存 入 和 支取 的 交易 历史 。 我 们 可 以 用 一 个 或 几 个 状态 变量 刻画 一 个 对 象 的 状态 ， 在 它 
们 之 中 维持 着 有 关 这 一 对 象 的 历史 ， 即 能 够 确定 该 对 象 当前 行为 的 充分 的 信息 。 在 一 个 简 
单 的 银行 系统 里 ， 我 们 可 以 用 当前 余额 刻画 一 个 账户 的 状态 ， 而 不 必 记 住 这 个 账户 的 全 部 
交易 历史 。 

在 一 个 由 许多 对 象 组 成 的 系统 里 ， 其 中 的 这 些 对 象 极 少 会 是 完全 独立 的 。 每 个 对 象 都 可 
能 通过 交互 作用 ， 影 响 其 他 对 象 的 状态 ， 所 谓 交互 就 是 建立 起 一 个 对 象 的 状态 变量 与 其 他 对 
象 的 状态 变量 之 间 的 联系 。 确 实 ， 如 果 一 个 系统 中 的 状态 变量 可 以 分 组 ， 形 成 一 些 内 部 紧密 
结合 的 子 系统 ， 每 个 子 系统 与 其 他 子 系统 之 间 只 存在 松散 联系 ， 此 时 将 这 个 系统 看 作 是 由 一 
些 独立 对 象 组 成 的 观点 就 会 特别 有 用 。 

对 于 一 个 系统 的 这 种 观点 ， 有 可 能 成 为 组 织 这 一 系统 的 计算 模型 的 有 力 框架 。 要 使 这 样 
的 一 个 模型 成 为 模块 化 的 ， 就 要 求 它 能 分 解 为 一 批 计算 对 象 ， 使 它们 能 够 模拟 系统 里 的 实际 
对 象 。 每 一 个 计算 对 象 必须 有 它 自 己 的 一 些 局 部 状态 变量， 用 于 描述 实际 对 象 的 状态 。 由 于 
被 模拟 系统 里 的 对 象 的 状态 是 随 着 时 间 变 化 的 ， 与 它们 相对 应 的 计算 对 象 的 状态 也 必须 变化 。 
如 果 我 们 确定 了 要 通过 计算 机 里 的 时 间 顺 序 去 模拟 实际 系统 里 时 间 的 流逝 ， 那 么 我 们 就 必须 
构造 起 一 些 计算 对 象 ， 使 它们 的 行为 随 着 程序 的 运行 而 改变 。 特 别 是 ， 如 果 我 们 希望 通过 程 
序 设计 语言 里 常规 的 符号 名 字 去 模拟 状态 变量 ， 那 么 语言 里 就 必须 提供 一 个 赋值 运算 符 ， 使 
我 们 能 用 它 去 改变 与 一 个 名 字 相 关联 的 值 。 | 


3.1.1 局 部 状态 变量 


为 了 说 清楚 这 里 所 说 的 让 一 个 计算 对 象 具 有 随 着 时 间 变 化 的 状态 的 意思 ， 现 在 让 我 们 来 
对 从 一 个 银行 账户 支取 现金 的 情况 做 一 个 模拟 。 我 们 将 用 一 个 过 程 withdraw 完 成 此 事 ， 它 
有 一 个 参数 amount 表 示 支 取 的 现金 量 。 如 果 对 应 于 给 定 的 支取 额 ， 在 相应 的 账户 里 尚 有 足够 
的 余额 ,那么 withdraw 就 返回 支取 之 后 账户 里 剩余 的 款额 ， 否 则 withdraw 将 返回 消息 
Insufficient funds (金额 不 足 )。 举 例 说 ,假定 开始 时 账户 里 有 100 元 钱 ， 在 不 断 使 用 
withdraw 的 过 程 中 我 们 可 能 得 到 下 面 的 响应 序列 : 


(withdraw 25) 
75 


(withdraw 25) 
50 
(withdraw 60) 


"Insufficient funds" 


(withdraw 15) 
35 


在 这 里 可 以 看 到 表达 式 (withdraw 25) 求 值 了 两 次 , 但 它 产生 的 值 却 不 同 。 这 是 过 程 的 
一 种 新 的 行为 方式 。 到 现在 为 止 , 我们 看 到 的 所 有 过 程 都 可 以 看 作 一 些 可 计算 的 数学 函数 的 
描述 ， 对 一 个 过 程 的 调用 将 计算 出 相应 函数 作用 于 给 定 参数 应 得 到 的 值 ， 用 同样 的 实际 参数 


两 次 调用 同一 个 过 程 ， 总 会 产生 出 相同 的 结果 ”。 

为 了 实 Siwitharaw, 我 们 可 以 用 一 个 变量 balance 表 示 账 户 里 的 现金 余额 ， 并 将 
withdraw 定 义 为 一 个 访问 balance 的 过 程 。 过 程 withdraw 检 查 是 否 balance 的 值 至 少 如 
amount 所 需 的 那么 多 ， 如 果 是 ，withdraw 就 从 balance 里 减 去 amount 并 返回 balance 
的 新 值 ， 否 则 withdraw 就 返回 消息 Insufficient funds。 下 面 是 balance 和 
withdaraw 的 定义 : 

(define balance 100) 


(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (~ balance amount) ) 
balance) 
"Insufficient funds") ) 


减少 balance 的 工作 由 下 面 表达 式 完 成 : 

(set! balance (- balance amount)) 
其 中 使 用 了 特殊 形式 set ! ， 其 语法 是 : 

(set! <name> <new-value>) 
这 里 的 <name> 应 是 一 个 符号 ， <new-value> 是 任何 表达 式 。set! 将 修改 <name>， 使 它 的 值 变 
成 求 值 <new-value> 得 到 的 结果 。 在 上 面 例 子 里 ， 我 们 改变 了 balance 的 值 ， 使 它 的 新 值 等 于 
从 balance 的 原 有 值 中 减 去 amount 后 的 结果 '”。 l 

在 过 程 withdraw 里 还 使 用 了 begin 特 殊 形 式 ， 用 于 描述 对 两 个 表达 式 的 求 值 ， 在 于 的 
检测 为 真 时 首先 减少 balance 的 值 ， 最 后 又 返回 balance 的 值 。 一 般 而 言 ， 对 下 面 表 达 式 的 
RAB : 


(begin <exp,> <exp2> ... <exp,>) 
和 将 导致 表达 式 <exp1> 到 <exp 心 按 顺 序 求 值 ， 最 后 一 个 表达 式 <exp 心 的 值 又 将 作为 整个 Degin 形 
式 的 值 返 回 ”。 


虽然 withdraw 能 像 我 们 期 望 的 那样 工作 ， 变 量 balance 却 表现 出 一 个 问题 。 按 照 上 面 
的 描述 ，balance 是 定义 在 全 局 环境 里 的 一 个 名 字 ， 因 此 完全 可 以 自由 地 被 任何 过 程 检查 或 
者 修改 。 如 果 我 们 能 将 balance 做 成 为 withdraw 内 部 的 东西 ， 情 况 就 会 好 得 多 ， 因 为 这 将 
使 withdraw 成 为 唯一 能 直接 访问 balance 的 过 程 ， 任 何其 他 过 程 都 只 能 间接 地 〈 通 过 对 
withdraw 的 调用 ) 访问 palance。 这 样 才 能 更 准确 地 模拟 有 关 的 概念 ， balance 是 一 个 只 
由 withdraw 使 用 的 局 部 状态 变量 ， 用 于 保存 账户 状态 的 变化 轨迹 。 


29 实际 上 这 话 并 不 完全 对 。 一 个 例外 是 1.2.6 节 的 随机 数 生成 器 。 另 一 个 例外 涉及 到 我 们 在 2.4.3 节 引进 的 操作 / 
类 型 表格 ， 其 中 用 同样 参数 两 次 调用 get 得 到 的 值 依赖 于 其 间 对 put 的 调用 。 当 然 ， 在 另 一 方面 ， 在 没有 介 
绍 赋 值 之 前 ， 我 们 将 无 法 自己 创建 起 这 种 过 程 。 

630 set 1! 表达 式 的 值 由 具体 实现 确定 。 通 常 只 应 该 利用 set! 的 影响 而 不 用 它 的 值 。 名 字 set! 也 反应 了 Scheme 
所 用 的 一 种 命名 约定 ， 改 变 变 量 值 (或 者 改变 数据 结构 ， 在 3.3 节 中 将 会 看 到 ) 的 操作 都 被 给 了 一 个 以 惊叹 号 
结尾 的 名字 。 这 类 似 于 用 以 问号 结尾 的 名 字 表 示 谓 词 的 习惯 。 

51 我 们 早已 在 程序 里 使 用 过 begin ， 因 为 Scheme 里 的 过 程 体 本 身 就 可 以 是 表达 式 序列 。 还 有 ， 在 cond 表 达 式 
里 每 个 子 名 中 的 <consequent> 部 分 不 仅 可 以 是 一 个 表达 式 ， 也 可 以 是 表达 式 的 序列 。 


我 们 可 以 通过 下 面 方式 重 写 出 withdraw， 使 balance 成 为 它 内 部 的 东西 ; 
(define new-withdraw 
(let ((balance 100)) 
(lambda (amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds")))) 
这 里 的 做 法 是 用 Let 创 建 起 一 个 包含 局 部 变量 balance 的 环境 ， 并 使 它 约束 到 初始 值 100。 在 
这 个 局 部 环境 里 ， 我 们 用 lambda 创建 了 一 个 过 程 ， 它 以 amount 作 为 一 个 参数 ， 其 行为 就 像 
是 前 面 withdraw 的 过 程 。 通 过 对 表达 式 的 求 值 结果 返回 的 过 程 就 是 new-~withdraw， 它 的 
行为 方式 就 像 是 withdraw ， 但 其 中 的 变量 却 是 任何 其 他 过 程 都 不 能 访问 的 ”“。 

将 set ! 与 局 部 变量 相 结合 ， 形 成 了 一 种 具有 一 般 性 的 程序 设计 技术 ， 我 们 将 一 直 使 用 这 
种 技术 去 构造 带 有 局 部 状态 的 计算 对 象 。 但 是 ,采用 这 一 技术 也 引起 了 一 个 严重 的 问题 : 当 
我 们 最 早 介 绍 过 程 概念 时 ， 也 同时 介绍 了 求 值 的 代 换 模型 ( 见 1.1.5 节 )， 用 它 为 过 程 调 用 的 意 
义 提供 一 种 解释 。 那 时 我 们 说 ， 应 用 一 个 过 程 应 该 被 解释 为 ， 在 将 过 程 的 形式 参数 用 对 应 的 
值 取代 之 后 求 值 这 一 过 程 的 体 。 现 在 就 出 现 新 的 麻烦 : 一 旦 在 语言 里 引进 了 赋值 ， 代 换 就 不 
再 适合 作为 过 程 应 用 的 模型 了 (我 们 将 在 3.1.3 节 看 到 其 中 的 原因 )。 作 为 这 种 情况 的 一 个 结果 ， 
我 们 现在 还 没有 办 法 在 技术 上 理解 为 什么 过 程 new-withdraw 会 有 上 面 所 说 的 行为 方式 。 为 
了 真正 理解 像 Iew-withdraw 这 样 的 过 程 ， 我 们 需要 为 过 程 应 用 开发 一 个 新 模型 。 这 一 模型 
将 在 3.2 节 里 介绍 ， 那 里 还 包括 对 set! 和 局 部 变量 的 解释 。 现 在 我 们 要 首先 检查 new- 
withdraw 所 提出 的 问题 的 几 种 变形 。 

下 面 过 程 make-withdraw 能 创建 出 一 种 “ 提 款 处 理 器 ”。make-withdraw 的 形式 参数 
balance 描 述 了 有 关 账 户 的 初始 余额 值 ”。 


(define (make-withdraw balance) 
(lambda (amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds”"))) 


下 面 用 make-withdzraw 创 建 了 两 个 对 象 : 


(define W1 (make-withdraw 100)) 
(define W2 (make-withdraw 100)) 


(W1 50) 
50 


(W2 70) 
30 


32 按照 程序 设计 语言 的 行 话 ， 变 量 balance 被 称 为 是 封装 在 hew~withdraw 过 程 里 面 。 封 装 也 反应 了 通常 所 
谓 隐藏 原理 的 一 般 性 系统 设计 原则 ; 通过 将 系统 中 不 同 的 部 分 保护 起 来 ， 也 就 是 说 ， 只 为 系统 中 那些 “必须 
知道 ”的 部 分 提供 信息 访问 ， 这 样 就 可 以 使 系统 更 模块 化 ， 更 强健 。 

33 与 上 面 new-withdraw 的 情况 不 同 ， 我 们 不 必 在 这 里 用 let 将 balance 做 成 局 部 变量 ， 因 为 形式 参数 本 身 
就 是 局 部 的 。 在 3.2 节 讨论 了 求 值 的 环境 模型 之 后 ， 这 些 就 会 更 清楚 了 ( 另 见 练习 3.10)。 
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(W2 40) 
"Insufficient funds" 


(W1 40) 
10 
我 们 可 以 看 到 ，W1 和 W2 是 相互 完全 独立 的 对 象 ， 每 一 个 都 有 自己 的 局 部 状态 变量 balance ， 
从 一 个 对 象 提 款 与 男 一 个 毫 无 关系 。. 
我 们 还 可 以 创建 出 除了 提 款 还 能 够 存 和 人 款项 的 对 象 ， 这 样 就 可 以 表示 简单 的 银行 账户 了 。 
下 面 是 一 个 过 程 ， 它 返回 一 个 具有 给 定 初始 余额 的 “银行 账户 对 象 ”: 
(define (make-account balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 
(define (deposit amount) 
” (set! balance (+ balance amount) ) 
balance) 
(define (dispatch m) 
(cond ((eq? m withdraw) withdraw) 
((eq? m ’deposit) deposit) 
(else (error “Unknown request -- MAKE-ACCOUNT" 


m)))) 
dispatch) 


对 于 make-account 的 每 次 调用 将 设置 好 一 个 带 有 局 部 状态 变量 balance 的 环境 ， 在 这 个 环 
境 里 ，make-account 定 义 了 能 够 访问 balance 的 过 程 deposit 和 withdraw,， 另外 还 有 
一 个 过 程 dispatch， 它 以 一 个 “消息 ”作为 输入 ， 返 回 这 两 个 局 部 过 程 之 一 。 过 程 
dispatch 本 身 将 被 返回 ， 作 为 表示 有 关 银 行 账户 对 象 的 值 。 这 正好 就 是 我 们 在 2.4.3 节 已 经 
看 到 过 的 程序 设计 的 消息 传递 风格 ， 当 然 ， 这 里 将 它 与 修改 局 部 变量 的 功能 一 起 使 用 。 

过 程 make-account 可 以 像 下 面 这 样 使 用 : 

(define acc (make-account 100)) 

((acc “withdraw) 50) 

50 


((acc ’withdraw) 60) 
"Insufficient funds" 


{(acc ’deposit) 40) 
90 


((ace ‘withdraw) 60) 
30 


对 acc 的 每 次 调用 将 返回 局 部 定义 的 deposit 或 者 withdraw 过 程 ， 这 个 过 程 随后 被 应 用 于 
给 定 的 amount 。 就 像 nake-withdraw 一 样 ， 对 make-account 的 另 一 次 调用 


(define acc2 (make-account 100)) 


将 产生 出 另 一 个 完全 独立 的 账户 对 象 ， 维 持 着 它 自己 的 局 部 balance。 
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练习 3.1 ”一 个 果 加 器 是 一 个 过 程 ， 反 复 用 数值 参数 调用 它 ， 就 会 使 它 的 各 个 参数 累加 到 
一 个 和 数 中 。 每 次 调用 时 累加 器 将 返回 当前 的 累加 和 。 请 写 出 一 个 生成 累加 器 的 过 程 make- 
accumulator ， 它 所 生成 的 每 个 累加 器 维持 着 一 个 独立 的 和 。 送 给 make-~accumulator 的 
输入 描述 了 有 关 和 数 的 初始 值 ， 例 如 : 

(define A (make-accumulator 5)) 

(A 10) 


15 


(A 10) 
25 


练习 3.2 ”在 对 应 用 程序 做 软件 测试 时 ， 能 够 统计 出 在 计算 过 程 中 某 个 给 定 过 程 被 调用 的 
次 数 常常 很 有 用 处 。 请 写 出 一 个 过 程 make-monitored ， 它 以 一 个 过 程 f 作 为 输入 ,该 过 程 
本 身 有 一 个 输入 。make-monitored 返 回 的 结果 是 第 三 个 过 程 ， 比 如 说 mf ， 它 将 用 一 个 内 
部 计数 器 维持 着 自己 被 调用 的 次 数 。 如 果 mf 的 输入 是 特殊 符号 how-many~calls?。， 那 么 mf 
就 返回 内 部 计数 器 的 值 ， 如 果 输 入 是 特殊 符号 reset-count， 那 么 mf 就 将 计数 器 重新 设置 
为 0， 对 于 任何 其 他 输入 ，mf 将 返回 过 程 E 应 用 于 这 一 输入 的 结果 ， 并 将 内 部 计数 器 加 一 。 例 
如 ， 我 们 可 能 以 下 面 方式 做 出 过 程 sqrt 的 一 个 受 监 视 的 版 本 : 

(define s (make-monitored SGrt) ) 


(s 100) 
10 


(s ’how-many~-calls?) 
1 


练习 3.3 ”请 修改 make-account 过 程 ， 使 它 能 创建 一 种 带 密码 保护 的 账户 。 也 就 是 说 ， 
应 该 让 make~account 以 一 个 符号 作为 附加 的 参数 ， 就 像 : 

(define acc (make-account 100 ’secret-password)) 
这 样 产 生 的 账户 对 象 在 接 到 一 个 请 求 时 ， 只 有 同时 提供 了 账户 创建 时 给 定 的 密码 ， 它 才 处 理 
这 一 请 求 ， 否 则 就 发 出 一 个 抱怨 信息 : 

((acc ’secret-password 'withdraw) 40) 

60 


((ace *some-other-password "deposit) 50) 
"Incorrect password” 


练习 3.4 ”请 修改 练习 3.3 中 的 make~account 过 程 ， 加 上 另 一 个 局 部 状态 变量 ， 使 得 如 
果 一 个 账户 被 用 不 正确 的 密码 连续 访问 了 7 次 ， 它 就 将 去 调用 过 程 call1-the-cops 〈 叫 警 
察 )。 


3.1.2 引进 赋值 带 来 的 利益 


正如 下 面 将 要 看 到 的 ， 将 赋值 引进 所 用 的 程序 设计 语言 ， 将 会 使 我 们 陷入 许多 困难 的 概 
念 问题 的 丛林 之 中 。 但 无 论 如 何 ， 将 系统 看 作 是 一 集 带 有 局 部 状态 的 对 象 ， 也 是 一 种 维护 模 
块 化 设计 的 强 有 力 技术 。 作 为 一 个 简单 实例 ， 现 在 考虑 如 何 设 计 出 一 个 过 程 zand ， 每 次 它 被 
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调用 时 就 会 返回 一 个 随机 选 出 的 整数 。 

“随机 选择 ”的 意思 并 不 清楚 。 其 实 ， 我 们 实际 希望 的 就 是 ， 对 rand 的 反复 调用 将 产生 
出 一 系列 的 数 ， 这 一 序列 具有 均匀 分 布 的 统计 性 质 。 我 们 不 准备 去 讨论 生成 合适 序列 的 方法 ， 
相反 ,现在 假定 我 们 已 经 有 一 个 过 程 rand~update ， 它 的 性 质 就 是 ， 如 果 从 一 个 给 定 的 数 
开始 ， 执 行 下 面 操作 


X2 {rand-update x) 


x3 = (rand-update x,) 
得 到 的 值 序列 x;，x,，x3，… HAA Ba BE 

我 们 可 以 将 rand 实 现 为 一 个 带 有 局 部 状态 变量 x 的 过 程 ， 其 中 将 这 个 变量 初始 化 为 某 个 
固定 值 random-init。 对 rand 的 每 次 调用 算出 当前 x 值 的 rand-update 值 ， 将 这 个 值 返回 
作为 随机 数 ， 并 将 它 存 人 作为 x 的 新 值 。 

(define rand 

(let ((x random-init) ) 
(lambda () 
(set! x (rand-update x)) 
x))) 

当然 ， 即 使 不 用 赋值 ， 我 们 也 可 以 通过 简单 地 直接 调用 Fand-update ， 生 成 同样 的 随机 
数 序列 。 但 是 ， 这 也 就 意味 着 程序 中 任何 使 用 随机 数 的 部 分 都 必须 显 式 地 记 住 ， 需 要 将 x 的 当 
前 值 送 给 rand-~update 作 为 参数 。 要 想 看 看 这 样 做 会 造成 多 少 烦恼 ， 现 在 考虑 一 下 用 随机 
数 实现 一 种 称 为 蒙特 卡 罗 模 拟 的 技术 。 

蒙特 卡 罗 方 法 包括 从 一 个 大 集合 里 随机 选择 试验 样本 ， 并 在 对 这 些 试验 结果 的 统计 佑 计 
的 基础 上 做 出 推断 。 举 例 来 说 ，6/m 是 随机 选取 的 两 个 整数 之 间 没 有 公共 因子 (也 就 是 说 ， 它 
们 的 最 大 公 因 子 是 1 ) 的 概率 。 我 们 可 以 利用 这 一 事实 做 出 的 近似 做 ”“。 为 了 逼 进 r 的 值 ， 我 
们 需要 进行 大 量 的 试验 。 在 每 次 试验 中 随机 选择 两 个 整数 并 检查 它们 的 GCD 是 否 为 ! 。 通 过 这 
一 检查 的 次 数 比率 将 给 出 我 们 对 6/m2 的 估计 值 ， 由 它 就 可 以 得 到 的 近似 值 。 

这 一 程序 的 核心 是 过 程 monte-carlo， 它 以 做 某 个 试验 的 次 数 ， 以 及 这 个 试验 本 身 作为 
参数 。 有 关 试 验 用 一 个 无 参 过 程 表示 ， 返 回 的 是 每 次 运行 的 结果 为 真 或 假 。monte-carlo 
运行 这 个 试验 指定 的 次 数 ， 它 返回 一 个 值 ， 告 知 在 所 做 的 这 些 次 试验 中 得 到 真 的 比例 。 

(define (estimate-pi trials) 

(sqrt (/ 6 (monte-carlo trials cesaro-test)))) 

(define (cesaro-test) 


(= (ged (rand) (rand)) 1)) 


(define (monte-carlo trials experiment) 


4 实现 rand-update 的 一 种 常见 方法 就 是 采用 将 x 更 新 为 ax +# 取 模 严 的 规则 ， 其 中 的 a 、b 和 m 都 是 适 当选 出 的 
整数 。Knuth 1981 的 第 3 章 里 包含 了 有 关 随 机 数 序列 生成 和 建立 其 统计 性 质 的 深入 讨论 。 请 注意 ,rand- 
update 是 计算 一 个 数学 函数 ， 两 次 给 它 同一 个 输入 ， 它 将 产生 出 同一 个 输出 。 这 样 ， 如 果 “ 随 机 ”强调 的 
是 序列 中 每 个 数 与 其 前 面 的 数 无 关 的 话 ， 由 zand-~update 生 成 的 数 序列 肯定 不 是 “随机 的 "。 在 “真正 的 随 
机 性 ”与 所 谓 伪 随 机 序列 (由 定义 良好 的 确定 性 计算 产生 出 的 但 又 具有 适当 统计 性 质 的 序列 ) 之 间 的 关系 是 
一 个 非常 复杂 的 问题 ， 涉 及 到 数学 和 哲学 中 的 一 些 困难 问题 。Kolmogorov 、Solomonoff 和 Chaitin 为 这 些 问题 
做 出 了 很 多 贡献 ， 从 Chaitin 1975 可 以 找到 有 关 的 讨论 。 

DS 这 个 定理 出 自 E. Cesiro ， 见 Knuth 1981 4.5.2 节 的 讨论 和 证 明 。 
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(define (iter trials-remaining trials-passed) 
(cond ((= trials-remaining 0) 
(/ trials-passed trials) ) 


( (experiment) 

(iter (- trials-remaining 1) (+ trials-passed 1))) 
(else 

(iter (- trials-remaining 1) trials-passed)))) 


(iter trials 0)) 
现在 让 我 们 试 一 试 不 用 rand ， 直 接 用 rand-update 完 成 同一 个 计算 。 如 果 我 们 不 使 用 
赋值 去 模拟 局 部 状态 ， 那 么 将 不 得 不 采取 下 面 的 做 法 : 
(define (estimate~pi trials) 
(sqrt (/ 6 (random-gcd-test trials random-init)))) 


(define (random-ged-test trials initial-x) 
(define (iter trials-remaining trials-passed x) 
(let ((xl (rand-update x))) 
(let ((x2 (rand-update x1))) 
(cond ((= trials-remaining 0) 
(/ trials-passed trials)) 
((= (ged xl x2) 1) 
(iter (- trials-remaining 1) 
(+ trials-passed 1) 
x2)) . 
(else 
{iter (- trials-remaining 1) 
trials~passed 


x2)))))) - 
(iter trials 0 initial-x)) | 
虽然 这 个 程序 还 是 比较 简单 的 ， 但 它 却 在 模块 化 上 打开 了 一 些 令 人 感到 很 痛 董 的 缺口 。 
在 上 面 的 第 一 个 使 用 rand 的 程序 里 ,我 们 可 以 将 蒙特 卡 罗 方 法 直接 表述 为 一 个 通用 过 程 
monte-carlo， 它 以 一 个 任意 的 experiment 过 程 为 参数 。 而 在 同一 程序 的 第 二 个 版 本 中 ， 
由 于 没有 随机 数 生 成 器 的 局 部 状态 ,random-9gcd~test 就 必须 显 式 地 去 操作 随机 数 x1 和 Xx2 , 
并 通过 一 个 迭代 过 程 将 x2 送 给 rand-update 作 为 新 的 输入 。 这 种 对 于 随机 数 的 显 式 处 理 动 
作 与 积累 检查 结果 的 结构 交织 在 一 起 。 在 这 里 ， 我 们 在 当前 的 特定 试验 中 使 用 了 两 个 随机 数 ， 
而 其 他 蒙特 卡 罗 试 验 里 完全 可 能 使 用 一 个 或 者 三 个 随机 数 。 甚 至 在 过 程 estimate~pi 的 最 
上 层 ， 也 必须 关心 提供 初始 随机 数 的 问题 。 由 于 内 部 的 随机 数 生成 器 被 暴露 出 来 ， 进 入 了 程 
序 的 其 他 部 分 ， 这 就 使 我 们 很 难 将 蒙特 卡 罗 方 法 的 思想 孤立 出 来 ， 使 之 可 以 应 用 于 其 他 工作 。 
在 程序 的 第 一 个 版 本 里 ， 由 于 通过 赋值 将 随机 数 生 成 器 的 状态 隔离 在 过 程 cand 的 内 部 ， 因 此 
就 使 随机 数 生成 的 细节 完全 独立 于 程序 的 其 他 部 分 了 。 
由 上 面 蒙 特 卡 罗 方法 实例 展示 出 的 一 种 具有 普遍 性 的 现象 是 : 从 一 个 复杂 计算 过 程 中 一 
部 分 的 观点 看 ， 其 他 部 分 都 像 是 在 随 着 时 间 不 断 变 化 ， 它 们 隐藏 起 自己 的 随时 间 变 化 的 内 部 
状态 。 假 设 我 们 希望 写 出 一 个 计算 机 程序 ， 反 应 这 种 系统 分 解 ， 那 么 就 需要 让 计算 对 象 〈 例 
如 银行 账户 和 随机 数 生 成 器 ) 的 行为 随 着 时 间 变 化 ， 用 局 部 状态 变量 去 模拟 系统 的 状态 ， 用 
对 这 些 变量 的 赋值 去 模拟 状态 的 变化 。 
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目前 我 们 可 能 很 想 用 下 面 的 话 作为 这 段 讨 论 的 总 结 : 与 所 有 状态 都 必须 显 式 地 操作 和 传 
递 额外 参数 的 方式 相 比 ， 通 过 引进 赋值 和 将 状态 隐藏 在 局 部 变量 中 的 技术 ， 我 们 能 以 一 种 更 
模块 化 的 方式 构造 系统 。 可 惜 的 是 事情 并 不 是 这 么 简单 ， 我 们 很 快 就 会 看 到 这 一 点 。 

练习 3.5 RF 积分 是 一 种 通过 蒙特 卡 罗 模 拟 估计 定 积分 值 的 方法 。 考 虑 由 谓词 P(x, y) 
描述 的 一 个 区 域 的 面积 计算 问题 ， 该 谓词 对 于 此 区 域内 部 的 点 (x, y) 为 真 ， 对 于 不 在 区 域内 的 
点 为 假 。 举 例 来 说 ,包含 在 以 (5, 7) 为 圆心 半径 为 3 的 圆圈 所 围 成 的 区 域 ， 可 以 用 检查 公式 
(x 一 5 十 (y 一 7&3 是 否 成 立 的 谓词 描述 。 要 估计 这 样 一 个 谓词 所 描述 的 区 域 的 面积 ， 我 们 
应 首先 选取 一 个 包含 该 区 域 的 矩形 。 例 如， 以 (2, 4) 和 (8, 10) 作为 对 角 点 的 矩形 包含 着 上 
面 的 圆 。 需 要 确定 的 积分 也 就 是 这 一 矩形 中 位 于 所 关注 区 域内 的 那个 部 分 。 我 们 可 以 这 样 估 
计 积分 值 ， 随 机 选取 位 于 矩形 中 的 点 (x, y)， 对 每 个 点 检查 P(x, y)， 确 定 该 点 是 否 位 于 所 考 
虑 的 区 域内 。 如 果 试 了 足够 多 的 点 ， 那 么 落 在 区 域内 的 点 的 比率 将 能 给 出 矩形 中 有 关 区 域 的 
比率 。 这 样 ， 用 这 一 比率 去 乘 整个 矩形 的 面积 ， 就 能 得 到 相应 积分 的 一 个 估计 值 。 

将 蒙特 卡 罗 积 分 实现 为 一 个 过 程 estimate-~integral， 它 以 一 个 谓词 p ， 和 矩形 的 上 下 
边界 X1、x2 、Y1T 和 Y2 ， 以 及 为 产生 估计 值 而 要 求 试验 的 次 数 作为 参数 。 你 的 过 程 应 该 使 用 
上 面 用 于 估计 7 值 的 同一 个 nonte-carlo 过 程 。 请 用 你 的 estimate-integral， 通 过 对 
单位 圆 面积 的 度量 产生 出 r 的 一 个 估计 值 。 

你 可 能 发 现 ， 有 一 个 从 给 定 区 域 中 选取 随机 数 的 过 程 非常 有 用 。 下 面 的 random-in- 
range 过 程 利用 1.2.6 节 里 使 用 的 random 实 现 这 一 工作 ， 它 返回 一 个 小 于 其 输入 的 非 负数 。 

(define (random-in-range low high) 

(let ((range (- high low))) 
(+ low (random range)))) 

练习 3.6 ”有 时 也 需要 能 重 置 随机 数 生 成 器 ， 以 便 从 某 个 给 定 值 开始 生成 随机 数 序列 。 请 重 
新 设计 一 个 zand 过 程 ， 使 得 我 们 可 以 用 符号 generate 或 者 符号 reset 作 为 参数 去 调用 它 。 其 
(PAE: (rand ' generate) 将 产生 出 一 个 新 随机 数 ，( (rand ' reset) <new-value>) 
将 内 部 状态 变量 重新 设置 为 指定 的 值 <new-value> 。 通 过 这 样 重 置 状 态 ， 我 们 就 可 以 重复 生成 同 
样 的 序列 。 在 使 用 随机 数 测试 程序 ， 排 除 其 中 错误 时 ， 这 种 功能 非常 有 用 。 


3.1.3 引进 赋值 的 代价 


正如 在 上 面 已 经 看 到 的 ，set! 操 作 使 我 们 可 以 去 模拟 带 有 局 部 状态 的 对 象 。 然 而 ， 这 一 
获 益 也 有 一 个 代价 ， 它 使 得 我 们 的 程序 设计 语言 不 能 再 用 1.1.5 节 介绍 的 过 程 应 用 的 代 换 模型 
解释 了。 进一步 说 ， 任 何 具有 “漂亮 ”数学 性 质 的 简单 模型 ， 都 不 可 能 继续 适合 作为 处 理 程 
序 设 计 语 言 里 的 对 象 和 赋值 的 框架 了 。 

只 要 我 们 不 使 用 赋值 ， 以 同样 参数 对 同一 过 程 的 两 次 求 值 一定 产 生出 同样 的 结果 ， 因 此 
就 可 以 认为 过 程 是 在 计算 数学 函数 。 像 我 们 在 本 书 的 前 两 章 中 所 做 的 那样 ， 不 用 任何 赋值 的 
程序 设计 称 为 函数 式 程序 设计 。 

要 理解 赋值 将 怎样 使 事情 复杂 化 了 ， 现 在 考虑 3.1.1 节 中 make-withdraw 过 程 的 一 个 简 
化 版 本 ， 其 中 不 再 关注 是 否 有 足够 余额 的 问题 : 


6 MIT Scheme 提 供 了 这 个 过 程 。 如 果 给 的 是 精确 整数 (就 像 1.2.6 中 那样 )， 它 返回 一 个 精确 整数 ， 而 如 果 给 它 
一 个 十 进 制 数值 (就 像 在 这 个 练习 里 )， 它 就 返回 一 个 十 进 制 数值 。 


(define (make-simplified-withdraw balance) 
(lambda (amount) 
(set! balance (- balance amount) ) 
balance) ) 


(define W (make-simplified-withdraw 25) ) 


(W 20) 
5 


(W 10) 
-5 


请 将 这 过程 与 下 面 nake_decrement 碍 过 程 做 个 比较 ， 该 过 程 里 没有 用 set1 ， 


(define (make-decrementer balance) 
(lambda (amount) 
(- balance amount))) 


make~decrementer 返 回 的 是 一 个 过 程 ， 该 过 程 从 指定 的 量 balance 中 减 去 其 输入 ， 但 顺 
序 调用 时 却 不 会 像 nake-simplified-withdraw 那样 产生 累积 的 结果 
(define D (make-decrementer 25)) 


(D 20) 
5 


(D 10) 
15 


我 们 可 以 用 代 换 模型 解释 make-decrementer 如 何 工 作 。 举 例 来 说 ， 让 我 们 分 析 一 下 下 面 
表达 式 的 求 值 过 程 : 

{ (make-decrementer 25) 20) 
首先 简化 组 合式 中 的 操作 符 ， 用 25 代 换 make-decrementer 的 体 里 的 balance 。 这 样 就 归 
约 出 了 下 面 的 表达 式 : 

((lambda (amount) (~ 25 amount)) 20) 
随后 应 用 运算 符 ， 用 20 代 换 lambda 表 达 式 体 里 的 amount : 

(~ 25 20) 
最 后 结果 是 5 。 

现在 看 看 ， 如 果 将 类 似 的 代 换 分 析 用 于 make-~simplified-withdraw， 会 出 现 什么 情 
况 : 


{(make-simplified-withdraw 25) 20) 
先 简化 其 中 的 运算 符 ， 用 25 代 换 make-simplified~withdraw 体 里 的 balance,， 这 样 就 
归 约 出 了 下 面 的 表达 式 '”; 


((lambda (amount) (set! balance (- 25 amount)) 25) 20) 


现在 应 用 其 中 的 运算 符 ， 用 20 代 换 L1ambda 表 达 式 体 里 的 amount : 


2 我 们 没有 代 换 set ! 表 达 式 里 的 balance 出 现 ， 因 为 在 set! 里 的 <name> 并 不 求 值 。 如 果 代 换 掉 它 ， 得 到 的 
(set! 25 (- 25 amount)) 根本 就 没有 意义 。 


(set! balance (- 25 20)) 25 
如 果 我 们 坚持 使 用 代 换 模 型 ， 那 么 就 必须 说 ， 这 个 过 程 应 用 的 结果 是 首先 将 palance 设 置 为 
5， 而 后 返回 25 作为 表达 式 的 值 。 这 样 得 到 的 结果 当然 是 错误 的 。 为 了 得 到 正确 答案 ， 我 们 将 
不 得 不 对 balance 的 第 一 个 出 现 (Eset! 作用 之 前 ) 和 它 的 第 二 个 出 现 (Eset! 作用 之 后 ) 
加 以 区 分 ， 而 代 换 模型 根本 无 法 完成 这 件 事 情 。 

这 里 的 麻烦 在 于 ， 从 本 质 上 说 ， 代 换 的 最 终 基 础 就 是 ， 这 一 语言 里 的 符号 不 过 是 作为 值 
的 名 字 。 而 一 旦 引进 了 set:! 和 变量 的 值 可 以 变化 的 想 靶 ， 一 个 变量 就 不 再 是 一 个 简单 的 名 字 
了 。 现 在 的 一 个 变量 索引 着 一 个 可 以 保存 值 的 位 置 ， 而 存储 在 那里 的 值 也 是 可 以 改变 的 。 在 
3.2 节 里 将 会 看 到 ， 在 我 们 的 计算 模型 里 ， 环 境 将 怎样 扮演 着 “位 置 ”的 角色 。 

同一 和 变化 

从 这 里 暴露 出 的 问题 ， 远 远 不 是 简单 地 打破 了 一 个 特定 计算 模型 ， 其 意义 要 更 深远 得 多 。 
一 旦 将 变化 引进 了 我 们 的 计算 模型 ， 许 多 以 前 非常 简单 明了 的 概念 现在 都 变 得 有 问题 了 。 首 
先 考虑 两 个 物体 实际 上 “同一 ”的 概念 。 

假定 我 们 用 同样 的 参数 调用 make-decrementer 两 次 ， 就 会 创建 出 两 个 过 程 : 

(define D1 (make-decrementer 25)) 

(define D2 (make-decrementer 25)) 

D1 和 D2 是 同一 的 吗 ? “是 ”是 一 个 可 以 接受 的 回答 ， 因 为 D1 和 D2 具有 同样 的 计算 行为 一 一 
都 是 同样 的 将 会 从 其 输入 里 减 去 25 的 过 程 。 事 实 上 ， 我 们 确实 可 以 在 任何 计算 中 用 D1 代 赫 D2 而 
不 会 改变 结果 。 

与 此 相对 应 的 是 调用 make-simplified~withdraw 两 次 : 

(define W1 (make-simplified-withdraw 25)) 

(define W2 (make-simplified-withdraw 25)) 

Wl1 和 W2 是 同一 的 吗 ? 显然 不 是 ， 因 为 对 W1 和 W2 的 调用 会 有 不 同 的 效果 ， 下 面 的 交互 显示 出 
这 方面 的 情况 : 


(W1 20) 
5 


(W1 20) 
-15 


(W2 20) 
5 


BWLAN 都 是 通过 对 同样 表达 式 (make-simplified-withdraw 25) 的 求 值 创建 起 
来 的 东西 ， 从 这 个 角度 可 以 说 它们 “同一 ”。 但 如 果 说 在 任何 表达 式 里 都 可 以 用 Wi 代替 W2 ， 
而 不 会 改变 表达 式 的 求 值 结果 ， 那 就 不 对 了 。 

如 果 一 个 语言 支持 在 表达 式 里 “同一 的 东西 可 以 相互 替换 ”的 观念 ， 这 样 替换 不 会 改变 
有 关 表 达 式 的 值 ， 这 个 语言 就 称 为 是 具有 引用 延明 性 。 在 我 们 的 计算 机 语言 里 包含 了 set! 之 
后 ， 也 就 打破 了 引用 透明 性 ， 就 使 确定 能 否 通过 等 价 的 表达 式 代 换 去 简化 表达 式 变 成 了 一 个 
异常 错综复杂 的 问题 了 。 由 于 这 种 情况 ， 对 使 用 赋值 的 程序 做 推理 也 将 变 得 极其 困难 。 

一 旦 我 们 抛弃 了 引用 透明 性 ， 有 关 计 算 对 象 “ 同 一 ”的 意义 问题 就 很 难 形 式 地 定义 清楚 
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了 。 实 际 上 ， 在 我 们 企图 用 计算 机 程序 去 模拟 的 现实 世界 里 ,“ 同 一 ”的 意义 本 身 就 是 很 难 搞 
清楚 的 。 一 般 而 言 ， 我 们 只 能 用 如 下 方式 确定 两 个 看 起 来 同一 的 事物 是 否 确实 是 “同一 个 东 
a”: 改变 其 中 的 一 个 对 象 ， 去 看 另 一 个 对 象 是 否 也 同样 改变 了 。 但 是 ， 如 果 不 能 通过 观察 
“同一 个 ”对 象 两 次 ， 看 看 一 次 观察 中 看 到 的 某 些 对 象 性 质 与 另 一 次 不 同 ， 我 们 又 怎么 能 说 清 
楚 一 个 对 象 是 否 “ 变 化 ”了 呢 ? 所 以 ， 如 果 没 有 有 关 “ 同 一 ”的 某 些 先 验 观念 ， 我 们 也 就 不 
可 能 确定 “变化 ”， 而 不 能 看 到 变化 的 影响 又 无 法 确定 同一 性 。 

现在 举例 说 明 这 一 问题 会 如 何 出 现在 程序 设计 里 。 现 在 考虑 一 种 新 情况 ， 假 定 Peter 和 
Paul1 有 银行 账户 ， 其 中 有 100 块 钱 。 关 于 这 一 事实 的 如 下 模拟 : 


(define peter-acc (make-account 100)) 
(define paul-acc (make-account 100)) 


和 如 下 模拟 之 间 有 着 实质 性 的 不 同 : 
(define peter-acc (make-account 100)) 


(define paul-acc peter-acc) 
在 前 一 个 情况 里 ， 有 关 的 两 个 银行 账户 互 不 相同 。Peter 所 做 的 交易 将 不 会 影响 Paul 的 账户 ， 
反 过 来 也 一 样 。 而 对 于 后 一 种 情况 ， 显 然 ， 由 于 这 里 把 Paul-acc 定 义 为 与 peter-acc 是 同 
一 个 东西 ， 结 果 就 使 现在 Peter 和 Paul 共 有 一 个 共用 的 账户 ， 如 果 Peter 从 Peter-acc 支 取 了 一 
笔 款 ，Paul 就 会 看 到 在 PauL-acc 里 少 了 钱 。 在 构造 计算 模型 时 ， 这 两 种 相近 但 又 不 同 的 情况 
就 可 能 造成 混乱 。 特 别 是 其 中 共享 账户 的 情形 特别 容易 造成 混乱 ， 因 为 在 这 里 ， 同 一 个 对 象 
(那个 银行 账户 ) 具有 两 个 不 同 的 名 字 (Peter-acc 和 Paul-acc )， 如 果 我 们 想 在 程序 里 搜 
索 出 paul-acc 可 能 被 修改 的 所 有 位 置 ， 我 们 还 必须 记 住 ， 也 需要 检查 那些 修改 Peter-acc 
的 地 方 '”。 

有 了 前 面 有 关 “ 同 一 ”和 “变化 ”的 论述 ， 如 果 Peter 和 Paul 只 能 检查 他 们 的 银行 账户 ， 
而 不 能 执行 修改 余额 的 操作 ， 那 么 看 清 这 两 个 账户 是 否 不 同 的 问题 就 需要 仔细 讨论 了 。 一 般 
而 言 ， 如 果 我 们 绝 不 修改 数据 对 象 ， 那 么 就 可 以 将 一 个 复合 数据 对 象 完全 看 作 是 由 其 片段 组 
成 的 一 个 整体 。 例 如 ， 一 个 有 理 数 是 完全 由 它 的 分 子 和 分 母 确定 的 。 如 果 出 现 了 修改 ， 这 一 
观点 也 就 不 再 合法 了 ， 此 时 复合 数据 对 象 有 了 一 个 “标识 ”， 而 它 又 是 与 组 成 这 一 对 象 的 各 片 
段 都 不 同 的 东西 。 即 使 我 们 通过 提 款 修改 了 一 个 账户 的 余额 ， 这 个 账户 仍然 是 “同一 个 ” 账 
户 。 与 此 相反 ， 我 们 也 可 能 有 两 个 银行 账户 ， 它 们 具有 相同 的 状态 信息 。 这 种 复杂 性 是 将 银 
行 账户 看 作 一 个 对 象 而 产生 的 结果 ， 而 不 是 程序 设计 语言 的 问题 。 例 如 ， 通 常 我 们 不 将 一 个 
有 理 数 看 作 具 有 标识 的 可 修改 对 象 ， 并 不 想 修改 其 分 子 并 保持 “同一 个 ”有 理 数 。 


命令 式 程序 设计 的 缺陷 
与 函数 式 程序 设计 相对 应 的 ， 广 泛 采 用 赋值 的 程序 设计 被 称 为 命令 式 程序 设计 。 除 了 会 


8 一 个 计算 对 象 可 以 通过 多 于 一 个 名 字 访 问 的 现象 称 为 别名 。 共 有 银行 账户 的 例子 里 展示 的 是 别名 的 一 种 最 简 
单 情况 。 在 3.3 节 里 ， 我 们 还 将 看 到 一 些 更 复杂 的 例子 ， 例如“ 不同” 数据 结构 共享 某 些 部 分 。 如 果 对 一 个 对 
象 的 修改 可 能 由 于 “副作用 ”而 修改 了 另 一 “不 同 的 ”对 象 ， 因 为 这 两 个 “不 同 ” 对 象 实际 上 只 是 同一 个 对 
象 的 不 同 别名 ， 当 我 们 忘记 这 一 情况 ， 程 序 里 就 可 能 出 现 错误 。 这 种 错误 被 称 作 副 作用 错误 ， 是 特别 难以 定 
位 和 分 析 的 ， 因 此 某 些 人 建议 说 ， 程 序 设计 语言 的 设计 应 该 不 允许 副作用 或 者 别名 (Lampson et al. 1981, 
Morris, Schmidt, and Wadler 1980) , 
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导致 计算 模型 的 复杂 性 之 外 ， 以 命令 式 风格 写 出 的 程序 还 很 容易 出 现 一 些 不 会 在 函数 式 程序 
中 出 现 的 错误 。 举 例 来 说 ， 现 在 重 看 一 下 1.2.1 节 里 的 欠 代 式 求 阶乘 程序 ， 
(define (factorial n) 
(define (iter product counter) 
(if (> counter n) 
product 
(iter (* counter product) 
(+ counter 1)))) 
(iter 1 1)) 


我 们 也 可 以 不 通过 内 部 迭代 循环 传递 参数 ， 而 是 采用 更 命令 式 的 风格 ， 显 式 地 通过 赋值 去 更 
新 变量 product 和 counter 的 值 ; 


(define (factorial n) 
{let ((product 1) 
(counter 1)) 
(define (iter) 
(if (> counter n) 
product 
(begin (set! product (* counter product) ) 
(set! counter (+ counter 1)) 
(iter)))) 
(iter))) 
这 样 做 不 会 改变 程序 产生 的 结果 ， 但 却 会 引进 一 个 很 微妙 的 陷阱 。 我 们 应 该 如 何 确定 两 个 赋 
值 的 顺序 呢 ? 像 上 面 那 样 写 出 的 程序 是 正确 的 ， 但 如 果 以 相反 顺序 写 这 两 个 赋值 : 

(set! counter (+ counter 1)) 

(set! product (* counter product) ) 

就 会 产生 出 与 上 面 不 同 的 错误 结果 。 一 般 而 言 ， 带 有 赋值 的 程序 将 强迫 人 们 去 考虑 赋值 的 相 
对 顺序 ， 以 保证 每 个 语句 所 用 的 是 被 修改 变量 的 正确 版 本 。 在 函数 式 程序 设计 中 ， 这 类 问题 
根本 就 不 会 出 现 '”。 

如 果 考 虚 有 着 多 个 并 发 执行 的 进程 的 应 用 程序 ,命令 式 程序 设计 的 复杂 性 还 会 变 得 更 糟 
料 。 我 们 将 在 3.4 节 回 到 这 个 问题 。 现 在 首先 需要 解决 的 问题 ， 当 然 是 为 涉及 赋值 的 表达 式 提 
供 一 种 计算 模型 ， 以 便 考察 在 模拟 的 设计 中 如 何 使 用 具有 局 部 状态 的 对 象 。 

练习 3.7 ”考虑 如 练习 3.3 所 描述 的 ， 由 make-account 创建 的 带 有 密码 的 银行 账户 对 象 。 
假定 我 们 的 银行 系统 中 需要 一 种 提供 共用 账户 的 能 力 。 请 定义 过 程 make-joint 创 建 这 种 账 
户 。make-joint 应 该 有 三 个 参数 : 第 一 个 是 有 密码 保护 的 账户 ， 第 二 个 参数 是 一 个 密码 ， 
它 必 须 与 那个 已 经 定义 的 账户 的 密码 匹配 ， 人 以 使 make-joint 操 作 能 够 继续 下 去 ， 第 三 个 参 
数 是 新 密码 。make- joint 用 这 一 新 密码 创建 起 对 那个 原 有 账户 的 另 一 访问 途径 。 例 如 ， 如 


39 这 种 看 法 也 说 明 ， 大 部 分 的 引 论 性 程序 设计 课程 采用 高 度 命令 式 风 格 教授 ， 这 确实 是 一 件 令 人 啼笑 皆 非 的 事 

、 情 。 这 一 情况 可 能 源 自 20 世纪 60 年 代 到 70 年 代 中 流行 的 一 种 常见 看 法 的 残存 遗迹 ， 那 种 看 法 说 调用 过 程 的 程 
序 一 定 比 执行 赋值 的 程序 效率 更 低 (Steele (1977) 批驳 了 这 一 论断 )。 还 有 ， 这 种 情况 也 可 能 反应 了 另 一 种 
观点 ， 认 为 让 初学 者 一 步 步 地 看 赋值 比 观察 过 程 调用 更 容易 。 无 论 出 于 什么 原因 ， 它 总 是 给 初学 程序 设计 的 
人 们 增加 了 关注 “我 应 该 把 给 这 个 变量 的 赋值 放 在 另 一 个 之 前 呢 还 是 之 后 ”的 负担 ， 这 会 使 程序 设计 复杂 化 ， 
也 使 其 中 的 主要 思想 变 模糊 了 。 
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果 peter-acc 是 一 个 具有 密码 open-Ssesame 的 银行 帐户， 那么 


(define paul-acc 
(make-joint peter-acc ’open~sesame rosebud) ) 


将 使 我 们 可 以 通过 名 字 Pau1l-acc 和 密码 Fosebud 对 账户 Peter-acc 做 现金 交易 。 你 可 能 和希 
望 修改 自己 对 练习 3.3 的 解 ， 加 入 这 一 新 功能 。 

练习 3.8 ”在 1.1.3 池 定义 求 值 模型 时 我 们 说 过 ， 求 值 一 个 表达 式 的 第 一 步 就 是 求 值 其 中 的 
子 表达 式 。 但 那 时 并 没有 说 明 应 该 按 怎 样 的 顺序 对 这 些 子 表达 式 求 值 〈( 例 如， 是 从 左 到 右 还 
是 从 右 到 左 )。 当 我 们 引进 了 赋值 之 后 ， 对 一 个 过 程 的 各 个 参数 的 求 值 顺序 不 同 就 可 能 导致 不 
同 的 结果 。 请 定义 一 个 简单 的 过 程 f ， 使 得 对 于 (+ (£ 0) (f 1)) 的 求 值 在 对 实际 参数 采 
用 从 左 到 右 的 求 值 顺序 时 返回 0 ， 而 对 实际 参数 采用 从 右 到 左 的 求 值 顺 序 时 返回 ! 。 


3.2 求 值 的 环境 模型 


我 们 在 第 1 章 引进 复合 过 程 时 ， 采 用 求 值 的 代 换 模型 ( 见 1.1.5 节 ) 定义 了 将 过 程 应 用 于 实 
际 参数 的 意义 。 

。 将 一 个 复合 过 程 应 用 于 一 些 实际 参数 ， 就 是 在 用 各 个 实际 参数 代 换 过 程 体 里 对 应 的 形式 

参数 之 后 ， 求 值 这 个 过 程 体 。 

一 旦 我 们 把 赋值 引进 程序 设计 语言 之 后 ， 这 一 定义 就 不 再 合适 了 。 特 别 是 在 3.1.3 节 我 们 
已 经 论证 了 ， 由 于 赋值 的 存在 ， 变 量 已 经 不 能 再 看 作 仅仅 是 某 个 值 的 名 字 。 此 时 的 一 个 变量 
必须 以 某 种 方式 指定 了 一 个 “位 置 "， 相 应 的 值 可 以 存储 在 那里 。 在 我 们 的 新 求 值 模型 里 ， 这 
种 位 置 将 维持 在 称 为 环境 的 结构 中 。 

一 个 环境 就 是 框架 (frame) 的 一 个 序列 ， 每 个 框架 是 包含 着 一 些 约束 的 一 个 表格 (可 能 
为 空 )， 这 些 约束 将 一 些 变量 名 字 关联 于 对 应 的 值 (在 一 个 框架 里 ， 任 何 变量 至 多 只 能 有 一 个 
约束 ) 。 每 个 框架 还 包含 着 一 个 指针 ， 指 向 这 一 框架 的 外 图 环境 。 如 果 由 于 当前 讨论 的 目的 ， 
将 相应 的 框架 看 作 是 全 局 的 ， 那 么 它 将 没有 外 围 环境 。 一 个 变量 相对 于 某 个 特定 环境 的 值 ， 
也 就 是 在 这 一 环境 中 ， 包 含 着 该 变量 的 第 一 个 框架 里 这 个 变量 的 约束 值 。 如 果 在 序列 中 并 不 
存在 这 一 变量 的 约束 ， 那 么 我 们 就 说 这 个 变量 在 该 特定 环境 中 是 无 约束 的 。 

图 3-1 展 示 了 一 个 简单 的 环境 结构 ， 其 中 包含 了 3 个 框架 ， 分 别 用 [、I 和 II 标记 。 在 这 个 
图 里 ，A、B、C 和 D 都 是 环境 指针 ， 其 中 C 和 D 指 向 同一 个 环境 。 变 量 z 和 x 在 框架 IT 里 约束 ， 
而 变量 y 和 x 在 框架 [里 约束 。x 在 环境 D 里 的 值 是 3 ，x 相 对 于 环境 B 的 值 也 是 3。 后 一 情况 应 按 
如 下 方式 确定 : 我 们 首先 检查 序列 中 的 第 一 个 框架 〈 框 架 III) ， 在 这 里 没有 找到 x 的 约束 ， 因 
此 继续 前 进 到 外 围 环境 D 并 在 框架 I 里 找到 了 相应 的 约束 。 在 另 一 方面 ，x 在 环境 A 中 的 值 就 是 
7， 因 为 序列 中 的 第 一 个 框架 (框架) 里 包含 x 与 7 的 约束 。 相 对 于 环境 A ， 我 们 说 在 框架 I 
里 x 与 7 的 约束 让 立 了 框架 I 里 x 与 3 的 约束 。 

坏 境 对 于 求 信 过 程 是 至 关 重 要 的 ， 内 为 它 确定 了 表达 式 于 的 上 下 文 。 实 际 上 ， 我 们 守 
全 可 以 说 ， 在 一 个 程序 语言 里 的 一 个 表达 式 本 身 根本 没有 任何 意义 。 即 使 像 (+ 1 1) 这 样 
极其 简单 的 表达 式 ， 其 解释 也 要 依赖 于 有 关 的 操作 是 在 某 个 上 下 文 里 进行 的 ， 在 那里 + 是 表 
示 加 法 的 符号 。 这 样 ， 在 现在 讨论 的 求 值 模型 中 ， 我 们 将 总 说 菜 个 表达 式 相 对 于 某 个 环境 的 
求 值 。 为 了 描述 与 解释 器 的 交互 作用 ， 我 们 将 始终 假定 存在 着 一 个 全 局 环境 ， 它 只 包含 着 一 

个 框架 (没有 外 围 环境 )， 这 个 环境 里 包含 着 所 有 关联 于 基本 过 程 的 符号 的 值 。 例 如 ， 有 关 + 


3.2 REFERED 163 


图 3-1 一 个 简单 的 环境 结构 


是 表示 加 法 的 符号 这 一 观念 ， 在 这 里 的 表现 就 是 ,符号 + 在 全 局 环境 中 被 约束 到 相应 的 基本 
加 法 过 程 。 l 


3.2.1 求 值 规则 


关于 解释 器 如 何 求 值 一 个 组 合式 的 问题 ， 其 整体 描述 仍然 与 我 们 在 1.1.3 节 中 第 一 次 介绍 
时 完全 一 样 。 
。 如 果 要 对 一 个 组 合 表达 式 求 值 : . 
1) 求 值 这 一 组 合式 里 的 各 个 子 表 达 式 “; 
2) 将 运算 符 子 表达 式 的 值 应 用 干 运算 对 象 子 表达 式 的 值 。 
现在 我 们 要 用 求 值 的 环境 模型 代替 求 值 的 代 换 模型 ， 在 这 一 模型 里 需要 特别 说 明 将 一 个 
复合 过 程 应 用 于 参数 表示 的 是 什么 。 
在 求 值 的 环境 模型 里 ， 一 个 过 程 总 是 一 个 对 偶 ， 由 一 些 代 码 和 一 个 指向 环境 的 指针 组 成 。 
过 程 只 能 通过 一 种 方式 创建 ， 那 就 是 通过 求 值 一 个 Lambda 表 达 式 。 这 样 产 生出 的 过 程 的 代码 
来 自 这 一 1ambda 表 达 式 的 正文 ， 其 环境 就 是 求 值 这 个 Lambda 表 达 式 ， 产 生出 这 个 过 程 时 的 
那个 环境 。 举 个 例子 ， 考 虑 在 全 局 环境 里 求 值 下 面 的 过 程 定 义 : 
(define (square x} 
(* x x)) 
过 程 定义 的 语法 形式 ， 不 过 是 作为 其 基础 的 隐 含 lambda 表 达 式 的 语法 糖衣 ， 上 面 的 定义 就 像 
是 写成 下 面 等 价 的 表示 : 
(define square 
(lambda (x) (* x x))) 


其 中 求 值 (Lambda (x) (* x x))， 并 将 符号 square 约 束 于 这 一 求 值得 到 的 结果 ， 这 些 都 


是 在 全 局 环境 中 完成 的 。 
图 3-2 展 示 的 是 求 值 这 一 define 表 达 式 的 结果 ， 这 里 的 过 程 对 象 是 一 个 序 对 ， 其 代码 部 


MO 赋值 的 存在 给 求 值 规则 的 步骤 1 引进 一 个 微妙 问题。 正如 练习 3.8 所 述 ， 赋 值 的 存在 使 我 们 可 以 写 出 一 些 表达 
式 ， 如 果 以 不 同 的 顺序 对 组 合式 中 各 个 子 表达 式 的 求 值 ， 它 们 就 会 产生 出 不 同 的 值 。 这 样 ， 为 了 更 精确 些 ， 
我 们 就 需要 说 明 步 又 1 的 特定 顺序 ( 例如 从 左 到 右 )。 然 而 ， 这 种 顺序 应 该 总 看 作 是 一 个 实现 细节 ， 我 们 永远 
也 不 要 去 写 依赖 于 特定 顺序 的 程序 。 举 例 来 说 ， 如 果 一 个 复杂 的 编译 器 去 做 程序 的 优化 ， 它 完全 可 能 改变 其 
中 各 子 表达 式 的 求 值 顺序 。 
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其 他 变量 
square: 


(define (square x) 


(* x x)) 


全 局 
环境 


参数 :x 
过 程 体 : (* x x) 
图 3-2 由 在 全 局 环境 中 求 值 (define (square x) 
(* x xX)) 而 产生 的 环境 结构 


分 描述 的 是 一 个 带 有 一 个 形式 参数 x 的 过 程 ， 过 程 体 是 (* x x)。 过 程 对 象 的 环境 部 分 是 一 
个 指向 全 局 环境 的 指针 ， 因 为 产生 这 个 过 程 的 lambda 表 达 式 是 在 爹 局 环境 中 求 值 的 。 这 个 定 
义 在 全 局 框架 中 加 入 了 一 个 新 约束 ， 将 上 述 过 程 对 象 约 束 于 符号 square。 一 般 而 言 ， 
define 建 立定 义 的 方式 就 是 将 新 的 约束 加 入 框架 里 。 

我 们 已 经 看 到 了 创建 过 程 的 有 关 情 况 ， 现 在 就 可 以 描述 过 程 的 应 用 了 。 环 境 模型 说 明 
在 将 一 个 过 程 应 用 于 一 组 实际 参数 时 ， 将 会 建立 起 一 个 新 环境 ， 其 中 包含 了 将 所 有 形式 参数 
约束 于 对 应 的 实际 参数 的 框架 ， 该 框架 的 外 围 环境 就 是 所 用 的 那个 过 程 的 环境 。 随 后 就 在 这 
个 新 环境 之 下 求 值 过 程 的 体 。 

为 了 演示 这 一 规则 的 实施 情况 ， 图 3-3 展 示 了 通过 在 全 局 环境 里 对 表达 式 (square 5) 
求 值 而 创建 起 来 的 环境 结构 ， 其 中 的 Square 是 图 3-2 里 生成 的 过 程 。 这 一 过 程 应 用 的 结果 是 
创建 了 一 个 新 环境 ， 在 图 中 标记 为 E1 。 这 个 环境 从 一 个 框架 开始 ， 框 架 里 包含 着 将 这 个 过 程 
的 形式 参数 x 约束 到 实际 参数 5。 从 这 一 框架 引出 的 指针 说 明 这 个 框架 的 外 围 环 境 就 是 爹 局 环 
境 。 在 这 个 地 方 之 所 以 应 该 选择 全 局 环境 ， 是 因为 它 就 是 作为 square 过 程 对 象 的 一 部 分 的 那 
个 环境 。 现 在 我 们 要 在 E1 里 求 值 过 程 的 体 (* x x) 。 因 为 在 E1 里 x 的 值 是 5， 所 以 求 值 结果 
是 (* 5 5)， 也 就 是 25。 


全 局 其 他 变量 
环境 square: 
(square 5) 


参数 ;x (* x x) 
过 程 体 ; (* x x) 


图 3-3 在 全 局 环境 里 求 值 (square 5) 创建 出 的 环境 
我 们 可 以 把 过 程 应 用 的 环境 模型 总 结 为 下 面 两 条 规则 : 
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* 将 一 个 过 程 对 象 应 用 于 一 集 实 际 参数 ， 将 构造 出 一 个 新 框架 ， 其 中 将 过 程 的 形式 参数 约 

束 到 调用 时 的 实际 参数 ， 而 后 在 构造 起 的 这 一 新 环境 的 上 下 文中 求 值 过 程 体 。 这 个 新 杠 

架 的 外 围 环境 就 是 作为 被 应 用 的 那个 过 程 对 象 的 一 部 分 的 环境 。 

* 相对 于 一 个 给 定 环 境 求 值 一 个 Lambda 表 达 式 ， 将 创建 起 一 个 过 程 对 象 ， 这 个 过 程 对 象 

是 一 个 序 对 ， 由 该 1ambda 表 达 式 的 正文 和 一 个 指向 环境 的 指针 组 成 ， 这 一 指针 指向 的 

就 是 创建 这 个 过 程 对 象 时 的 环境 。 

我 们 也 已 经 说 明了 ， 用 define 定 义 一 个 符号 ， 也 就 是 在 当前 环境 框架 里 建立 一 个 约束 ， 
并 赋予 这 个 符号 指定 的 值 “。 最 后 让 我 们 来 说 明 set ! 的 行为 方式 ， 因 为 一 开始 就 是 由 于 这 个 
操作 的 存在 ， 人 迫使 我 们 引进 上 述 的 环境 模型 。 在 某 个 环境 里 求 值 表达 式 (set! <variable> 
<value> )， 要 求 我 们 首先 在 环境 中 确定 有 关 变 量 的 约束 位 置 ， 而 后 再 修改 这 个 约束 ， 使 之 表示 
这 个 新 值 。 这 也 就 是 说 ,首先 需要 找到 包含 这 个 变量 的 约束 的 第 一 个 框架 ,而 后 修改 这 一 框架 。 
如 果 该 变量 在 环境 中 没有 约束 ，set! 将 报告 一 个 错误 。 

这 些 求 值 规则 显然 比 代 换 规则 复杂 了 许多 ， 但 也 还 是 相当 直截了当 的 。 进 一 步 说 ， 虽 然 
这 一 求 值 模型 比较 抽象 ， 但 它 却 为 解释 器 对 于 表达 式 求 值 的 过 程 提供 了 一 个 正确 的 描述 。 在 
第 4 章 里 我 们 将 看 到 ， 这 一 模型 如 何 能 成 为 实现 一 个 可 以 工作 的 解释 器 的 蓝图 。 下 面 几 节 将 要 
分 析 几 个 具有 冰释 意义 的 实例 ， 以 进一步 揭示 这 一 模型 的 各 方面 细节 。 


3.2.2 简单 过 程 的 应 用 


在 1.1.5 节 里 介绍 代 换 模型 时 ， 我 们 展示 了 在 有 下 面 的 过 程 定义 之 后 ,组 合式 (£ 5) 怎 
样 求 值得 到 136，: 
(define (square x) 
(* x x)) 
(define (sum-of-squares x y) 
(+ (square x) (square y))) 
(define (f a) 
(sum-of-squares (+ a 1) (* a 2))) 
现在 我 们 用 环境 模型 来 分 析 同 一 个 实例 。 图 3-4 展 示 出 在 全 局 环境 里 对 | square flsum- 
of -squares 的 定义 求 值 后 创建 起 的 三 个 过 程 对 象 ， 每 个 过 程 对 象 都 由 一 些 代码 和 一 个 指向 
全 局 环境 的 指针 组 成 。 . 
在 图 3-5 里 ， 我 们 看 到 的 是 由 对 (E 5) 的 求 值 创建 起 的 环境 结构 。 对 于 f 的 调用 创建 
一 个 新 环境 El1 ， 它 开始 于 一 个 框架 ， 其 中 f 的 形式 参数 a 被 约束 到 实 参 5 。 我 们 需要 在 El 里 求 
值 f 的 体 : 
(sum-of-squares (+ a1) (* a 2)). 
在 求 值 这 个 组 合式 时 ， 首 先 需 要 求 值 其 中 的 子 表达 式 。 第 一 个 子 表达 式 eum-of-squares 以 
一 个 过 程 对象 为 值 〈 请 注意 看 这 个 值 是 如 何 找到 的 : 首先 在 E1 的 第 一 个 框架 中 找 ， 这 里 没有 
包含 sum-of-sqgquares 的 约束 。 而 后 进入 有 关 的 外 围 环境 ， 即 全 局 环境 ， 并 在 那里 找到 了 图 


) 如 果 在 当前 框架 中 已 经 有 了 对 这 一 变量 的 约束 ， 那 么 该 约束 就 会 改变 。 这 样 做 比较 方便 ， 因 为 它 允许 符号 的 
重新 定义 ， 这 当然 也 就 意味 着 可 以 用 define 去 修改 符号 的 值 ， 因 此 ， 在 这 里 没有 显 式 使 用 set! 却 带 来 了 同 
样 的 问题 。 正 因为 此 ， 有 些 人 觉得 在 出 现 重 新 定义 时 应 该 发 出 错误 或 者 警告 信息 。 
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sum-of-squares: 


全 局 square: 
环境 
大 
参数 : a 数 : x 参数 : x, Y 
过 程 体 : (sum-of-squares) 过 程 体 : (* x x) æ: (+ (square x) 
(+ a 1) (square y) 


(* a 2)) 


图 3-4 全 局 框架 里 的 几 个 过 程 对 象 


(sum-of-squares (+ (square x) (* x x) (* x x) 
(+ al) (square y) 
(* a 2)) 


图 3-5 使 用 图 3-4 里 的 过 程 求 值 (上 5 ) 创建 的 环境 


3-4 所 示 的 约束 )。 对 另外 两 个 表达 式 的 求 值 是 应 用 两 个 基本 运算 符 + 和 * ， 通 过 求 值 组 合式 
(+a 1) 和 (* a 2) 分 别 得 到 6 和 10。 
现在 需要 把 过 程 对 象 sum-of-squares 应 用 于 实 参 6 和 10， 这 时 得 到 的 是 一 个 新 环境 E2， 
形式 参数 x 和 y 在 其 中 约束 于 对 应 的 实际 参数 。 现 在 要 做 的 就 是 在 E2 里 求 值 组 合式 (+ 
(square x) (square y))。 这 进一步 要 求 我 们 求 值 (square x), 其 中 的 square 从 全 
局 环境 中 找到 ， 而 x 是 6。 我 们 又 需要 设 定 另 一 个 新 环境 E3 ， 其 中 将 Xx 约 东 到 6， 并 在 这 里 求 值 
square 的 体 (* x x)。 作 为 sum-of-squares 应 用 的 男 一 部 分 我们 还 必须 求 值 子 表达 
式 (square y)， 其 中 的 y 是 10。 这 是 对 square 的 第 二 个 调用 ， 它 创建 起 另 一 个 环境 E4， 
其 中 square 的 形式 参数 + 约束 到 10。 我 们 必须 在 E4 里 求 值 (* x x). 
这 里 应 注意 的 要 点 是 ， 对 于 square 的 每 个 调用 都 会 创建 起 一 个 包含 着 x 的 约束 的 新 环境 。 
我 们 可 以 看 到 ， 这 里 就 是 通过 不 同 的 框架 ， 去 维持 所 有 名 字 为 x 的 局 部 变量 互 不 相同 。 还 请 注 
意 ， 由 square 创 建 的 每 个 框架 都 指向 全 局 环境 ， 因 为 这 就 是 对 应 于 square 的 过 程 对 象 所 指 
各 个 子 表达 式 求 值 后 返回 得 到 的 值 。 对 square 的 两 个 调用 产生 的 值 被 sum~of-squares 
加 起 来 ， 作 为 求 值 的 结果 返回 。 因 为 我 们 在 这 里 关心 的 是 环境 结构 ， 因 此 将 不 详细 考察 这 些 返 
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回 值 如 何在 调用 之 间 传 递 的 问题 。 当 然 ， 这 件 事情 也 是 求 值 过 程 中 的 一 个 重要 方面 ， 我 们 将 在 
第 5 章 回 到 这 一 问题 。 
练习 3.9 在 1.2.1 节 里 ， 我 们 用 代 换 模型 分 析 了 两 个 计算 阶乘 的 函数 ， 递 归 版 本 ， 


(define (factorial n) 
(if (=n 1) 
1 
(* n (factorial (~ n 1))))) 
FIERA: 
(define (factorial n) 


(fact-iter 1 1 n)) 


(define (fact-iter product counter max-count) 
(if (> counter max-count) 
product 
({fact-iter (* counter product) 
(+ counter 1) 
max-count))) 


请 说 明 采 用 过 程 factorial 的 上 述 版 本 求 值 (factorial 6) 时 所 创建 的 环境 结构 '“。 
3.2.3 ”将 框架 看 作 局 部 状态 的 展台 


现在 可 以 从 环境 模型 出 发 ， 看 看 可 以 怎样 用 过 程 和 赋值 表示 带 有 局 部 状态 的 对 象 。 作 为 
一 个 例子 ， 还 是 考虑 取 自 3.1.1 节 的 由 调用 下 面 过 程 创建 的 “ 提 款 处 理 器 “: 


(define (make-withdraw balance) 
(lambda (amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds"))) 


让 我 们 仔细 看 看 下 式 的 求 值 : 
(define Wl (make-withdraw 100)) 


而 后 做 : 


(W1 50) 
50 


图 3-6 展 示 了 在 全 局 环境 里 定义 make-withdraw 过 程 的 结果 。 这 一 求 值 产生 出 一 个 过 程 对 象 ， 
其 中 包含 着 一 个 指向 全 局 环境 的 指针 。 到 目前 为 此 ， 在 这 个 实例 里 还 没有 出 现任 何 与 前 面 看 
过 的 实例 不 同 的 东西 ， 除 了 过 程 体 本 身 也 是 一 个 Lambda 表 达 式 之 外 。 

计算 中 的 有 趣 现象 出 现在 将 过 程 mnake-withdraw 应 用 于 一 个 参数 的 时 候 : 

(define Wl (make-withdraw 100)) 
与 平常 一 样 ， 我 们 在 开始 时 设置 了 环境 E1 ， 其 中 将 形式 参数 palance 约 束 到 实 参 100 ， 并 在 
这 一 环境 里 求 值 nake-withdraw 的 体 ， 也 就 是 那个 Lambda 表 达 式 。 这 一 求 值 构造 起 一 个 新 


142 这 种 环境 模型 还 不 能 澄清 我 们 在 1.2.1 节 的 断言 ， 那 里 说 解释 器 使 用 了 尾 递 归 ， 只 需要 常量 空间 就 可 以 执行 像 
fact-iter 这 样 的 过 程 。 我 们 将 在 5.4 节 里 讨论 解释 器 的 控制 结构 时 处 理 尾 递归 问题 。 
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过 程 对 象 ， 其 代码 由 这 个 lambda 描 述 ， 而 它 的 环境 就 是 E1 ， 也 就 是 求 值 这 个 lambda 生成 该 
过 程 对 象 时 的 那个 环境 。 这 样 做 出 的 过 程 对 象 被 作为 调用 make-withdraw 的 返回 值 ， 在 全 
局 环境 里 约束 于 W1 ， 因 为 对 这 个 define 本 身 的 求 值 是 在 全 局 环境 里 进行 的 。 图 3-7 显 示 出 这 
样 做 的 结果 得 到 的 环境 结构 。 


全 局 
环境 


make-withdraw: 


参数 : balance 
过 程 体 : (lambda (amount) 
(if (>=balance amount) 
(begin (set! balance (-balance amount)) 
balance) 
"Insufficient funds")) 


图 3-6 在 全 局 环境 里 定义 make-withdraw 的 结果 


make-withdraw: 


全 局 


环境 Wl: 


100 


balance: 


参数 ; balance 
过 程 体 : 2 we 


参数 : amount 
过 程 体 : (if (>=balance amount) 
(begin {set ! balance (- balance amount)) 
balance) 
"Insufficient funds")) 


图 3-7 求 值 (define W1 (make-withdraw 100)) 的 结果 


现在 让 我 们 来 分 析 将 W1 应 用 于 一 个 参数 时 所 发 生 的 情况 : 


(W1 50) 
50 


此 时 首先 要 构造 出 一 个 框架 ，W1 的 形式 参数 amount 在 其 中 约束 到 实 参 0。 需要 注意 的 最 关 
键 一 点 是 ， 这 个 框架 的 外 围 环境 并 不 是 全 局 环境 ,而 是 环境 E1， 因 为 它 才 是 由 过 程 对 象 W1 所 
指定 的 环境 。 现 在 我 们 需要 在 这 个 新 环境 里 求 值 下 面 的 过 程 体 : 


(if (>= balance amount) 
(begin (set! balance (- balance amount ) ) 
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balance) 
"Insufficient funds") 


这 样 做 得 到 的 环境 结构 如 图 3-8 所 示 。 在 被 求 值 的 表达 式 里 引用 了 amount 和 balance， 其 中 
的 amount 在 环境 里 的 第 一 个 框架 里 找到 ， 而 balance 则 沿 着 外 围 环 境 指针 向 前 在 E1 里 找 
到 。 


make-withdraw: . 


全 局 


环境 Wl: 


balance: 100 


参数 : amount (if (>=balance amount) 
过 程 体 : 2 we (begin 
(set ! balance 
(- balance amount) ) 
balance) 
"Insufficient funds") ) 


图 3-8 通过 应 用 过 程 对 象 民 创建 起 的 环境 

在 执行 Set! 时 ， 位 于 El 里 balance 的 约束 就 被 修改 了 。 对 W1 的 调用 完成 时 ,balance 
是 50， 而 包含 着 这 个 balance 的 框架 仍 由 过 程 对 象 W1 指 着 。 约 束 amount 的 那个 框架 〈 我 们 
曾经 在 其 中 执行 了 修改 的 balance 代 码 ) 现在 已 经 无 关 紧 要 了 ， 因 为 构造 它 的 过 程 已 经 结束 ， 
环境 中 的 任何 一 部 分 都 不 再 包含 指向 这 个 框架 的 指针 。 在 下 次 W1 被 调用 时 ， 这 一 过 程 又 会 构 
造 起 另 一 个 新 框架 ， 其 中 建立 起 amount 的 一 个 新 约束 ， 这 一 框架 的 外 围 环 境 还 是 E1 。 根 据 
上 面 的 分 析 ， 我 们 可 以 看 到 E1 怎 样 起 着 保存 过 程 对 象 的 局 部 状态 变量 的 “位 置 ” 的 作用 。 图 
3-9 展 示 的 是 调用 Wl1 之 后 的 情景 。 


make-withdraw: .. 


全 局 


一 一 2 

环境 Wl: 
参数 : amount 
wea: . - 


图 3-9 调用 员 1 之 后 的 环境 
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现在 来 看 我 们 通过 再 次 调用 make-withdraw， 创 建 起 第 二 个 “ 提 款 ”对 象 的 情况 : 

(define W2 (make-withdraw 100)) 
这 样 做 产生 出 的 环境 结构 如 图 3-10 所 示 ， 其 中 显示 了 W2 是 另 一 个 过 程 对 象 ， 也 就 是 说 ， 是 一 
些 代码 和 一 个 环境 的 序 对 。 通 过 调用 make-withdraw 为 W2 创 建 起 的 环境 是 E2， 它 包含 了 一 
个 框架 ， 其 中 包含 着 它 自己 的 对 balance 的 局 部 约束 。 在 另 一 方面 ,Wl1 和 W2 具有 相同 的 代 
码 ， 也 就 是 在 make-withdraw 体 内 的 那个 ambda 表 达 式 所 确定 的 代码 “。 我 们 从 这 里 就 可 
以 看 到 ， 为 什么 W1 和 W2 在 行为 上 完全 是 互相 独立 的 对 象 。 对 W1 的 调用 引用 的 是 保存 在 El 里 
的 状态 变量 balance ， 而 对 W2 的 调用 引用 的 是 E2 里 的 balance。 这 样 ， 修 改 一 个 对 象 的 局 
部 状态 当然 不 会 影响 到 另 一 个 对 象 。 


make-withdraw: ... 
W2: 
Wl: 


全 局 
环境 


balance: 100 


balance: 50 


参数 : amount 
过 程 体 : e.. 


图 3-10 使 用 (define W2 (make-withdraw 100)) 创建 第 2 个 对 象 


练习 3.10 “在 make-withdraw 过 程 里 ， 局 部 变量 balance 是 作为 make-withdraw 的 
参数 创建 的 。 我 们 也 可 以 显 式 地 通过 使 用 1et 创建 局 部 状态 变量 ， 就 像 下 面 所 做 的 : 
(define (make-withdraw initial-amount) 
(let ((balance initial-amount)) 
(lambda (amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds")))) 


请 重 温 1.3.2 节 ，1let 实 际 上 是 一 个 过 程 调 用 的 语法 糖衣 : 
(let ((<var><exp>)) <body>) 
它 将 被 解释 为 
((lambda (<var>) <body>) <exp>) 
的 另 一 种 语法 形式 。 请 用 环境 模型 分 析 make-withdraw 的 这 个 版 本 ， 画 出 像 上 面 那样 的 图 
示 ， 说 明 调 用 : 


18 究 竞 W1 和 W2 是 共享 计算 机 里 保存 的 同一 段 物理 代码 ， 还 是 各 自 维持 自己 的 一 份 拷贝 ， 则 完全 是 一 种 实现 细 
节 。 我 们 在 第 4 章 实现 的 解释 器 里 采用 共享 代码 的 方式 。 
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(define W1 (make-withdraw 100)) 

(W1 50) 

(define W2 (make-withdraw 100))] 
时 的 情况 并 阐释 make-withdraw 的 这 两 个 版 本 创建 出 的 对 象 具 有 相同 的 行为 。 两 个 版 本 的 
环境 结构 有 什么 不 同 吗 ? 


3.2.4 内 部 定义 
1.1.8 节 介绍 了 过 程 可 以 有 内 部 定义 的 思想 ， 这 样 就 引入 了 块 结构 ， 就 像 下 面 计算 平方 根 
的 过 程 里 的 情况 : 


(define (sqrt x) 
(define (good-enough? guess) 
(< (abs (- (Square guess) x)) 0.001)) 
(define (improve guess) 
(average guess (/ x guess))) 
(define (sqrt-iter guess) 
(if (good-enough? guess) 
guess 
(sqrt-iter (improve guess)))) 


(sqrt-iter 1.0)) 
现在 我 们 就 可 以 利用 上 面 介绍 的 环境 模型 ， 去 考察 为 什么 这 些 内 部 定义 具有 所 需要 的 行为 。 
图 3-11 所 示 的 是 在 表达 式 (sqrt 2) 求 值 中 的 一 点 ， 在 那里 ， 内 部 过 程 good~enough? 被 第 
一 次 调用 ， 其 中 的 guess 等 于 1。 


x32 
good-enough? 
improve: ... 
sqrt-iter: ... 


El 


SR: x 
过 程 体 : (define good-enough? ... 
(define improve ...) 
(define sqrt-iter ...) 
(sqrt-iter 1.0) 
E2 


参数 : guess 
过 程 体 : (< (abs...) 


oe) 


调用 good-enough? 


调用 sqrt-iter 


E3 


3-11 带 有 内 部 定义 的 sqrt 过 程 
请 注意 这 时 的 环境 结构 。s9qrt 是 全 局 环境 里 的 一 个 符号 ， 它 被 约束 到 一 个 过 程 对 象 ， 与 


之 关联 的 环境 就 是 全 局 环境 。 在 sgqzt 被 调用 时 ， 形 成 了 一 个 新 的 环境 El1 ， 它 将 成 为 全 局 环境 
的 下 属 。 在 这 里 ， 参 数 X 约 束 到 2， 而 后 在 E1 里 求 值 sgzt 的 体 。 由 于 sgzrt 体 中 的 第 一 个 表达 
式 是 : 

(define (good-enough? guess) 

(< (abs (- (square guess) x)) 0.001)) 
对 这 一 表达 式 的 求 值 在 环境 E1 里 定义 出 过 程 good-enough? 。 说 得 更 准确 一 些 ， 符 号 good- 
enough? 被 加 入 El 的 第 一 个 框架 里 ， 并 被 约束 于 一 个 过 程 对 象 ， 其 关联 环境 是 E1 。 与 此 类 似 ， 
improve 和 sqrt~iter 也 在 El 里 定义 为 过 程 。 为 了 简洁 起 见 ， 在 图 3-11 里 只 显示 了 约束 于 
good-enough? 的 过 程 对 象 。 . 

在 定义 好 各 个 局 部 过 程 之 后 ， 表 达 式 (sqrt-iter 1.0) 被 求 值 ， 还 是 在 环境 El 里 。 
因此 ， 调 用 在 El 里 约束 于 sqrt~iter 的 过 程 对 象 时 ， 我 们 以 1 作为 实际 参数 。 这 一 调用 创建 
了 另 一 个 环境 E2， 在 其 中 sqrt-iter 的 形 参 9uess 被 约束 到 1。sqrt-iter 转 而 (从 E2 里 ) 
以 guess 的 值 作为 实际 参数 调用 good-enough? ,这 就 建立 了 另 一 个 环境 E3 ,在 这 个 环境 里 ， 
(good-enough? 的 参数 ) guess 被 约束 到 1。 虽 然 Sqrt-iter 和 good-enough? 里 都 有 名 
字 为 9uess 的 形 参 ， 但 它们 是 两 个 不 同 的 局 部 变量 ， 位 于 不 同 的 框架 里 。 还 有 ，E2 和 E3 都 以 
El 作为 其 外 围 环境 ， 这 是 因为 过 程 sqrt-iter 和 9ood-~enough? 都 以 E1 作 为 自己 的 环境 部 
分 。 这 种 情况 造成 的 一 个 后 果 就 是 ， 出 现在 900d-enough? 体 内 部 的 符号 x 将 引用 出 现在 El 
里 的 x 约束 ， 也 就 是 原来 sqrt 被 调用 时 的 那个 x 的 值 。 这 样 ， 环 境 模 型 已 经 解释 清楚 了 以 局 部 
过 程 定义 作为 程序 模块 化 的 有 用 技术 中 的 两 个 关键 性 质 : 

。 局 部 过 程 的 名 字 不 会 与 包容 它们 的 过 程 之 外 的 名 字 互 相干 扰 ， 这 是 因为 这 些 局 部 过 程 名 

都 是 在 该 过 程 运行 时 创建 的 框架 里 面 约束 的 ， 而 不 是 在 全 局 环境 里 约束 的 。 

。 局 部 过 程 只 需 将 包含 着 它们 的 过 程 的 形 参 作为 自由 变量 , 就 可 以 访问 该 过 程 的 实际 参数 。 

这 是 因为 对 于 局 部 过 程 体 的 求 值 所 在 的 环境 是 外 围 过 程 求 值 所 在 的 环境 的 下 属 。 

练习 3.11 ”在 3.2.3 节 里 我 们 看 到 ， 环 境 模型 能 如 何 用 于 描述 带 有 局 部 状态 的 过 程 的 行为 ， 
现在 我 们 又 看 到 局 部 定义 如 何 工作 。 一 个 典型 的 消息 传递 过 程 包含 这 两 个 方面 。 现 在 请 考虑 
3.1.1 节 的 银行 账户 过 程 : 

(define (make-account balance) 

(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(define (dispatch m) 
(cond ((eq? m ’withdraw) withdraw) 
((eq? m ’deposit) ‘deposit) 
(else (error “Unknown request -- MAKE-ACCOUNT" 


m)))) 
dispatch) 


请 设法 展示 由 下 面 交 互 序列 生成 的 环境 结构 : 
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(define acc (make-account 50)) 
((ace ’deposit) 40) 
90 


((ace ’withdraw) 60) 
30 


acc 的 局 部 状态 保存 在 哪里 ?假定 我 们 定义 了 另 一 个 账户 : 


(define acc2 (make-account 100)) 


这 两 个 账户 的 局 部 状态 又 是 如 何 保持 不 同 的 ?环境 结构 中 的 哪些 部 分 被 acc 和 acc2 共 享 ? 
3.3 用 变动 数据 做 模拟 


第 2 章 以 复合 数据 作为 构造 具有 多 个 部 分 的 计算 对 象 的 方法 ， 用 于 模拟 真实 世界 里 具有 若 
干 不 同 侧面 的 对 象 。 在 那 一 章 里 ， 我 们 介绍 了 数据 抽象 的 系统 方法 ， 根 据 这 种 方法 ， 各 种 数 
据 结构 应 该 用 构造 函数 (用 于 创建 数据 对 象 ) 和 选择 函数 (用 于 访问 复合 数据 对 象 中 的 各 个 
部 分 ) 来 描述 。 但 是 ， 我 们 现在 又 了 解 到 了 有 关 数 据 结构 的 另外 一 些 情况 ， 这 是 第 2 章 中 没有 
涉及 到 的 。 为 了 模拟 那些 由 具有 不 断 变化 的 状态 组 成 的 系统 ， 我 们 除了 需要 做 复合 数据 对 象 
的 构造 和 成 分 选择 之 外 ， 还 可 能 需要 修改 它们 。 为 了 模拟 具有 不 断 变 化 的 状态 的 复合 对 象 ， 
我 们 将 设计 出 与 之 对 应 的 数据 抽象 ， 使 其 中 不 但 包含 了 选择 函数 和 构造 函数 ， 还 有 包含 一 些 
称 为 改变 函数 的 操作 ， 这 种 操作 能 够 修改 有 关 的 数据 对 象 。 举 例 来 说 ， 对 银行 系统 的 模拟 就 
需要 修改 账户 的 余额 。 这 样 ， 表 示 银 行 账户 的 数据 结构 可 能 就 需要 接受 下 面 的 操作 : 

(set-balance! <account> <new-value>) 

它 将 根据 给 定 的 新 值 修改 指定 账户 的 余额 。 定 义 了 改变 函数 的 数据 对 象 称 为 变动 数据 对 
象 。 
第 2 章 引进 了 序 对 作为 构造 复合 数据 的 通用 “ 粘 接 剂 "。 我 们 在 这 一 节 的 开始 也 首先 定义 
对 于 序 对 的 改变 函数 ， 使 序 对 能 够 作为 构造 变动 数据 对 象 的 基本 构件 。 这 些 改变 函数 能 够 极 
大 地 提升 序 对 的 表达 能 力 ， 使 人 能 构造 出 (我们 在 2.2 节 里 使 用 的 ) 序列 和 树 之 外 的 其 他 数据 
结构 。 我 们 还 要 给 出 一 些 模拟 的 实例 ， 其 中 使 用 了 带 有 局 部 状态 的 对 象 的 集合 ， 以 便 模拟 复 
杂 系 统 的 行为 。 


3.3.1 变动 的 表 结 构 


针对 序 对 的 基本 操作 一 -cons 、car 和 cdr 一 一 能 用 于 构造 表 结 构 ， 或 者 选 出 表 结 构 中 
的 各 个 部 分 ,但 它们 不 能 修改 表 结构 。 我 们 至 今 用 过 的 其 他 表 操 作 〈 例 如 append 和 1ist ) 
也 都 是 如 此 ， 因 为 它们 都 可 以 基于 cons、car 和 cdr 定 义 出 来 。 要 修改 表 结 构 就 需要 新 的 
操作 。 - 
针对 序 对 的 基本 改变 函数 是 set-car! 和 set-cdr!。 set-car! 要 求 两 个 参数 ， 其 中 的 
第 一 个 参数 必须 是 一 个 序 对 。set-car1 修 改 这 个 序 对 ， 将 它 的 ca 指针 替换 为 指向 set- 
car! 的 第 二 个 参数 的 指针 '*。 

作为 一 个 例子 ， 我 们 假定 x 约束 到 表 ((a b) c d), y 约 束 到 表 (e f), 如 图 3-12 所 示 。 


4 set-car! 和 set-cdr! 的 返回 值 依赖 于 具体 实现 。 与 set! 一 样 ， 我 们 只 应 该 利用 它们 的 效果 。 


对 表达 式 (set-car! x y) 的 求 值 将 修改 x 约束 的 那个 表 ， 将 它 的 car 用 y 的 值 取代 。 这 一 
操作 的 结果 如 图 3-13 所 示 。 从 这 个 图 中 ， 我们 可 以 看 到 结构 x 被 修改 了 ， 现在 它 将 被 打印 为 
((e £) c qd)。 原 来 由 被 取代 的 指针 标识 的 那个 表示 表 (a b) 的 序 对 ,现在 已 经 从 原来 的 

结构 中 摘除 了 '$。 


一 ?| el 
le} E 


图 3-12 #x: ((a bj) cd) 和 y: (e £) 


图 3-13 对 图 3-12 的 表 做 (set-car! x y) 的 效果 


我 们 可 以 对 图 3-13 和 图 3-14 做 一 个 比较 。 图 3-14 展 示 的 是 执行 (define z (cons y 
(cdr x))) 的 结果 ， 其 中 x 和 y 约 束 到 图 3-12 表 示 的 那样 的 两 个 表 。 这 一 求 值 使 变量 z 约 束 到 
了 由 操作 创建 的 一 个 新 序 对 ， 而 x 约束 的 表 并 没有 改变 。 

set-cdr1 操 作 与 Set-car! 类 似 ， 它 们 之 间 的 差异 就 在 于 这 里 被 取代 的 是 序 对 的 cdr 指 
et, 而 不 是 car 指 针 。 对 图 3-12 中 的 表 执 行 (set-cdr! x y) 的 效果 如 图 3-15 所 示 。 在 这 
里 ,x 的 cdr 指 针 被 指向 (e f) 的 指针 取代 。 还 有 ， 原 来 作为 x 的 car 的 表 (c d)， 现 在 也 
已 经 从 这 一 结构 里 摘 掉 子 。 


45 从 这 里 可 以 看 出 ， 对 于 表 的 改变 函数 可 能 创建 “废料 "， 也 就 是 一 些 东 西 ， 它 们 不 再 是 任何 可 访问 结构 的 部 
分 。 我 们 将 在 5.3.2 节 里 看 到 ，Lisp 的 存储 管理 系统 中 包含 着 一 个 废料 收集 器 ， 它 能 弄 清楚 并 回收 由 这 种 不 再 
使 用 的 序 对 所 占据 的 存储 。 


图 3-15 对 图 3-12 的 表 做 (set-cdr! x y) 的 效果 


cons 通 过 创建 新 序 对 的 方式 构造 新 的 表 ， 而 set-car! 和 set-cdr! 则 是 修改 现存 的 序 
对 。cons 可 以 用 两 个 改变 函数 和 一 个 过 程 get-new-Pair 实 现 ， 这 个 过 程 返回 一 个 新 序 对 ， 
假定 它 不 是 任何 现存 表 结 构 的 组 成 部 分 。 我 们 先 取得 一 个 序 对 ， 而 后 将 它 car 和 cdr 的 指针 分 
别 设置 到 指定 对 象 ， 最 后 返回 这 个 序 对 作为 cons 的 结果 “。 
(define (cons x y) 
(let ((new (get-new-pair))) 
(set-car! new x) 
{set-cdri new y) 
new) ) 
练习 3.12 下面 是 2.2.1 节 介绍 过 的 拼接 表 的 过 程 ; 
(define (append x y) 
(if (null? x) 


y 
(cons (car x) (append (cdr x) y)))) 


46 get-new-pair 必 须 作为 Lisp 系 统 所 需 的 存储 管理 功能 中 的 一 个 操作 ，5.3.1 节 将 讨论 这 一 问题 。 
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append 通 过 顺序 将 x 的 元 素 cons 到 y 上 的 方式 构造 出 一 个 新 表 。 过 程 append! 与 append 类 似 ， 
但 它 是 一 个 改变 函数 而 不 是 一 个 构造 函数 。 它 将 表 拼接 起 来 的 方式 是 将 两 个 表 粘 起 来 ， 修 改 x 
的 最 后 一 个 序 对 ， 使 它 的 cdr 现 在 变 成 y (对 空 的 x 调用 append! 将 是 一 个 错误 )。 
(define (append! x y) 
(set-cdr! (last-pair x) y) 
x) 
这 里 的 last-pair 是 一 个 过 程 ， 它 返回 其 参数 中 的 最 后 一 个 序 对 : 


(define (last-pair x) 
(if (null? (cdr x)) 
x 
(last-pair (cdr x)))) 


考虑 下 面 的 交互 
(define x (list ’a ’b)) 
(define y (list ’c ’d)) 
(define z (append x y)) 


z 
(a b c d) 


(cdr x) 
<response> 


(define w (append! x y)) 


w 
(a b c d) 


(cdr x) 
<response> 


其 中 缺少 的 那 两 个 cresponse> 是 什么 ? 请 画 出 盒子 指针 图 形 ， 解 释 你 的 回答 。 
练习 3.13 ”考虑 下 面 的 make-cycle 过 程 ， 其 中 使 用 了 练习 3.12 定 义 的 1ast-pair 过 程 : 
(define (make-cycle x) 
(set-cdr! (last-pair x) x) 
x) 
画 出 盒子 指针 图 形 ， 说 明 下 面 表达 式 创 建 起 的 z 的 结构 : 
(define z (make-cycle (list ’a ’b 'c))) 
如 果 我 们 试 着 去 计算 (last-pair z)， 那 会 出 现 什 么 情况 ? 
练习 3.14 下面 过 程 相当 有 用 ,但 也 有 些 费 解 : 


(define (mystery x) 
(define (loop x y) 
(if (null? x) 
Y 
(let ((temp (cdr x))) 
(set-cdr! x y) 
(loop temp x)))) 
(loop x "())) 
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loop 里 用 一 个 “临时 ”变量 temp 保 存 x 的 cdr 原来 的 值 ， 因 为 下 一 行 里 的 set -cdr ! 将 破坏 
这 个 cdr。 请 一 般 性 地 解释 mystery 做 些 什么 。 假定 v 通 过 (define v (list’ a’ b’ c’ 
d)) 定义 , 请 画 出 v 约 束 的 表 对 应 的 盒子 指针 图 形 。 RENERE (define w (mystery v)), 
请 画 出 求 值 这 个 表达 式 之 后 结构 v 和 w 的 盒子 指针 图 形 。v 和 w 的 值 打印 出 来 是 什么 ? 

共享 和 相等 

在 3.1.3 节 里 ， 我 们 提出 了 由 于 引入 赋值 而 产生 的 “同一 ”和 “变化 ”的 理论 问题 。 当 不 
同 的 数据 对 象 共享 某 些 序 对 时 ， 这 些 问 题 就 表现 到 现实 中 来 了 。 例 如 ， 考 虑 由 下 面 求 值 形成 
的 结构 ， 


(define x (list ’a ’b)) 
(define zl (cons x x)) 


正如 图 3-16 所 示 ， 这 里 的 21 是 一 个 序 对 ， 其 car 和 cdr 都 指向 同一 个 序 对 xXx。 这 种 21 的 car 和 
cdr 共 享 x 是 cons 的 简单 实现 方式 的 自然 结果 。 一 般 而 言 ， 用 cons 构 造 出 的 表 结 果 总 是 序 对 
的 一 个 相互 链接 的 结构 ， 其 中 可 能 会 有 许多 独立 的 序 对 被 一 些 不 同 结构 所 共享 。 


a—— e] e| 


< 一 ?| e A 
eA E 
图 3-16 由 (cons x x) 形成 的 表 z1 
与 图 3-16 不 同 ， 图 3-17 展 示 的 是 由 下 式 创 建 出 的 结构 : 


(define z2 (cons (list ’a ’b) (list ’a ’b))) 


图 3-17 由 (cons (list ’a ’b) (list ’a "b)) 形成 的 表 z2 


在 这 一 结构 中 ， 两 个 表 (a b) 的 各 个 序 对 互 不 相同 ， 虽 然 其 中 的 符号 是 共享 的 ” 。 

作为 表 考虑 ，z1 和 2z2 表 示 是 “同一 个 " 表 ((a b) a b)。 一 般 而 言 ， 如 果 我 们 只 用 
cons, 、car 和 cdz 对 各 种 表 进 行 操作 ， 其 中 的 共享 就 完全 不 会 被 察觉 。 然 而 ， 如 果 人 允许 改变 
表 结构 的 话 ， 共 享 的 情况 就 会 显现 出 来 了 。 作 为 考察 这 种 共享 会 产生 什么 影响 的 例子 ， 现 在 
考虑 下 面 的 过 程 ， 它 将 修改 被 它 应 用 的 那个 结构 的 car : 

(define (set-to-wow! x) 

“7 这 两 个 序 对 不 同 ， 是 因为 对 cons 的 每 次 调用 总 返回 一 个 新 序 对 。 符 号 共享 是 因为 在 Scheme 里 对 应 每 个 名 字 


的 符号 是 唯一 的 。 因 为 Scheme 不 提供 改变 符号 的 方式 ， 因 此 这 一 共享 是 不 可 分 辨 的 。 请 注意 ， 正 是 这 种 共享 
使 我 们 能 用 eq? 比较 符号 ， 这 个 过 程 就 是 简单 比较 两 个 指针 是 否 相等 。 
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(set-car! (car x) wow) 
x) 
虽然 z1 和 2z2 可 以 看 作 是 “同样 的 ”结构 ， 将 set-to-wow! 应 用 于 它们 ， 就 会 产生 不 同 的 结 
果 。 对 于 z1 而 言 ， 修 改 其 car 也 就 同时 修改 了 它 的 cdr ， 因 为 在 21 里 的 car 和 cdr 是 同一 个 
序 对 。 而 对 于 z2 ， 由 于 其 car 和 cdr 是 不 同 的 ， 所 以 set-to-wow! 只 修改 了 它 的 ca : 
zl 
((a b) a b) 
(set-to-wow! z1) 
( (wow b) wow b) 
z2 
((a b) a b) 


(set-to-wow! 22) 
( (wow b) a b) 


检查 表 结构 是 否 共享 的 一 种 方式 是 使 用 谓词 eg? ， 这 个 谓词 在 2.3.1 节 里 介绍 过 ， 是 作为 
检查 两 个 符号 是 否 相同 的 手段 。 说 得 更 一 般 些 ， 实 际 上 (eq? x y) 检查 x 和 y 是 否 为 同一 个 
WR (也 就 是 说 ，x 和 Yy 作 为 指针 是 否 相 等 )。 这 样 ， 对 于 图 3-16 和 图 3-17 所 定义 的 21 和 2z2 ， 
(eq? (car 21) (cdr z1)) 是 真 而 (eq? (car 22) (cdr 22)) BE. 

在 下 一 节 里 我 们 可 以 看 到 ， 利 用 共享 结构 可 以 极 大 地 扩展 能 够 用 序 对 表示 的 数据 结构 的 
范围 。 在 另 一 方面 ， 共 享 也 可 能 带 来 危险 ， 因 为 对 这 种 结构 的 修改 将 会 影响 那些 恰好 共享 着 
被 修改 了 的 序 对 的 结构 。 改 变 函 数 set-car! 和 set-~cdr 1! 的 使 用 需要 特别 小 心 ， 除 非 我们 
很 好 地 理解 了 数据 对 象 的 共享 情况 ， 否 则 使 用 改变 函数 就 会 造成 意 想不到 的 结果 ”。 

练习 3.15 请 画 出 盒子 指针 图 形 ， 解 释 set-to-wow! 对 于 上 面 结构 z1 和 2z2 的 作用 。 

练习 3.16 Ben Bitdiddle 决 定 写 一 个 过 程 ， 统 计 任 何 一 个 表 结 构 中 的 序 对 个 数 。“ 这 太 简 
单 了 ,” 他 说 ,“ 任 何 表 结 构 里 序 对 的 个 数 就 是 其 car 部 分 的 统计 值 加 上 其 cdr 部 分 的 统计 值 ， 
再 加 上 1 ， 以 计 入 当前 这 个 序 对 "。 所 以 Ben 写 出 了 下 面 过 程 ; 

(define (count-pairs x) 

(if (not (pair? x)) 
0 
(+ (count-pairs (car x)) 
(count-pairs (cdr x)) 
1))) 


请 说 明 这 一 过 程 并 不 正确 。 请 画 出 几 个 表示 表 结构 的 盒子 指针 图 ， 它 们 都 正好 由 3 个 序 对 构成 ， 
而 Ben 的 过 程 对 它们 将 分 别 返回 3 ，4，7 ， 或 者 根本 就 不 返回 。 

练习 3.17 ”请 设计 出 练习 3.16 中 count-pairs 过 程 的 一 个 正确 版 本 ,使 它 对 任何 结构 都 
能 正确 返回 不 同 序 对 的 个 数 。 (提示 : 遍历 有 关 的 结构 ， 维 护 一 个 辅助 性 数据 结构 ， 用 它 记录 


48 在 处 理 变动 数据 对 象 的 共享 问题 时 ， 最 微妙 的 地 方正 好 就 反应 了 3.1.3 节 里 提出 的 有 关 “ 同 一 ”和 “变化 ”的 
基本 问题 。 我 们 在 那里 说 过 ， 如 果 希 望 这 个 语言 里 容许 做 修改 ， 那 么 每 个 复合 对 象 就 必须 有 一 个 “标识 ”， 
这 应 该 是 某 种 不 同 于 构造 起 它 的 那些 片段 的 东西 。 在 Lisp 里 ， 我 们 所 认为 的 “同一 ”也 就 是 检查 客体 之 间 的 
eq? ， 采 用 指针 相等 表示 。 这 是 因为 在 大 部 分 Lisp 实现 里 ， 一 个 指针 本 质 上 就 是 一 个 存储 地 址 ， 在 这 里 “ 解 
决 ”对 象 标识 问题 的 方式 ， 是 假设 数据 对 象 “ 本 身 ” 也 是 一 些 信息 ， 存 储 在 计算 机 中 某 一 些 特定 的 存储 位 置 。 
对 于 简单 的 Lisp 程 序 而 言 ， 这 也 就 足够 了 。 但 是 这 并 不 是 解决 计算 模型 中 “同一 ”问题 的 一 般 性 方法 。 


已 经 计算 过 的 序 对 的 轨迹 。) 
练习 3.18 ”请 写 一 个 过 程 检查 一 个 表 ， 确 定 其 中 是 否 包含 环 ， 也 就 是 说 ， 如 果 某 个 程序 
打算 通过 不 断 做 cdr 去 找到 这 个 表 的 结尾 ， 是 否 会 陷 人 无 穷 循环 。 练 习 3.13 构 造 了 这 种 表 。 
练习 3.19 重 做 练习 3.18 ， 采 用 一 种 只 需要 常量 空间 的 算法 (需要 一 种 很 聪明 的 想法 ) 。 


改变 也 就 是 赋值 
在 介绍 复合 数据 时 ， 我 们 在 2.1.3 节 看 到 ， 序 对 可 以 纯粹 地 用 过 程 来 表示 ; 
(define (cons x y) 
(define (dispatch m) 
(cond ((eq? m ’car) x) 
((eq? m ’cdr) y) 
(else (error "Undefined operation ~- CONS" m)))) 
dispatch) 


(define (car z) (z ’car)) 
(define (cdr z} (z ’cdr)) 


这 种 认识 对 于 变动 数据 也 是 对 的 ， 我 们 可 以 将 变动 数据 对 象 实 现 为 使 用 赋值 和 局 部 状态 的 过 
程 。 举 例 说 ， 我 们 可 以 扩充 上 面 的 序 对 实现 ， 采 用 与 3.1.1 节 类 似 的 方式 ， 用 make-account 
实现 银行 账户 的 方式 处 理 set-car! 和 set-cdr! 的 问题 。 
(define (cons x y) 
(define (set-x! v) (set! x v)) 
(define (set-y! v) (set! y v)) 
(define (dispatch m) 
(cond ((eq? m ’car) x) 
((eq? m ’cdr) y) 
((eq? m ’set-car!) set-x!} 
((eq? m ’set-cdr!) set-y!) 
(else (error "Undefined operation -- CONS" m)))) 
dispatch) 


(define (car z} (z ’car)) 
(define (cdr z) (z ’cdr)) 


(define (set-car! z new-value) 
((z ’set-car!) new-value) 
z) 


(define (set-cdr! z new-value) 
((z ’set-cdr!) new-value) 


z) 

从 理论 上 说 ， 为 了 表现 变动 数据 的 行为 ， 所 需要 的 全 部 东西 也 就 是 赋值 。 只 要 将 赋值 纳 
和 人 这 一 语言 ， 我 们 就 引出 了 所 有 的 问题 ， 不 仅 是 赋值 ， 而 且 也 包括 一 般 性 的 变动 对 象 ”。 

练习 3.20 ”请 画 出 显示 下 面 一 系列 表达 式 的 求 值 过 程 的 环境 图 示 : 


© 而 在 另 一 方面 ， 从 实现 的 观点 看 ， 赋 值 要 求 我 们 去 修改 环境 ， 而 环境 本 身 也 是 -站 变动 数据 结构 ZE, 
值 和 变动 就 具有 同等 的 地 位 ， 可 以 相互 实现 。 


- 色 8 RS 


(define x (cons 1 2)} 
(define 2 (cons x x)) 
(set-car! (cdr z) 17) 


(car x) 
17 


其 中 使 用 上 面 给 出 的 序 对 的 过 程 实现 (请 与 练习 3.11 比 较 )。 
3.3.2 队列 的 表示 

利用 改变 函数 set-car! 和 set-cdr! ， 我 们 可 以 用 序 对 构造 出 一 些 单 靠 cons、car 和 
cdr 无 法 构造 的 数据 结构 。 这 一 节 将 展示 如 何 用 序 对 表示 一 种 称 为 队列 的 数据 结构 。3.3.3 节 
将 展示 如 何 表示 称 为 表格 的 数据 结构 。 

一 个 队列 是 一 个 序列 ， 数 据 项 只 能 从 一 端 插入 (这 称 作 队 列 的 末端 )， 只 能 从 另 一 端 删除 
(队列 的 前 六 )。 图 3-18 显 示 的 是 一 个 初始 为 空 的 队列 ， 而 后 插入 数据 项 a 和 b ， 而 后 删除 a， 又 
插入 CcC 和 qd ， 再 后 又 删除 b 。 由 于 数据 项 是 按照 它们 插入 的 顺序 删除 ， 因 此 队列 有 时 也 被 称 为 
FIFO (先进 先 出 ) 缓冲 区 。 


操作 结果 的 队列 
(define q (make-queue) ) ` 
(insert-queue! q ’a) a 
(insert-queue! q ’b) ab 
(delete-queue! q) b 
(insert-queue! q °c) bce 
(insert-queue! q 'd) bed. 
(delete-queue! q) cd 


图 3-18 队列 操作 


按照 数据 抽象 的 说 法 ， 队 列 可 以 看 作 是 由 下 面 一 组 操作 定义 的 结构 : 
*。 一 个 构造 函数 : 

(make-queue) 

它 返 回 一 个 空 队列 (不 包含 数据 项 的 队列 )。 
。 两 个 选择 函数 ， 

(empty-queue? <queue>) 

检查 队列 是 否 为 空 。 

(front-queue <queue>) 

返回 队列 前 端的 对 象 ， 如 果 队 列 为 空 就 报告 一 个 错误 。 它 不 修改 队列 。 
“两 个 改变 函数 : 

(insert-queue! <queue> <item>) 

将 数据 项 插入 队列 末端 ， 返 回 修改 过 的 队列 作为 值 。 

(delete-queue! <gueue>) 


删除 队列 前 端的 数据 项 ， 并 返回 修改 后 的 队列 作为 值 。 如 果 删 除 之 前 队列 为 空 就 报告 错误 。 
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由 于 队列 就 是 数据 项 的 序列 ， 我 们 当然 可 以 将 它 表 示 为 一 个 常规 的 表 。 这 样 ， 队 列 的 前 
端 就 是 表 的 car ， 向 队列 中 插入 数据 项 就 是 将 一 个 项 附加 到 表 的 最 后 ， 而 从 队列 里 删除 一 个 
项 就 是 取 这 个 表 的 cdr 。 但 是 这 种 表示 是 相当 低 效 的 ， 这 是 因为 ， 为 了 插入 一 个 数据 项 ， 我 
们 就 必须 扫描 整个 表 ， 直 至 到 达 表 尾 。 由 于 扫描 一 个 表 的 方法 只 有 通过 执行 一 系列 的 cdr 操 
作 ， 对 于 n 个 项 的 表 ， 这 种 扫描 就 需要 做 B(n) 步 。 简 单 地 修改 一 下 表 的 表示 方式 ， 就 可 以 克服 
这 种 缺点 ， 使 队列 操作 都 只 要 需 8(1) 步 就 能 实现 ， 也 就 是 说 ， 使 所 需 的 步 数 完 全 与 队列 的 长 
度 无 关 。 

采用 表 的 表示 形式 ， 引 出 的 一 个 问题 是 为 找到 表 尾 需要 扫描 整个 表 。 这 里 的 原因 就 在 于 ， 
表 的 标准 表示 方式 是 用 一 个 序 对 的 链 ， 虽 然 这 样 可 以 很 方便 地 提供 一 个 表 的 开始 指针 ， 但 却 
不 能 为 我 们 提供 访问 表 尾 的 方便 方法 。 如 果 要 避免 这 一 缺陷 ， 那 就 需要 修改 表示 方式 HM 
列表 示 为 一 个 表 ， 并 带 有 一 个 指向 表 的 最 后 序 对 的 指针 。 采 用 了 这 种 方式 ， 如 果 我 们 需要 插 
入 一 个 数据 项 时 ， 那 就 只 需 考察 这 个 尾 指针 ， 因 此 就 可 以 避免 对 表 的 扫描 了 。 

这 样 ， 队 列 被 表示 为 一 对 指针 front-ptr 和 rear-ptr， 它 们 分 别 指 向 一 个 常规 表 中 的 
第 一 个 序 对 和 最 后 一 个 序 对 。 由 于 我 们 希望 队列 成 为 一 个 可 标识 对 象 ， 为 此 可 以 将 这 两 个 指 
针 cons 起 来 。 这 样 ， 队 列 本 身 也 将 是 两 个 指针 的 cons 。 图 3-19 显 示 了 这 种 表示 的 情况 。 


rear-ptr 


图 3-19 将 队列 实现 为 一 个 带 有 首尾 指针 的 表 


为 了 定义 出 队列 的 各 种 操作 ， 我 们 将 使 用 下 面 几 个 过 程 ， 它 们 可 以 用 于 选择 或 者 修改 队 
列 的 前 端 和 末端 指针 。 


(define (front-ptr queue) (car queue)) 

(define (rear-ptr queue) (cdr queue) ) 

(define (set-front-ptr! queue item) (set-car! queue item)) 

(define (set-rear-ptr! queue item) (set-cdr! queue item)) 

现在 我 们 就 可 以 定义 队列 的 各 个 实际 操作 了 。 如 果 一 个 队列 的 前 端 指针 等 于 其 末端 指针 ， 
那么 就 认为 这 个 队列 为 空 : - 

(define (empty-queue? queue) (null? (front-ptr queue) )) 
构造 函数 make-queue 返 回 一 个 初始 为 空 的 表 ， 也 就 是 一 个 序 对 ， 其 car 和 cdr PEAR: 

(define (make-queue) (cons *() °())) ‘ 
在 需要 选取 队列 前 端的 数据 项 时 ， 我 们 就 返回 由 前 端 指针 指向 的 序 对 的 car : 


(define (front-queue queue) 
(if (empty-queue? queue) 


732 FSF PERU, HEERE 


(error "FRONT called with an empty queue" queue) 


(car (front-ptr queue) ))) 
要 向 队列 中 插入 一 个 数据 项 ， 我 们 将 按照 图 3-20 中 表明 的 方式 ， 首 先 创建 起 一 个 新 序 对 ， 其 
car 是 需要 插入 的 数据 项 ， 其 cdr 是 空 表 。 如 果 这 一 队列 原来 是 空 的 ， 那 么 就 让 队列 的 前 端 指 
针 和 后 端 指针 都 指向 这 个 新 序 对 。 否 则 就 修改 队列 中 最 后 一 个 序 对 ， 使 之 指向 这 个 新 序 对 ， 


而 后 让 队列 的 后 端 指针 也 指向 这 个 新 序 对 。 
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图 3-20 对 图 3-19 的 队列 使 用 (insert-queue! q’ d) 的 结果 


(define (insert-queue! queue item) 
(let ((new-pair (cons item *()))) 


(cond ((empty-queue? queue) 
(set-front-ptr! queue new-pair) 


(set-rear-ptr! queue new-pair) 
queue) 


(else 
(set-cdr! (rear-ptr queue) new-pair) 


(set-rear-ptr! queue new-pair) 


queue)))) 


. 要 从 队列 的 前 端 删 除 一 个 数据 项 ， 我 们 只 需要 修改 队列 的 前 端 指针 ， 使 它 指 向 队列 中 的 
第 二 个 数据 项 。 通 过 队列 中 第 一 项 的 cdr 指 针 就 可 以 找到 这 个 项 (参见 图 3-21 ) 1°, 


rear-ptr 


图 3-21 对 图 3-20 的 队列 使 用 (delete-queue! q) 的 结果 


(define (delete-queue! queue) 


(cond ((empty-queue? queue) 
(error "DELETE! called with an empty queue" queue)) 


(else 


150 如 果 队 列 的 第 一 个 数据 项 也 是 最 后 一 个 ， 在 删除 之 后 前 端 指针 将 变 成 空 表 ， 这 也 就 会 使 队列 变 成 空 的 。 此 时 
不 必 去 关心 末端 指针 ， 虽 然 它 还 指 着 那个 被 删除 的 数据 项 。 因 为 empty-queue? 只 看 前 端 指针 。 
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(set-front-ptr! queue (cdr (front-ptr queue) )) 
queue) ) 


练习 3.21 Ben Bitdiddle 决 定 对 上 面 描述 的 队列 实现 做 一 些 测 试 ， 他 顺序 地 给 Lisp 解 释 器 
输入 了 下 面 的 试验 表达 式 : 

(define ql (make-queue)) 

(insert-queue! ql ’a) 

((a) a) 

(insert-queue! ql ’b) 

((a b) b) 

(delete-queue! ql) 

((b) b) 

{delete-queue! ql) 

(() b) 
“不 对 ”， 他 抱怨 说 ,“ 解 释 器 的 响应 说 明 最 后 一 个 数据 项 被 插入 了 队列 两 次 ， 因 为 我 把 两 个 数 
据 项 都 删除 了 ， 但 是 第 二 个 还 在 那里 。 因 此 此 时 这 个 表 不 空 ， 虽 然 它 应 该 已 经 空 了 。 Eva 
Lu Ator 说 是 Ben 错 误 理 解 了 所 出 现 的 情况 。“ 这 里 根本 没有 数据 项 进入 队列 两 次 的 事情 "， 她 
解释 说 , “问题 不 过 是 Lisp 的 标准 输出 函数 不 知道 应 如 何 理解 队列 的 表示 。 如 果 你 希望 能 看 到 
队列 的 正确 打印 结果 ， 你 就 必须 自己 去 为 队列 定义 一 个 打印 过 程 。” 请 解释 Eva Lu 说 的 是 什么 
意思 ， 特 别 是 说 明 ， 为 什么 Ben 的 例子 产生 出 那样 的 输出 结果 。 请 定义 一 个 过 程 print- 
queue ， 它 以 队列 为 输入 ， 打 印 出 队列 里 的 数据 项 序列 。 

练习 3.22 ”除了 可 以 用 一 对 指针 表示 队列 外 ， 我 们 也 可 以 将 队列 构造 成 一 个 带 有 局 部 状 
态 的 过 程 。 这 里 的 局 部 状态 由 指向 一 个 常规 表 的 开始 和 结束 指针 组 成 。 这 样 ， 过 程 nake- 
queue 将 具有 下 面 的 形式 : 


(define (make-queue) 
(let ((front-ptr ...) 
(vear-ptr ...)) 
< 内 部 过 程 定义 > > 
(define (dispatch m) ...) 
dispatch) ) 


请 完成 make-queue 的 定义 ， 进 而 采用 这 一 表示 提供 队列 操作 的 实现 。 

练习 3.23 ” 双 端 队列 (deque) 也 是 一 种 数据 项 的 序列 ， 其 中 的 数据 项 可 以 从 前 端 或 后 端 
插入 和 删除 。 双 端 队 列 的 操作 包括 构造 函数 nake-deque ， 谓 词 empty-deque? ， 选 择 函 数 
front-deque, rear-deque, 改变 函数 front-insert-deque!.、 rear-insert- 
deque!, front-delete-deque!, rear-delete-deque!, 请 说 明 如 何 用 序 对 表示 双 
端 队列 ， 并 给 出 各 个 操作 的 实现 。 所 有 操作 都 应 该 在 9(1) 步 又 内 完成 ”。 


3.3.3 表格 的 表示 


在 第 2 章 里 研究 集合 表示 的 各 种 方式 时 ， 我 们 曾经 在 2.3.3 节 提 到 过 有 关 维 护 一 个 由 标识 
键 码 索引 的 记录 表格 的 问题 。 在 2.4.3 节 里 实现 数据 导向 的 程序 设计 时 ， 也 大 量 地 使 用 了 两 维 


S 请 当心 ， 不 要 让 解释 器 试图 去 打印 一 个 包含 环 的 结构 (参见 练习 3.13)。 


的 表格 ， 在 其 中 存储 着 有 关 的 信息 ， 用 两 个 关键 码 去 提取 。 现 在 我 们 要 考察 如 何 用 一 种 变动 
的 表 结 构 来 实现 表格 。 

我 们 首先 考虑 一 维 表格 的 问题 ， 在 这 种 表格 里 ， 每 个 值 保存 在 一 个 关键 码 之 下 。 我 们 要 
将 这 种 表格 实现 为 一 个 记录 的 表 ， 其 中 的 每 个 记录 将 实现 为 由 一 个 关键 码 和 一 个 关联 值 组 成 
的 序 对 。 将 这 种 记录 连接 起 来 构成 一 个 序 对 的 表 ， 让 这 些 序 对 的 car 指针 顺序 指向 各 个 记录 。 
这 些 作 为 连接 结构 的 序 对 就 成 为 这 一 表格 的 骨架 。 为 了 在 向 表格 里 加 入 记录 时 能 有 一 个 可 以 
修改 的 位 置 ， 我 们 将 这 种 表格 构造 为 一 种 带 表 头 单元 的 表 。 带 表 头 单元 的 表 在 开始 处 有 一 个 
特殊 的 骨架 序 对 ， 其 中 保存 着 一 个 是 “记录 ”一 一 目前 在 这 里 存放 一 个 特殊 符号 *table* 。 
图 3-22 显 示 了 下 面 表格 的 盒子 指针 图 。 


a: 1 
b: 2 
c: 3 


table 


图 3-22 HAA MILA 


为 了 从 表格 里 提取 信息 ， 我 们 用 了 一 个 lookup 过 程 ， 它 以 一 个 关键 码 为 参数 ， 返 回 与 之 
相关 联 的 值 (如 果 在 这 个 关键 码 之 下 没有 值 就 返回 假 )。lookup 是 基于 assoc 操 作 定 义 的 ， 
这 一 操作 要 求 一 个 关键 码 和 一 个 记录 的 表 作为 参数 。 请 注意 ，assoc 根 本 不 去 看 那个 呼 记录 ， 
它 返回 以 给 定 关 键 码 为 car 的 那个 记录 '”。1l1ookup 检 查 由 assoc 返 回 的 结果 记录 是 否 为 假 ， 
而 后 返回 该 记录 中 的 值 (其 car )。 


(define (lookup key table) 
(let ((record (assoc key (cdr table)))) 
(if record 
(cdr record) 
false))) 


(define (assoc key records) 
(cond ((null? records) false) 
((equal? key (caar records)) (car records) ) 
(else (assoc key (cdr records))))) 
要 在 一 个 表格 里 某 个 特定 的 关键 码 之 下 插入 一 个 值 ， 我 们 首先 用 assoc 查 看 该 表格 里 是 
否 已 经 有 以 此 作为 关键 码 的 记录 。 如 果 没 有 就 cons 起 这 个 关键 码 和 相应 的 值 ， 构 造 出 一 个 新 
记录 ， 并 将 它 插 和 到 记录 表 的 最 前 面 ， 位 于 旺 记 录 之 后 。 如 果 表 格 里 已 经 有 了 具有 该 关键 码 


‘2 由 于 assoc 里 用 的 是 equal? ， 它 能 允许 以 符号 、 数 值 或 者 表 结 构 作为 关键 码 。 
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的 记录 ， 那 么 就 将 该 记录 的 cdr 设置 为 这 个 新 值 。 表 格 的 头 单元 为 我 们 提供 了 一 个 明确 的 位 
置 ， 使 我 们 在 插入 新 记录 时 能 确定 相应 的 修改 位 置 ”。 | 
(define (insert! key value table) 
(let ((record (assoc key (cdr table)))) 
(if record 
{set-cdr! record value) 
(set-cdr! table 
(cons (cons key value) (cdr table))))) 
’ok) 


在 构造 一 个 新 表格 时 ， 我 们 只 需要 创建 起 一 个 包含 符号 *table* WR: 
(define (make-table) 
(list ’*table*)) 


两 维 表格 
两 维 表格 里 的 每 个 值 由 两 个 关键 码 索 引 。 我 们 可 以 将 这 种 表格 构造 为 一 个 一 维 表格 ， 其 
中 的 每 个 关键 码 又 标识 了 一 个 子 表格 。 图 3-23 中 的 盒子 指针 图 表示 的 是 下 面 表格 : 


table 


leel tel 
sll Hel 


ela] GIN 
J e Co) e 


elle eA 


ele] Lela] Lele 
EJ e] E e LJ e 


图 3-23 一 个 两 维 表格 


153 这 样 ， 第 一 个 骨架 序 对 也 就 成 为 代表 这 个 表 列 “本 身 ” 的 对 象 ， 也 就 是 说 ， 指 向 这 个 表 列 的 指针 就 是 指向 这 
个 序 对 的 指针 。 这 个 骨架 序 对 总 代表 着 表 列 的 开始 。 如 果 我 们 不 采用 这 种 安排 方式 insert! 过 程 每 次 向 表 
列 中 加 入 一 个 新 记录 后 ， 就 需要 返回 表 列 的 新 起 始 位 置 。 
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*; 42 
letters: 

a: 97 

b: 98 


这 其 中 有 两 个 子 表格 。( 子 表格 并 不 需要 特殊 的 头 单元 符号 ， 因 为 标识 子 表格 的 关键 码 就 能 起 
到 这 一 作用 。) 

在 需要 查找 一 个 数据 项 时 ， 我 们 先 用 第 一 个 关键 码 确 定 对 应 的 子 表 格 ， 而 后 用 第 二 个 关 
键 码 在 这 个 子 表格 里 确定 记录 。 


(define (lookup key-1 key-2 table) 
(let ((subtable (assoc key-1 (cdr table)))) 
(if subtable 
(let ((record (assoc key-2 (cdr subtable)))) 
(if record 

(cdr record) 
false) ) 

false))) 


如 果 需 要 将 一 个 新 数据 项 插入 到 一 对 关键 码 之 下 ， 我 们 首先 用 assoc 去 查看 在 第 一 个 关 
键 码 下 是 否 存在 一 个 子 表格 。 如 果 没 有 ， 那 么 就 构造 起 一 个 新 的 子 表格 ， 其 中 只 包含 一 个 记 
录 (Key-2 ，value )， 并 将 这 一 子 表格 插入 到 表格 中 的 第 一 个 关键 码 之 下 。 如 果 表 格 里 已 经 
有 了 对 应 于 第 一 个 关键 码 的 子 表格 ， 那 么 就 将 新 值 插 入 该 子 表格 ， 用 的 就 是 上 面 所 述 的 在 一 
维 表格 中 插入 的 方法 

(define (insert! key-1 key-2 value table) 

(let ((subtable (assoc key-1 (cdr table)))) 
(if subtable 
(let ((record (assoc key-2 (cdr subtable)))) 
(if record 
(set-cdr! record value) 
(set-cdr! subtable 
(cons (cons key-2 value) 
(cdr subtable))))) 
(set-cdr! table 
(cons (list key-1 
(cons key-2 value)) 
(cdr table))))) 
"ok ) 


创建 局 部 表格 

上 面 定 义 的 lookup 和 insert 1 操作 都 以 表格 作为 一 个 参数 ， 这 也 使 我 们 可 以 将 它们 用 
到 包含 多 个 表格 的 程序 里 。 处 理 多 个 表格 的 另 一 种 方式 是 为 每 个 表格 提供 一 对 独立 的 lookup 
和 insert! 过 程 。 为 了 能 够 这 样 做 ， 我 们 可 以 用 过 程 的 方式 表示 表格 ,将 表格 表示 为 一 个 以 
局 部 状态 的 方式 维持 着 一 个 内 部 表格 的 对 象 。 在 接 到 一 个 适当 的 消息 时 ， 这 种 “表格 对 象 ” 
将 提供 相应 的 过 程 ， 实 现 对 内 部 表格 的 各 种 操作 。 下 面 就 是 一 个 采用 这 种 方式 表示 两 维 表格 
的 生成 器 : 

(define (make-table) 

(let ((local-table (list ’*table*))) 


(define (lookup key-1 key-2) 
(let ((subtable (assoc key-1 (cdr local-table)))) 
(if subtable 
(let ((record (assoc key-2 (cdr subtable)))) 
(if record 
(cdr record) 
false) ) 
false) )) 
(define (insert! key-1 key-2 value) 
(let ((subtable (assoc key-1 (cdr local-table)))) 
(if subtable 
(let ((record (assoc key-2 (cdr subtable)))) 
(if record 
(set-cdr! record value) 
(set-cdr! subtable 
(cons (cons key-2 value) 
(cdr subtable))))) 
(set-cdr! local-table 
(cons (list key-1 
(cons key-2 value) ) 
(cdr local-table))))) 
’ok) 
(define (dispatch m) 
(cond ((eq? m ’lookup-proc) lookup) 
((eq? m ’insert-proc!) insert!) 
(else (error "Unknown operation -- TABLE" m)))) 
dispatch) ) 


利用 make-table ， 我 们 就 能 做 出 在 2.4.3 节 里 为 做 数据 导向 的 程序 设计 而 用 的 get 和 
put 操 作 了 。 它 们 的 实现 如 下 : 


(define operation-table (make-table) ) 
(define get (operation-table ’lookup-proc)) 
(define put (operation-table ‘insert-proc!)) 


过 程 get 以 两 个 关键 码 为 参数 ，put 以 两 个 关键 码 和 一 个 值 为 参数 。 这 两 个 操作 都 访问 同一 个 
局 部 表格 ， 这 一 表格 被 封装 在 由 对 make-table 的 调用 创建 起 的 对 象 里 面 。 

练习 3.24 ”在 上 面 的 表格 实现 里 ， 对 于 关键 码 的 检查 用 equal? 比较 是 否 相 等 ( 它 被 
assoc 调 用 ) 。 这 一 检查 方式 并 不 一 定 总 是 合适 的 。 举 例 来 说 ， 我 们 可 能 需要 一 个 采用 数值 关 
键 码 的 表格 ， 对 于 这 种 表格 ， 我 们 需要 的 不 是 找到 对 应 数值 的 准确 匹配 ， 而 可 以 是 有 一 点 容 
许 误 差 的 数值 。 请 设计 一 个 表格 构造 函数 make-table, 它 以 一 个 same-key? 过 程 作 为 参数 ， 
用 这 个 过 程 检查 关键 码 的 “相等 ”与 否 。make- table 过 程 应 该 返回 一 个 过 程 d1spatcn， 
可 以 通过 它 去 访问 对 应 于 局 部 表格 的 lookup 和 insert! 过 程 。 

练习 3.25 ”请 推广 一 维 表格 和 两 维 表格 的 概念 ， 说 明 如 何 实 现 一 种 表格 ， 其 中 的 值 可 以 
保存 在 任意 个 关键 码 之 下 ， 不 间 的 值 可 能 对 应 于 不 同 数目 的 关键 码 。 对 应 的 100kuP 和 
insert1! 过 程 以 一 个 关键 码 的 表 作 为 参数 去 访问 这 一 表格 。 

练习 3.26 ”为 了 在 上 面 这 样 实现 的 表格 中 检索 ， 我 们 就 需要 扫描 这 个 记录 表 。 从 本 质 上 
说 ， 这 就 是 2.3.3 节 中 的 无 序 表 表 示 方 式 。 对 于 很 大 的 表格 ， 以 其 他 方式 构造 表格 可 能 更 加 高 
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效 。 请 描述 一 种 表格 实现 ， 其 中 的 (key, value) 记录 用 二 又 树 形式 组 织 起 来 。 这 要 假定 关键 
码 能 够 以 某 种 方式 排序 〈 例 如， 数值 序 或 者 字典 序 )。 (请 与 第 2 章 的 练习 2.66 比 较 。) 
练习 3.27 记忆 法 (memoization ， 或 称 表格 法 ，tabulation ) 是 一 种 技术 ， 采 用 这 种 技术 
的 过 程 将 把 前 面 已 经 算出 的 一 些 值 记 录 在 局 部 状态 里 。 这 种 技术 可 能 大 大 改变 一 个 程序 的 性 
能 。 在 一 个 采用 记忆 法 的 过 程 里 维持 着 一 个 表格 ， 其 中 保存 着 前 面 已 经 做 过 的 调用 求 出 的 值 ， 
以 产生 这 些 值 的 实际 参数 作为 关键 码 。 当 这 种 过 程 被 调用 去 计算 某 个 值 时 ， 它 首先 检查 有 关 
的 表格 ， 看 看 相应 的 值 是 否 已 经 在 那里 ， 如 果 找 到 了 就 直接 返回 这 个 值 ， 否 则 就 以 正常 方式 
计算 出 相应 的 值 ， 并 将 它 保存 到 这 个 表格 里 。 作 为 记忆 性 过 程 的 一 个 例子 ， 让 我 们 重 温 一 下 
1.2.2 节 里 计算 斐 波 那 契 数 的 指数 计算 过 程 : 
(define (fib n) 
(cond ((= n 0) 0) 
((= n 1l) 1) 
(else (+ (fib (~ n 1)) 
(fib (- n 2)))))) 
同一 过 程 的 带 记 录 版 本 是 : 
(define memo-fib 
(memoize (lambda (n) 


(cond ((= n 0) 0) 
((= n 1) 1) 
(else (+ (memo-fib (- n 1)) 
(memo-fib (- n 2)))))))) 
其 中 的 记录 器 定义 为 : 


(define (memoize f) 
(let ((table (make-table))) 
(lambda (x) 
(let ((previously-computed-result (lookup x table))) 
(or previously-computed-result 
(let ((result (f x))) 

(insert! x result table) 
result)))))) 


请 为 (memo-fib 3) 的 计算 画 出 一 个 环境 图 ， 解 释 为 什么 memo-~fib 能 以 正比 于 ?的 步 数 计 
算出 第 ?个 斐 波 那 契 数 。 如 果 简 单 地 将 memo-fib 定 义 为 (memoize fib)， 这 一 模式 还 能 工 
作 吗 ? 


3.3.4 数字 电路 的 模拟 器 


设计 复杂 的 数字 系统 ， 例 如 计算 机 ， 是 一 种 非常 重要 的 工程 活动 。 数字 系统 都 是 通过 连 
接 一 些 简单 元 件 构造 起 来 的 。 虽然 这 些 元 件 单独 看 起 来 功能 都 很 简单 ， 它 们 连接 起 来 形成 的 
网 络 就 可 能 产生 非常 复杂 的 行为 。 对 提出 的 电路 设计 做 计算 机 模拟 ， 是 一 种 数字 系统 工程 师 
广泛 使 用 的 重要 工具 。 在 这 一 节 里 ， 我 们 要 设计 一 个 执行 数字 逻辑 模拟 的 系统 。 这 一 系统 是 
通常 称 为 事件 驱动 的 模拟 程序 的 一 个 典型 代表 ， 在 这 类 系统 里 ， 一 些 活动 (“事件 ”") 引发 另 
一 些 在 随后 时 间 发 生 的 事件 ， 它 们 又 会 引发 随后 的 事件 ， 并 如 此 继续 下 去 。 

我 们 有 关 电 路 的 计算 模型 将 由 一 些 对 象 组 成 ， 它 们 对 应 于 构造 电路 时 所 用 的 那些 基本 构 
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件 。 这 里 也 有 连 线 ， 它 们 能 传递 数字 信号 。 一 个 数字 信号 在 任何 时 刻 都 只 能 具有 0 或 1 这 两 个 
可 能 值 之 一 。 这 里 还 有 许多 不 同 种 类 的 幼 能 块 ， 它 们 连接 着 一 些 输入 信号 的 连 线 和 另外 一 些 
输出 连 线 。 这 种 功能 块 从 它们 的 输入 信号 计算 出 相应 的 输出 信号 。 输 出 信号 有 一 个 延迟 ， 具 
体 情 况 依赖 于 功能 块 的 种 类 。 例 如 ， 反 门 是 一 种 基本 功能 块 ， 它 们 对 输入 求 反 。 如 果 一 个 反 
门 的 输入 信号 变 为 0， 那 么 在 一 个 反 门 延迟 时 间 单 位 之 后 ， 这 个 反 门 就 将 其 输出 信号 改变 为 1 。 
如 果 一 个 反 门 的 输入 信号 改变 为 1 ， 那 么 在 一 个 反 门 延迟 时 间 单 位 之 后 ， 这 个 反 门 就 将 其 输出 
半 号 改变 为 0。 图 3-24 里 画 出 了 表示 反 门 的 符号 。 一 个 与 门 (如 图 3-24 里 所 示 ) 也 是 一 个 基本 
功能 块 ， 它 有 两 个 输入 和 一 个 输出 ， 以 其 输入 的 腺 辑 与 作为 输出 信号 的 值 。 也 就 是 说 ， 当 一 
个 与 门 的 两 个 输入 信号 都 变 成 1 时 ， 在 一 个 与 门 延迟 时 间 单 位 之 后 ， 该 与 门将 产生 1 作为 输出 
信号 ， 否则 其 输出 就 是 0。 或 门 是 另 一 种 类 似 的 功能 块 ， 以 其 输入 的 逐 辑 或 作为 输出 信号 的 值 。 
也 就 是 说 ， 当 且 仅 当 一 个 或 门 的 两 个 输入 信号 之 一 为 1 时 ， 其 输出 为 ， 否 则 其 输出 就 是 0。 


反 门 与 门 RN 
图 3-24 数字 逻辑 模拟 器 的 基本 功能 部 件 


我 们 可 以 将 一 些 基本 功能 部 件 连接 起 来 ， 构 造 出 更 复杂 的 功能 。 为 此 只 需 将 一 些 功能 块 
的 输出 连 线 接 到 另 一 些 功 能 块 的 输入 。 举 个 例子 ， 图 3-25 展 示 的 是 一 个 半 加 器 电路 ， 其 中 包 
括 一 个 或 门 、 两 个 与 门 和 一 个 反 门 。 这 一 半 加 器 有 两 个 输入 信号 A 和 B， 以 及 两 个 输出 信号 S 
和 C。 当 恰好 A 和 B 之 一 为 1 时 ，S 将 变 成 1， 而 当 A 和 B 都 为 1 时 C 变 成 1。 从 这 个 图 形 可 以 看 出 ， 
由 于 延迟 的 存在 ， 这 些 输 出 可 能 在 不 同 的 时 间 产 生 ， 有 关 数 字 电 路 设计 的 许多 困难 都 源 于 此 。 


图 3-25 半 加 器 


我 们 现在 要 构造 出 一 个 程序 ， 它 能 够 模拟 我 们 希望 研究 的 各 种 数字 逻辑 电路 。 这 一 程序 
和 将 构造 出 模拟 连 线 的 计算 对 象 ， 它 们 能 够 “保持 ”信号 。 电 路 里 的 各 种 功能 块 用 过 程 模拟 ， 
它们 产生 出 信号 之 间 的 正确 关系 。 . 

这 一 模拟 中 的 一 个 最 基本 元 素 是 过 程 make-wire ， 它 用 于 构造 连 线 。 举 例 来 说 ， 我 们 可 
以 像 下 面 这 样 构造 出 6 条 连 线 : 

(define a (make-wire)) 


(define b (make-wire)) 
(define c (make-wire)) 


(define d (make-wire)) 
(define e (make-wire) ) 
(define s (make-wire) ) 


we BE AA GEE BI BERL, RRIF — Pie 项 能 块 的 过 程 ， 提 供给 访 
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构造 过 程 的 实际 参数 就 是 连接 到 这 一 功能 块 的 那些 连 线 。 例 如 ， 有 了 上 面 的 连 线 ， 我 们 可 以 
如 下 构造 出 与 门 、 或 门 和 反 门 ， 并 将 它们 连接 成 图 3-25 所 示 的 半 加 器 : 

(or-gate a b d) 

ok 


(and-gate a b c} 
ok 


(inverter c e) 
ok 


(and-gate d e s) 
ok 


为 了 做 得 更 好 一 点 ， 我 们 还 应 该 为 这 种 操作 命名 ， 定 义 出 一 个 过 程 half~adder ， 它 能 
构造 出 这 种 电路 ， 并 将 送 给 它 的 四 条 外 部 连 线 接 到 这 个 半 加 器 上 : 


(define (half-adder a b s c) 
(let ((d (make-wire)) (e (make-wire))) 
(or-gate a b d) 
(and-gate a b c) 
(inverter c e) 
{and-gate d e s) 
’ok)) 


做 出 这 种 定义 的 优点 ， 就 在 于 我 们 又 可 以 用 half-adder 本 身 作为 基本 构件 ， 去 创建 更 复杂 
的 电路 。 例 如 ， 图 3-26 显 示 的 是 一 个 全 加 器 ， 它 由 两 个 半 加 器 和 一 个 或 门 组 成 “。 我 们 可 以 


用 如 下 方式 构造 出 全 加 器 : 


图 3-26 全 加 器 


(define (full-adder a b c-in sum c-out) 
(let ((s (make-wire) ) 
(cl (make-wire) ) 
(c2 (make-wire) )) 
(half-adder b c-in s cl) 
(half-adder a s sum c2) 
(or-gate cl c2 c-out) 
"ok ) ) 


将 爹 加 器 定义 为 过 程 之 后 ， 我 们 就 又 可 以 利用 它 作为 构件 ， 去 创建 更 复杂 的 电路 了 (例如 ， 
练习 3.30 ) 。 
154 全 加 器 是 二 进 制 数 求 和 所 用 的 基本 电路 元 件 。 这 里 的 A 和 B 是 两 个 被 加 数 中 对 应 位 置 上 的 二 进 制 位 ，Ca 是 从 
被 加 位 的 右边 来 的 进 傍 位 。 这 一 电路 产生 出 的 SUM 是 表示 对 应 位 置 之 和 的 二 进 制 位 ， 而 Co 是 传递 给 左边 位 
置 的 进位 位 。 e 
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从 本 质 上 看 ， 模 拟 器 为 我 们 提供 了 一 种 工具 ， 作 为 构造 电路 的 一 种 语言 。 如 果 我 们 采纳 
有 关 语 言 的 一 般 性 观点 ， 就 像 在 1.1 节 里 研究 Lisp 时 所 做 的 那样 ， 那 么 就 可 以 说 ， 各 种 基本 功 
能 块 形成 了 这 个 语言 的 基本 元 素 ， 将 功能 块 连接 起 来 就 是 这 里 的 组 合 方法 ， 而 将 特定 的 连接 
模式 定义 为 过 程 就 是 这 里 的 抽象 方法 。 
基本 功能 块 
基本 功能 块 实现 一 种 “效能 ”, 使 得 在 一 根 连 线 上 的 信号 变化 能 够 影响 其 他 连 线 上 的 信号 。 
为 了 构造 出 这 些 功 能 块 ， 我 们 需要 连 线 上 的 如 下 操作 : 
e (get-signal <wire>) 
返回 连 线 上 信号 的 当前 值 。 
* (set-signal! <wire> <new value>) 
将 连 线 上 的 信号 修改 为 新 的 值 。 
。 (add-action! <wire> <procedure of no arguments>) 
它 断 言 ， 只 要 在 连 线 上 的 信号 值 改 变 ， 这 里 所 指定 过 程 就 需要 运行 。 这 种 过 程 是 一 些 
媒介 ， 它 们 能 够 将 相应 连 线 上 值 的 变化 传递 到 其 他 的 连 线 。 除 这 些 过 程 之 外 ， 我 们 还 要 
用 一 个 过 程 after-delay ， 它 的 参数 是 一 个 时 间 延 迟 和 一 个 过 程 ，after~qelay 将 
在 给 定 的 时 延 之 后 执行 这 一 指定 过 程 。 
利用 这 些 过 程 ， 我 们 就 可 以 定义 基本 的 数字 逻辑 功能 了 。 为 了 把 输入 通过 一 个 反 门 连接 到 
输出 ， 我 们 应 该 用 add-action! 为 输入 线路 关联 一 个 过 程 ， 当 输入 线路 的 值 改变 时 ， 这 一 过 
程 就 会 执行 。 下 面 这 个 过 程 计算 出 输入 信号 的 logical-not, 在 一 个 jnverter-delay 之 
后 将 输出 线路 设置 为 这 个 新 值 : 
{define (inverter input output) 
(define (invert-input) 
(let ((new-value (logical-not (get-signal input)))) 
(after-delay inverter-delay 
| (lambda () 
(set-signal! output new-value))))) 
(add-action! input invert-input) 
’ok) 


(define (logical-not s) 
(cond ((= s 0) 1) 
((= s 1) 0) 
(else (error "Invalid signal" s)))) 


与 门 的 情况 稍微 复杂 一 点 ， 因 为 在 这 种 门 的 两 个 输入 之 一 变化 后 ， 相 应 的 动作 过 程 都 必 
须 运 行 。 下 面 过 程 计算 出 输出 线路 上 信号 值 的 1ogical-and (利用 一 个 类 似 于 1ogical- 
not 的 过 程 )， 并 在 一 个 and-gate-delay 之 后 设置 新 值 ， 使 之 出 现在 输出 线路 上 。 


(define (and-gate al a2 output) 
(define (and-action-procedure) 
(let ((new-value 
(logical-and (get-signal al) (get-signal a2)))) 
(after-delay and-gate-delay 
{lambda () 
(set-signal! output new-value))))) 
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(add-action! al and-action-procedure) 
(add-action! a2 and-action-procedure) 


"ok ) 
练习 3.28 “请 将 或 门 定 义 为 一 个 基本 功能 块 。 你 的 or~gate 构 造 图 数 应 该 和 上 面 and- 
gate 的 构造 函数 类 似 。 


练习 3.29 ”构造 或 门 的 另 一 方式 是 将 它 作 为 一 种 复合 的 数字 逻辑 设备 ， 用 与 门 和 反 门 构 
造 出 或 门 。 请 采用 这 种 方式 定义 出 oz-gate 。 如 何 用 and-gate-delay 和 inverter- 
delay 表 示 这 样 定义 的 或 门 的 延 时 ? 

练习 3.30 ”图 3-27 展 示 的 是 通过 串 接 起 ”个 全 加 器 组 成 的 一 个 级 联 进 位 加 法 器。 这 是 用 于 
求 m 位 二 进 制 数 之 和 的 并 行 加 法 器 的 最 简单 形式 。 输 入 Al ，A:，As: ，… ,A 与 B!, B2, B3, 00, 
B, 是 需要 求 和 的 两 个 二 进 制 数 (每 个 At 和 Bi 都 是 0 或 者 1 ) 。 这 一 电路 产生 出 与 之 对 应 的 和 的 mn 
Ay =H BS: ，S: ，S: ，…，S,。， 以 及 这 一 求 和 的 最 终 进 位 值 C。 请 写 出 一 个 过 程 ipP1le- 
carry-adder 生 成 这 种 电路 ， 该 过 程 应 以 各 包含 着 条 线路 的 三 个 表 一 一 At、Bx 和 Si 一 一 作为 
输入 ， 还 有 另 一 线路 C。 级 联 进 位 加 法 器 的 主要 缺点 是 需要 等 待 进位 信号 向 前 传播 。 请 设法 确 
定 ， 为 了 得 到 n 位 级 联 进位 加 法 器 的 完整 输出 ， 我 们 将 需要 怎样 的 时 延 。 请 用 与 门 、 或 门 和 反 
门 的 时 延 表 示 这 种 加 法 器 的 这 一 时 延 。 


Ai Bı A, Bz A; B; 
Ci 
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图 3-27 一 个 对 n 位 二 进 制 数 的 逐 位 进位 加 法 器 


线路 的 表示 
在 这 种 模拟 中 ， 一 条 线路 也 就 是 一 个 具有 两 个 局 部 状态 变量 的 计算 对 象 ， 其 中 一 个 是 信 
号 值 signal-value (其 初始 值 取 0)， 另 一 个 是 一 组 过 程 action-procedures, 在 信号 
值 改变 时 ， 这 些 过 程 都 需要 运行 。 我 们 将 采用 消息 传递 的 风格 ， 把 线路 实现 为 一 组 局 部 过 程 
和 一 个 dispatch 过 程 ， 它 负责 选取 适当 的 局 部 操作 ， 这 也 就 是 我 们 在 3.1.1 节 里 处 理 简 单 银 
行 账户 时 的 做 法 : 
(define (make-wire) 
(let ((signal-value 0) (action-procedures "Q))) 
(define (set-my-signal! new-value) 
(if (not (= signal-value new-value) ) 
(begin (set! signal-value new-value) 
(call-each action-procedures) ) 
"done ) ) 


(define (accept-action-procedure! proc) 
(set! action-procedures (cons proc action-procedures) ) 


(proc)) 


(define (dispatch m) 
(cond ((eq? m ’get-signal) signal-value) 
((eq? m ’set-signal!) set-my-signal!) 
((eq? m ’add-action!) accept-action-procedure! ) 
(else (error "Unknown operation -- WIRE" m)))) 


dispatch) ) 
局 部 过 程 set-my-signal! 检 查 新 的 信号 值 是 否 实际 改变 了 线路 上 的 信号 ， 如 果真 是 这 样 ， 
它 就 利用 下 面 定 义 出 的 过 程 call~each 运 行 每 个 动作 过 程 。call-each 逐 个 调用 一 个 无 参 
过 程 表 中 的 每 个 过 程 : 
(define (call-each procedures) 


(if (null? procedures) 
*done 
(begin 
((car procedures) ) 
(call-each (cdr procedures))))) 


局 部 过 程 accept-action-procedure! 将 给 定 的 过 程 加 入 需要 运行 的 过 程 表 ， 并 运行 这 个 
新 过 程 一 次 (参见 练习 3.31)。 
一 旦 设置 好 局 部 的 dispatch 过 程 ， 就 可 以 提供 以 下 访问 线路 中 局 部 操作 的 过 程 了 '”: 
{define (get-signal wire) 
(wire ’get-signal) ) 
(define (set-signal! wire new-value) 


((wire ’set-signal!) new-value) ) 


(define (add-action! wire action-procedure) 
((wire ’add-action!) action-procedure) ) 


线路 具有 随 着 时 间 变 化 的 信号 ， 并 可 以 逐步 连接 到 各 种 设备 上 ， 因 此 这 是 一 种 典型 的 变动 对 
象 。 我 们 已 经 将 它们 模拟 为 带 有 局 部 状态 变量 的 过 程 ， 这 些 局 部 变量 能 够 通过 赋值 而 修改 。 
在 创建 一 条 新 线路 时 ， 就 会 分 配 一 集 新 的 状态 变量 (通过 make-wire 里 的 Let 表 达 式 )， 构 
造 并 返回 一 个 新 的 dispatch 过 程 ， 使 我 们 可 以 掌握 具有 这 些 新 状态 变量 的 那个 环境 。 

一 条 线路 被 所 有 连接 在 该 线路 上 的 各 种 设备 所 共享 。 这 样 ， 由 一 个 设备 交互 所 造成 的 变 
化 就 会 影响 到 连接 在 这 条 线路 上 的 其 他 设备 。 线 路 将 变化 通知 与 之 连接 的 设备 ， 采 用 的 方式 
就 是 调用 相关 的 动作 过 程 ， 这 些 过 程 是 在 建立 连接 时 提供 的 。 


待 处 理 表 
为 完成 这 一 模拟 器 ， 剩 下 的 东西 就 是 after-delay 了。 这 里 的 想法 是 维护 一 个 称 为 待 处 


155 这 些 过 程 只 不 过 是 语法 糖衣 ， 以 便 我 们 能 用 常规 的 过 程 语法 形式 去 调用 对 象 里 的 局 部 过 程 。 能 如 此 简单 地 交 
换 “ 过 程 ”和 “数据 ”的 角色 也 是 很 惊人 的 。 例 如 ， 在 写 (wire get-signal) 时 ,我 们 是 把 wire 当 作 
一 个 过 程 ， 用 消息 9et-signal 作 为 输入 去 调用 它 。 换 一 种 方式 ，(get-signal wire) 的 形式 促使 我 们 
将 wire 设想 为 作为 过 程 get-signal 的 输入 的 数据 对 象 。 真 实 的 情况 是 ， 在 一 个 可 以 将 过 程 当 作对 象 的 语 
言 里 ， 在 “过 程 ”和 “数据 ”之 间 并 没有 本 质 性 的 差异 ， 因 此 我 们 可 以 自由 选择 自己 所 需 的 语法 糖衣 ， 以 便 
按 自己 选 定 的 风格 去 做 程序 设计 。 
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理 表 的 数据 结构 ， 其 中 包含 着 一 个 需要 完成 的 事项 的 清单 。 对 于 这 个 待 处 理 表 ， 我 们 定义 了 
如 下 操作 : 
。 (make-agenda ) 
返回 一 个 新 的 空 的 待 处 理 表 。 
(empty-agenda? <agenda>) 
在 所 给 待 处 理 表 空 时 为 真 。 
。 (first-agenda-item <agenda>) 
返回 待 处 理 表 里 的 第 一 个 项 目 。 
。 (remove-first-agenda-item! <agenda>) | 
修改 待 处 理 表 ， 删 除 其 中 的 第 一 个 项 目 。 
。 (add-to-agenda! <time> <action> <agenda> ) 
修改 待 处 理 表 ， 加 入 一 项 ， 要 求 在 特定 时 间 运行 给 定 的 动作 过 程 。 
。 (current-time <agenda> ) 
返回 当时 的 模拟 时 间 。 
我 们 要 用 的 特定 待 处 理 表 用 the-agenda 表 示 。 过 程 after~-~delay 向 the-agenda 里 
加 入 一 个 新 元 素 : i 


(define (after-delay delay action) 
(add-to-agenda! (+ delay (current-time the-agenda)) 


action 
the-agenda) ) 


有 关 的 模拟 用 过 程 Propagate 驱动 ， 它 对 the-agenda 操 作 ， 上 顺序 执行 这 一 待 处 理 表 中 
的 每 个 过 程 。 一 般 而 言 ， 在 模拟 运行 中 ， 一 些 新 的 项 目 将 被 加 入 待 处 理 表 中 。 只 要 在 这 一 待 
处 理 表 里 还 有 项 目 ， 过 程 Propagate 就 会 继续 模拟 下 去 : 
(define (propagate) 
(if (empty-agenda? the-agenda) 
"done 
(let ((first-item (first-agenda-item the-agenda) ) ) 
(first-item) 
(remove-first-agenda-item! the-agenda) 
(propagate) ))) ` 


一 个 简单 的 实例 模拟 
下 面 过 程 中 将 一 个 “监测 器 ” 放 到 一 个 线路 上 ， 用 于 显示 模拟 器 的 活动 。 这 一 过 程 告诉 
相应 的 线路 ， 只 要 它 的 值 改变 了 ， 就 应 该 打印 出 新 的 值 ， 同 时 打印 当前 时 间 和 线路 名 字 : 


(define (probe name wire) 
(add-action! wire 


(lambda () 
(newline) 
(display name) 
(display " ") 
(display (current-time the-agenda) ) 
(display " New-value = ") 


(display (get-signal wire))))) 
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我 们 从 初始 化 待 处 理 表 和 描述 各 种 功能 块 的 延 时 开始 : 
(define the-agenda (make-agenda)) 
(define inverter-delay 2) 
(define and-gate-delay 3) 
(define or-gate-delay 5) 
现在 定义 4 条 线路 ， 在 其 中 的 两 条 线路 上 安装 监测 器 : 
(define input-1 (make-wire) ) 
(define input-2 (make-wire)) 
(define sum (make-wire) ) 


(define carry (make-wire) ) 


(probe ‘sum sum) 
sum 0 New-value = 0 


(probe ‘carry carry) 
carry 0 New-value = 0 


下 面 我 们 将 这 些 线路 连接 到 一 个 半 加 器 电路 上 (参见 图 3-25 )， 将 input-1 上 的 信号 设置 为 ! ， 
而 后 运行 这 个 模拟 : 

(half-adder input~l1 input-2 sum carry) 

ok 

(set-signal! input-1 1) 

done 


(propagate) 
sum 8 New-value = 1 
done 


在 时 间 8，sum 上 的 信号 变 为 1。 现 在 到 了 模拟 开始 之 后 的 8 个 时 间 单位 。 在 这 一 点 上 ， 我 们 可 
以 将 input-2 上 的 信号 设置 为 1 ， 并 让 有 关 的 值 向 前 传播 

(set-signal! input-2 1) 

done 


(propagate) 一 
carry 11 New-value = 1 
sum 16 New-value = 0 
done 


在 时 间 11 处 carry 变 为 1， 在 时 间 16 处 sum 变 成 0 。 

练习 3.31 在 make-wire 里 定义 的 内 部 过 程 accept-action-procedure! 描述 的 是 ， 
当 一 个 新 的 动作 过 程 加 入 线路 时 ， 这 一 过 程 应 立即 运行 。 请 解释 为 什么 需要 这 种 初始 动作 。 
特别 是 ， 请 追踪 上 面 段 落 里 的 半 加 器 例子 ， 看 看 如 果 我 们 不 这 样 做 ， 而 是 将 accept- 
action-~procedure! 定 义 为 下 面 形式 ， 那 会 出 现 什 么 情况 : 


(define (accept-action-procedure! proc) 
(set! action-procedures (cons proc action-procedures ) }) 


待 处 理 表 的 实现 
最 后 介绍 待 处 理 表 数据 结构 的 细节 ， 这 一 数据 结构 里 面 保存 着 已 经 安排 好 ， 将 在 未 来 时 
刻 运 行 的 那些 过 程 。 
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这 种 待 处 理 表 由 一 些 时 间 段 组 成 ， 每 个 时 间 段 是 由 一 个 数值 (表示 时 间 ) 和 一 个 队列 
( 见 练习 3.32) 组 成 的 序 对 ， 在 这 个 队列 里 ， 保 存 着 那些 已 经 安排 好 的 ， 应 该 在 这 一 时 间 段 运 
行 的 过 程 。 
(define (make-time-segment time queue) 
(cons time queue) ) 
(define (segment-time s) (car s)) 


(define (segment-queue s) (cdr s)) 


我 们 将 用 3.3.2 节 描述 的 队列 操作 完成 在 时 间 段 队列 上 的 操作 。 

待 处 理 表 本 身 就 是 时 间 段 的 一 个 一 维 表格 。 与 3.3.3 节 所 示 的 表格 的 不 同 之 处 ， 就 在 于 这 
些 时 间 段 应 该 按照 时 间 递 增 的 顺序 排列 。 此 外 ， 我 们 还 需 在 待 处 理 表 的 头 部 保存 一 个 当前 时 
间 〈 即 ， 此 前 最 后 被 处 理 的 那个 动作 的 时 间 ) 。 一 个 新 构造 出 的 待 处 理 表 里 没 有 时 间 段 ， 其 当 
前 时 间 是 0 ”: 

(define (make-agenda) (list 0) ) 

(define (current-time agenda) (car agenda)) 

(define (set-current-time! agenda time) 

(set-car! agenda time) ) 
(define (segments agenda) (cdr agenda) ) 
(define (set-segments! agenda segments) 
(set-cdr! agenda segments) ) 

(define (first-segment agenda) (car (segments agenda) ) ) ) 

(define (rest-segments agenda) (cdr (segments agenda) ) ) 

如 果 一 个 待 处 理 表 里 没有 时 间 段 ， 那 它 就 是 空 的 : 


(define (empty-agenda? agenda) 
(null? (segments agenda) )) 

为 了 将 一 个 动作 加 入 待 处 理 表 ， 我 们 首先 要 检查 这 个 待 处 理 表 是 否 为 空 。 如 果真 是 这 样 ， 
那么 就 创建 一 个 新 的 时 间 段 ， 并 将 这 个 时 间 段 装 入 待 处 理 表 里 。 和 否则 我 们 就 扫描 整个 的 待 处 
理 表 ， 检 查 其 中 各 个 时 间 段 的 时 间 。 如 果 发 现 某 个 时 间 段 具有 合适 的 时 间 ， 那 么 就 把 这 个 动 
作 加 入 与 之 关联 的 队列 里 。 如 果 磁 到 了 某 个 比 需要 预约 的 时 间 更 晚 的 时 间 ， 那 么 就 将 一 个 新 
的 时 间 段 插入 待 处 理 表 ， 插 入 这 个 位 置 之 前 。 如 果 到 达 了 待 处 理 表 的 末尾 ， 我 们 就 必须 在 最 
后 加 上 一 个 新 的 时 间 段 。 

(define (add-to-agenda! time action agenda) 

(define (belongs-before? segments) 
(or (null? segments) 
(< time (segment-time (car segments))))) 
(define (make-new-time-segment time action) 


(let ((q (make-queue) )) 
(insert-queue! q action) 


156 待 处 理 表 是 一 个 带 表 头 单元 的 表 ， 就 像 3.3.3 节 的 表格 。 但 是 因为 这 个 表 头 中 存放 着 当前 时 间 ， 我 们 就 不 必 在 
HEM EMA IT (例如 表 列 所 用 的 *tab1le* 符 号) 。 
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(make-time-segment time q))) 
(define (add-to-segments! segments) 
(if (= (segment-time (car segments)) time) 
(insert-queue! (segment-queue (car segments) ) 
action) 
(let ((rest (cdr segments) )) 
(if (belongs-before? rest) 
(set-cdr! 
segments 
(cons (make-new-time-segment time action) 
(cdr segments) )) 
(add-to-segments! rest))))) 
(let ((segments (segments agenda) )) 
(if (belongs-before? segments) 
(set-segments! 
agenda 
(cons (make-new-time-segment time action) 
segments) ) 


(add-to-segments! segments) ))) 


从 待 处 理 表 中 删除 第 一 项 的 过 程 ， 应 该 删 去 第 一 个 时 间 段 的 队列 前 端的 那 一 项 。 如 果 删 
除 使 这 个 时 间 段 变 空 了 ， 我 们 就 将 这 个 时 间 段 也 从 时 间 段 的 表 里 删 去 ”: 
(define (remove-first-agenda-item! agenda) 
(let ((q (segment-queue (first-segment agenda) ))) 
(delete-queue! q) f 
(if (empty-queue? q) 
(set-segments! agenda (rest-segments agenda))))) | 
找 出 待 处 理 表 中 里 第 一 项 ， 也 就 是 找 出 其 第 一 个 时 间 段 队列 里 的 第 一 项 。 无 论 何 时 提取 
这 个 项 时 ， 都 需要 更 新 待 处 理 表 的 当前 时 间 '”: 
(define (first-agenda-item agenda) 
(if (empty-agenda? agenda) 
(error "Agenda is empty -- FIRST-AGENDA-ITEM" ) 
(let ((first-seg (first-segment agenda) ) ) 
(set-current-time! agenda (segment-time first-seg) ) 
(front-queue (segment-queuve first-seg))))) 
练习 3.32 ”在 待 处理 表 中 ， 在 某 个 时 间 段 里 需要 运行 的 过 程 都 保存 在 一 个 队列 里 ， 这 就 
使 对 于 每 个 时 间 段 中 过 程 的 调用 能 按照 它们 加 入 待 处 理 表 的 次 序 进行 (先进 先 出 )。 请 解释 必 
须 采 用 这 种 顺序 的 理由 。 请 特别 追踪 一 个 与 门 的 行为 ， 假 设 它 的 输入 在 一 个 时 间 段 里 从 0, 1 变 
为 1, 0。 请 说 明 ， 如 果 我 们 将 过 程 按照 常规 表 的 方式 存 人 时 间 段 ， 总 是 在 表 的 前 端 桂 入 和 删除 
过 程 (后 进 先 出 )， 那 么 会 出现 什么 情况 。 


157 请 注意 ， 这 个 过 程 里 用 的 if 表 达 式 没有 <aliernative> 部 分 。 这 种 “ 单 支 1£ 语 名 ”用 于 确定 基 件 事情 做 或 不 做 ， 
而 不 是 在 两 个 表达 式 中 做 选择 。 如 果 if 表 达 式 没有 <alternative> ， 在 谓词 为 假 时 返回 值 不 确定 。 

158 按 这 种 方式 ， 当 前 时 间 将 总 是 最 近 处 理 的 动作 的 时 间 。 将 这 一 时 间 保存 在 待 处 理 表 的 头 部 ， 将 能 保证 即使 与 
这 一 时 间 关 联 的 时 间 段 已 经 被 删除 ， 当 前 时 间 仍然 是 可 用 的 。 


3.3.5 约束 的 传播 


在 传统 上 上， 计算 机 程序 总 被 组 织 成 一 种 单 向 的 计算 ， 它 们 对 一 些 事先 给 定 的 参数 执行 某 
些 操 作 ， 产 生出 所 需要 的 输出 。 但 在 另 一 方面 ， 我 们 也 经 常 需要 模拟 一 些 由 各 种 量 之 间 的 关 
系 描述 的 系统 。 例 如 ， 某 个 机 械 结构 的 数学 模型 里 可 能 包含 着 这 样 的 一 些 信息 : 在 一 个 金属 
杆 的 偏转 量 4 与 作用 于 这 个 杆 的 力 F、 杆 的 长 度 L、 截 面 面 积 4 和 弹性 模 数 之 间 的 关系 可 以 由 
下 面 方程 描述 : 
dAE =FL = 


这 种 关系 并 不 是 单 向 的 ， 给 定 了 其 中 任意 的 4 个 量 ， 我 们 就 可 以 利用 它 计算 出 第 5 个 量 。 然 而 ， 
要 将 这 种 方程 翻译 到 传统 的 程序 设计 语言 ， 就 会 迫使 我 们 选 出 一 个 量 ， 要 求 基 于 另外 的 4 个 量 
去 计算 出 它 。 这 样 ， 一 个 用 于 计算 面积 4 的 过 程 将 不 能 用 于 计算 偏转 量 4， 虽 然 对 于 4 和 4 的 计 
算 都 出 自 这 同一 个 方程 ”。 

在 这 一 节 里 ， 我 们 要 描绘 一 种 语言 的 设计 ， 这 种 语言 将 使 我 们 可 以 基于 各 种 关系 进行 工 
作 。 这 一 语言 里 的 基本 元 素 就 是 基本 约束 ， 它 们 描述 了 在 不 同 量 之 间 的 某 种 特定 关系 。 例 如 ， 
(adder a b c) 描述 的 是 量 4a、b 和 c 之 间 必 须 有 关系 4+b=c，(multiplier x y z) fi 
述 的 是 约束 关系 xy =z, 而 (constant 3.14 x) 表示 x 的 值 永远 都 是 3.14。 

我 们 的 语言 里 还 提供 了 一 些 方法 ， 使 它们 可 以 用 于 组 合 各 种 基本 约束 ， 以 便 去 描述 更 复 
杂 的 关系 。 在 这 里 ， 我 们 将 通过 构造 约束 网 络 的 方式 组 合 起 各 种 约束 ， 在 这 种 约束 网 络 里 ， 
约束 通过 连接 器 连接 起 来 。 连 接 器 是 一 种 对 象 ， 它 们 可 以 “保存 ”一 个 值 ， 使 之 能 参与 一 个 
或 者 多 个 约束 。 例 如 ， 我 们 知道 在 华氏 温度 和 摄氏 温度 之 间 的 关系 是 : 

9C =5(F —32) l 
这 样 的 约束 就 可 以 看 作 是 一 个 网 络 (如 图 3-28 所 示 )， 通 过 基本 加 法 约束 、 乘 法 约束 和 常量 约 
束 组 成 。 在 这 个 图 里 ， 我 们 看 到 左边 的 乘法 块 有 三 个 引线 ， 分别 标记 为 m1、m2 和 p 。 该 乘法 
约束 的 这 些 引 线 以 如 下 方式 连接 到 网 络 的 其 他 部 分 : 引线 ml 连 到 连接 器 C ， 这 个 连接 器 将 保 
存 摄氏 温度 。 引 线 m2 接 在 连接 器 w ,该 连接 器 还 连接 着 一 个 保存 常量 9 的 约束 块 。 引 线 p 被 这 
一 乘法 块 约束 到 m1 和 m2 的 乘积 ， 它 还 连接 到 另 一 个 乘法 块 的 引线 。 另 一 乘法 块 的 m2 连接 到 
常量 5 ， 它 的 ml 连接 到 另 一 加 法 块 的 一 条 引线 上 。 


图 3-28 用 约束 网 络 表示 的 关系 9C =5(F — 32) 


!s9 约 东 传播 的 概念 首先 出 现在 Ivan Sutherland 的 不 可 思议 的 前 瞻 性 系 统 SKETCHPAD 中 (1963), Alan Borning 
在 Xerox Palo Alto 研 究 中 心 开发 一 个 基于 Smalltalk 语 言 的 漂亮 的 约束 传播 系统 (1977 )。Sussman 、Stallman 
和 Steele 将 约束 传播 用 于 电子 电路 分 析 (Sussman and Stallman 1975; Sussman and Steele 1980), TK!Solver 
(Konopasek and Jayaraman 1984) 是 一 个 基于 约束 的 扩展 模拟 环 境 。 


由 这 样 的 网 络 完 成 的 计算 以 如 下 方式 进行 : 当 某 个 连接 器 被 给 定 了 一 个 值 时 (由 用 户 或 
者 由 它 所 连接 的 某 个 约束 块 ) ， 它 就 会 去 唤醒 所 有 与 之 关联 的 约束 〈 除 了 刚刚 唤醒 它 的 那个 约 
束 之 外 )， 通 知 它们 自己 有 了 一 个 新 值 。 被 唤醒 的 每 个 约束 块 将 去 盘点 自己 的 连接 器 ， 看 看 是 
否 存在 足够 的 信息 为 某 个 连接 器 确定 一 个 值 。 如 果 可 能 的 话 ， 该 块 就 设置 相应 的 连接 器 ， 而 
这 个 连接 器 又 会 去 唤醒 与 之 连接 的 约束 ， 并 这 样 进行 下 去 。 举 例 说 ， 位 于 摄氏 和 华氏 之 间 的 
变换 常数 x»、x 和 y 将 立即 被 各 个 常量 块 分 别 设置 为 9、5 和 32。 这 些 连 接 器 唤醒 网 络 中 的 加 法 约 
东 和 乘法 约束 ， 但 是 它们 都 确定 了 现在 还 没有 足够 的 信息 继续 工作 。 如 果 用 户 (或 者 网 络 中 
的 另外 某 个 部 分 ) 为 C 设 置 了 一 个 值 (譬如 说 25)， 最 左边 的 乘法 约束 就 会 被 唤醒 ， 它 会 把 4 设 
BH . 9 =225 。 而 后 u 就 会 唤醒 第 二 个 乘法 约束 ， 这 一 乘法 约束 将 把 v 设 置 为 45 ; v 又 会 唤醒 
那个 加 法 约束 ， 该 加 法 约束 将 把 F 设 置 为 77。 


约束 系统 的 使 用 
为 了 使 用 上 面 给 出 了 梗概 的 约束 系统 模型 去 执行 温度 计算 ， 我 们 需要 首先 调用 构造 函数 
make-connector ,创建 起 两 个 连接 器 C 和 F， 而 后 将 它们 连接 到 一 个 适当 的 网 络 里 : 


(define C (make-connector) ) 
(define F (make-connector } ) 
(celsius-fahrenheit-converter C F) 
ok 


创建 上 述 网 络 的 过 程 的 定义 如 下 : 
(define (celsius-fahrenheit-converter C f) 
(let ((u (make-connector) ) 

(v (make-connector) ) 
(w (make-connector ) ) 
(x (make-connector) ) 
(y (make-connector) ) ) ) 

(multiplier c w u) 

{multiplier v x u) 

(adder v y f) 

(constant 9 w) 

(constant 5 x) 

(constant 32 y) 

"ok ) ) 


这 一 过 程 建立 起 内 部 连接 器 u 、v、w、x 和 yY， 调 用 基本 约束 的 构造 函数 adder multiplier 
和 constant， 并 将 它们 按照 图 3-28 所 示 的 形式 连接 起 来 。 就 像 3.3.4 节 描述 的 一 样 ， 以 过 程 的 
方式 描述 几 个 元 素 的 组 合 ， 也 就 自动 地 为 语言 提供 了 一 种 复合 对 象 的 抽象 方法 。 

为 了 观察 这 个 网 络 的 活动 ， 我 们 可 以 为 连接 器 C 和 F 安 装 上 Probe 过 程 ， 这 里 使 用 的 过 程 
probe 与 前 面 在 3.4.4 节 里 监视 线路 的 过 程 类 似 。 在 连接 器 上 安装 监视 器 ， 将 导致 每 次 给 这 个 
连接 器 一 个 值 时 ， 就 会 打印 出 一 个 消息 : 

(probe "Celsius temp" C) 

(probe "Fahrenheit temp" F) 


下 面 我 们 将 C 设 置 为 25 set-value! 的 第 三 个 参数 告诉 Cc ， 这 个 指示 直接 来 自 user。 


(set-value! C 25 ’user) 
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Probe: Celsius temp = 25 

Probe: Fahrenheit temp = 77 

done 
附 在 C 上 的 监视 器 被 唤醒 并 报告 有 关 的 值 。C 还 将 它 的 值 像 上 面 所 说 的 那样 沿 着 网 络 传 播 ， 这 
将 使 F 被 设置 为 77， 最 后 也 由 F 的 监视 器 报告 出 来 。 

下 面 我 们 想 试 试 为 F 设 置 一 个 新 值 ， 例 如 212: 

(set-value! F 212 ‘user) 

Error! Contradiction (77 212) 
这 一 连接 器 抱怨 说 它 发 现 了 一 个 矛盾 : 它 的 值 现在 是 77， 而 别 的 什么 地 方 想 将 它 的 值 设置 为 
212。 如 果 我 们 真希 望 对 新 的 值 重新 使 用 这 一 网 络 ， 那 么 就 应 该 告诉 C 忘 掉 它 原先 的 值 : 

(forget-value! C ’user) f 

Probe: Celsius temp = ? 


Probe: Fahrenheit temp = ? 
done 


C 看 到 user 现 在 要 求 自 己 撤销 已 有 的 值 ， 而 该 值 原 来 就 是 它 设置 的 ， 因 此 就 同意 丢掉 该 值 ， 
正如 监视 器 所 报告 的 情况 。 这 一 信息 也 通知 到 网 络 的 其 余部 分 ， 有 关 消 息 最 终 传播 到 F ， 使 它 
发 现 已 经 不 该 继续 保持 值 ?7 了 。 这 样 ，F 也 就 放弃 了 原来 的 值 ， 如 监视 器 所 报告 的 那样 。 

现在 F 没 有 值 了， 此 时 我 们 完全 可 以 将 它 设置 为 212: 

(set-value! F 212 ’user) 

Probe: Fahrenheit temp = 212 


Probe: Celsius temp = 100 
done 


这 一 新 值 通过 网 络 传播 ， 最 终 迫 使 具有 值 100， 这 一 情况 被 附着 在 C 上 的 监视 器 报告 出 来 。 
从 这 里 可 以 看 到 ， 同 样 的 一 个 网 络 ， 在 给 定 了 F 之 后 能 用 于 计算 C ， 在 给 定 C 后 能 算出 F。 这 种 
非 定向 的 计算 是 基于 约束 的 系统 的 标志 性 特征 。 


约束 系统 的 实现 
约束 系统 用 具有 内 部 状态 的 过 程 对 象 实现 ， 所 用 的 方式 很 像 3.3.4 节 里 的 数字 电路 模拟 器 。 
虽然 约束 系统 里 的 基本 对 象 在 某 些 方面 更 复杂 一 些 ， 但 整个 系统 却 更 为 简单 ， 因 为 这 里 完全 
不 需要 关心 待 处 理 表 和 时 间 延 迟 等 等 问题 。 
连接 器 的 基本 操作 包括 : 
。 (has-value? <connector>) 
报告 说 这 一 连接 器 是 否 有 值 。 
e (get-value <connector>) 
返回 连接 器 当前 的 值 。 
。(Set-Valuel <connector> <new-value> <informant> ) 
通知 说 ， 信 息 源 (informant) 要 求 连接 器 将 其 值 设置 为 一 个 新 值 。 
« (forget-value! <connector> <retractor> ) 
通知 说 ， 撤 销 源 (retractor) 要 求 连接 器 忘记 其 值 。 
。 (connect <connector> <new-constraint> ) 


通知 连接 器 参与 一 个 新 约束 。 


3.3 用 变动 数据 做 柑 拟 207 


连接 器 通过 过 程 inform~about-value 与 各 个 相关 约束 通信 ， 这 一 过 程 告知 给 定 的 约 
东 ， 现 在 该 连接 器 有 了 一 个 新 值 。 过 程 ijnform-about~no-value 告知 有 关 的 约束 ,现在 
该 连接 器 丧失 了 自己 原 有 的 值 。 

过 程 adder 在 被 求 和 连接 器 al 和 a2 与 和 连接 器 sum 之 闻 构 造 出 一 个 加 污 约 柬 。 加 法 约束 
也 实现 为 一 个 带 有 内 部 状态 的 过 程 (下 面 的 过 程 me ): 


(define (adder al a2 sum) 
(define (process-new-value) 
(cond ((and (has-value? al) (has-value? a2)) 
(set-value! sum 
(+ (get-value al) (get-value a2)) 
me) ) 
((and (has-value? al) (has-value? sum) ) 
(set-value! a2 
(~ (get-value sum) (get-value al)) 
me ) ) 
((and (has-value? a2) (has-value? sum)) 
(set-value! al 
(- (get-value sum) (get-value a2)) 
me)))) 
(define (process-forget-value) 
(forget-value! sum me) 
(forget-value! al me) 
(forget-value! a2 me) 
(process-new-value) ) 
(define (me request) 
(cond ((eq? request "I-have-a-value) 
(process-new-value) ) 
( (eq? request "I-lost-my-value) 
(process-forget-value) ) 
(else 
(error "Unknown request -- ADDER" request)))) 
(connect al me) 
(connect a2 me) 
(connect sum me) 


me) 


过 程 addez 将 一 个 新 的 加 法 约束 连接 到 指定 连接 器 ， 并 将 这 个 加 法 约束 作为 自己 的 返回 值 。 
过 程 me 就 代表 那个 加 法 约束 ， 它 的 活动 方式 就 像 是 一 个 对 完成 局 部 过 程 分 派 的 分 派 过 程 。 下 
面 的 “语法 界面 ”( 参 见 3.3.4 节 里 的 脚注 155) 可 以 与 上 述 分 派 过 程 结合 使 用 : 

(define (inform-about-value constraint) 


(constraint "I-have-a-value) ) 


(define (inform-about-no-value constraint) 
(constraint "I-lost-my-value) } 


当 加 法 约束 得 到 了 通知 ， 知 道 自己 的 一 个 连接 器 有 了 新 值 时 ， 这 个 约束 里 的 局 部 过 程 process- 
new-value 就 会 被 调用 。 此 时 ， 加 法 约束 首先 检查 al 和 a2 是 否 都 有 了 值 ， 如 果 有 的 话 ， 它 就 告 
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诉 sum 将 其 值 设置 为 两 个 加 数 之 和 。 送 给 set-valuel! 的 informant 参 数 是 me ， 也 就 是 这 个 加 
法 对 象 本 身 。 如 果 并 排 a1 和 a2 都 有 了 值 ， 那 么 加 法 对 象 就 检查 是 否 al 和 sum 都 已 经 有 了 值 ， 如 
果 情 况 真 是 这 样 ， 它 就 将 a2 设 置 为 两 者 之 差 。 最 后 ， 如 果 a2 和 sum 都 有 值 ， 就 给 了 这 个 加 法 对 
象 足够 的 信息 去 设置 a1 。 如 果 加 法 对 象 被 告知 自己 的 一 个 连接 器 丧失 了 值 ， 那 么 它 就 要 求 其 所 
有 连接 器 丢掉 它们 的 值 (实际 上 ， 只 有 那些 被 该 加 法 对 象 设置 值 的 连接 器 会 丢掉 值 ) ， 而 后 再 运 
行 它 的 过 程 Process-new-value。 需 要 最 后 这 一 步 的 原因 是 ， 还 可 能 有 些 连 接 器 仍然 有 自己 
的 值 (也 就 是 说 ， 某 个 连接 器 过 去 所 拥有 的 值 原来 就 不 是 由 这 个 加 法 对 象 设置 的 )， 这 些 值 又 可 
能 需要 通过 这 一 加 法 对 象 传播 。 
乘法 对 象 很 像 加 法 对 象 。 如 果 两 个 因子 之 一 是 0， 它 就 会 把 Product 设 置 为 0 ， 即 使 另 一 
个 因子 现在 还 不 知道 。 
(define (multiplier ml m2 product) 
(define (process-new-value) 
(cond ((or (and (has-value? ml) (= (get-value ml) 0)) 
(and (has-value? m2) (= (get-value m2) 0))) 
(set-value! product 0 me)) 
((and (has-value? ml) (has-value? m2)) 
(set-value! product 
(* (get-value ml) (get-value m2)) 
me) ) 
((and (has-value? product) (has-value? ml) ) 
(set-value! m2 
(/ (get-value product) (get-value ml)) 
me) ) 
((and (has-value? product) (has-value? m2)) 
(set-value! ml 
(/ (get-value product) (get-value m2)) 
me)))) l 
(define (process-forget-value) 
(forget-value! product me) 
(forget-value! ml me) 
(forget-value! m2 me) 
{process-new-value)) 
(define (me request) 
(cond ((eq? request 'I-have-a-Value) 
(process-new-value) ) 
((eq? request "I-lost-my-value) 
(process-forget-value) ) 
(else 
(error “Unknown request -- MULTIPLIER" request) ) ) ) 
(connect ml me) 
(connect m2 me) 
(connect product me) 
me) 


constant 的 构造 函数 简单 地 设置 指定 连接 器 的 值 。 任 何 时 候 把 I-have-a-value 或 者 I- 
lost-my-value 消 息 送 到 常量 块 都 会 产生 一 个 错误 。 


(define (constant value connector) 
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(define (me request) 
(error "Unknown request -- CONSTANT" request) ) 
(connect connector me) 
{set-value! connector value me) 
me) 


最 后 ， 监 视 器 在 指定 连接 器 被 设置 或 者 取消 值 的 时 候 打 印 出 一 个 消息 : 


(define (probe name connector) 
(define (print~probe value) 
(newline) 
(display "Probe: ") 
(display name) 
(display " = ") 
(display value) ) 
(define (process-new-value) 
(print-probe (get-value connector) )) 
(define (process-forget-value) 
(print-probe "?")) 
(define (me request) 
(cond ((eq? request ’I-have-a-value) 
(process-—new-value) ) 
((eq? request *I-lost-my-value) 
(process~-forget-value) ) 
(else 
(error "Unknown request -- PROBE" request))}) 
(connect connector me) 
me) 


连接 器 的 表示 
连接 器 用 带 有 局 部 状态 变量 value、informant 和 constraints 的 过 程 对 象 表 示 ， 
value 中 保存 这 个 连接 器 的 当前 值 ，informant 是 设置 连接 器 值 的 对 象 ， constraints 是 
这 一 连接 器 所 涉及 的 所 有 约束 的 表 。 
(define (make-connector) 
(let ((value false) (informant false) (constraints °())) 
(define (set-my-value newval setter) 
(cond ((not (has-value? me) ) 
(set! value newval) 
(set! informant setter) 
(for-each-except setter 
inform-about-value 
constraints) ) 
((not (= value newval)) 
(error "Contradiction" (list value newval))) 
(else ’ignored))) 
(define (forget-my-value retractor) 
(if (eq? retractor informant) 
(begin (set! informant false) 
(for-each-except retractor 
inform-about-no-value 
constraints) ) 


"9gnored) ) 
(define (connect new-constraint) 
(if (not (memg new-constraint constraints) )} 
(set! constraints 
(cons new-constraint constraints) )) 
(if (has-value? me) 
(inform-about-value new-constraint) ) 
done) 
(define (me request) 
(cond ((eq? request "has-value?) 
(if informant true false)) 
((eq? request ’value) value) 
((eq? request ’set-value!) set-my-value) 
((eq? request ’forget) forget-my-value) 
((eq? request ’connect) connect) 
(else (error "Unknown operation -- CONNECTOR" 
request)))) 
me) ) 


当 出 现 了 设置 一 个 连接 器 的 要 求 时 ， 该 连接 器 的 局 部 过 程 set-my~value 就 会 被 调用 。 
如 果 这 一 连接 器 当时 并 没有 值 ， 那 么 它 就 设置 自己 的 值 ， 并 在 informant 里 记录 下 要 求 设置 
当前 值 的 那个 约束 '。 而 后 这 一 连接 器 将 通知 它 所 参与 的 所 有 约束 ， 除 了 刚刚 要 求 设置 值 的 
那个 约束 之 外 。 这 一 工作 通过 下 面 的 迭代 过 程 完成 ， 它 将 一 个 指定 过 程 应 用 于 一 个 表 中 的 所 
有 对 象 ， 除 了 一 个 给 定 的 例外 ， 


(define (for-each-except exception procedure list) 
(define (loop items) 
(cond ((null? items) ’done) 
((eq? (car items) exception) (loop (cdr items))) 
(else (procedure (car items) ) 
(loop (cdr items))))) 
{loop list)) 

当 连 接 器 被 要 求 忘记 自己 的 值 时 ， 它 就 会 去 运行 局 部 过 程 forget-my~value 。 这 个 过 
程 首 先 检 查 这 一 要 求 是 否 来 自 原先 设置 值 的 同一 个 对 象 。 如 果 情 况 确 实 如 此 ， 连 接 器 就 通知 
它 所 参与 的 所 有 约束 ， 告 知 它们 自己 的 值 已 经 没有 了 。 

局 部 过 程 connect 向 约 东 表 里 加 入 一 个 新 约束 (如 果 它 以 前 不 在 表 里 )。 如 果 这 个 连接 器 
已 经 有 值 ， 它 就 会 将 这 一 事实 通知 这 个 新 约束 。 

连接 器 过 程 me 完 成 对 于 内 部 过 程 服务 的 分 派 工作 ， 它 同时 也 作为 这 个 连接 器 对 象 的 代表 。 
下 面 几 个 过 程 为 分 派 提供 了 一 个 语法 界面 

(define (has-value? connector) 


(connector *has-value?)) 


(define (get-value connector) 
(connector ’value)) 


(define (set-value! connector new-value informant) 
( (connector ’set-value!} new-value informant) ) 


o 这 里 的 setter 也 可 能 不 是 约束 。 在 前 面 有 关 温 度 的 例子 里 ， 就 用 了 user 作 为 setter。 
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(define (forget-value! connector retractor) 


( (connector ’forget) retractor) ) 


(define (connect connector new-constraint) 
((connector ’connect) new-constraint) ) 


练习 3.33 ”利用 基本 的 加 法 、 乘 法 和 常量 约束 定义 一 个 averager 过 程 ， 它 以 三 个 连接 a、 
b 和 c 作为 输入 ， 建 立 起 一 个 约束 ， 使 得 c 总 是 a 和 b 的 平均 值 。 

练习 3.34 Louis Reasoner 想 做 一 个 平方 器 ， 也 就 是 一 种 带 有 两 条 引线 的 约束 装置 ， 使 得 
连接 在 它 的 第 二 条 引线 上 的 连接 器 b 的 值 是 其 第 一 条 引线 上 的 值 a 的 平方 。 他 提出 了 用 乘法 约 
束 定义 这 一 设备 的 简单 方法 : 

(define (squarer a b) 

(multiplier a a b)) 


这 一 建议 有 一 个 严重 缺陷 ， 请 给 出 解释 。 
练习 3.35 Ben Bitdiddle 告 诉 Louis ， 为 了 避免 他 在 练习 3.34 中 遇 到 的 麻烦 ， 一 种 方式 是 将 
平方 器 定义 为 一 个 新 的 基本 约束 。 请 填充 Ben 所 给 出 的 下 面 过 程 概要 ， 实 现 这 样 的 约束 : 
(define (squarer a b) 
(define (process-new-value) 
(if (has-value? b) 
(if (< (get-value b) 0) 
(error "square less than 0 -- SQUARER" (get-value b)) 
<alternativel> ) 
<alternative2> ) ) 
(define (process-forget-value) <bodyl>) 
(define (me request) <body2>) 
< 其 他 定 义 > 


me) 
练习 3.36 ”假定 我 们 要 在 全 局 环境 里 求 值 下 面 的 表达 式 序列 : 
(define a (make-connector) ) 
(define b (make-connector) ) 
(set-value! a 10 ‘user) 
在 对 set-value! 求 值 的 某 个 时 刻 ， 需 要 在 连接 器 的 局 部 过 程 中 求 值 下 面 表 达 式 : 
(for-each-except setter inform-about-value constraints) 
请 画 出 表示 上 述 表达 式 的 求 值 环境 的 环境 图 。 
练习 3.37 与 下 面 更 具 表 达 式 风格 的 定义 相 比 ， 过 程 celsius-fahrenheit-converter 
显得 过 于 麻烦 了 : 
(define (celsius-fahrenheit-converter x) 
(c+ (c* (c/ (cv 9) (cv 5)) 
x) 
(cv 32))) 


(define C (make-connector) ) 
(define F (celsius-fahrenheit-converter C)) 


这 里 的 c + 、c* 等 等 是 算术 运算 的 “约束 ”版 。 例 如 ，c + 以 两 个 连接 器 为 参数 ， 返 回 另 一 个 
连接 器 ， 它 与 那 两 个 连接 器 具有 加 法 约束 : 
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(define (c+ x y) 
(let ((z (make-connector) )) 
(adder x y 2) 
z)) 
请 定义 模拟 过 程 c- 、c* 、c/ 和 cv (常量 值 ) ， 使 我 们 可 以 利用 它们 定义 出 各 种 复合 约束 ， 就 
像 前 面 有 关 反 门 的 例子 *!。 


3.4 并 发 : 时 间 是 一 个 本 质问 题 


我 们 已 经 看 到 了 具有 内 部 状态 的 计算 对 象 作为 模拟 工具 的 威力 。 然 而 ， 正 如 3.1.3 节 提出 
的 警告 ， 这 种 威力 也 付出 了 代价 : 丢掉 了 引用 透明 性 ， 造 成 了 有 关 同 一 与 变化 问题 中 的 模糊 
不 清 ， 还 必须 抛弃 求 值 的 代 换 模型 ， 转 而 采用 更 复杂 也 难 把 握 的 环境 模型 。 

潜藏 在 状态 、 同 一 、 变 化 后 面 的 中 心 问题 是 ， 引 入 赋值 之 后 ， 我 们 就 必须 承认 时 间 在 所 
用 的 计算 模型 中 的 位 置 。 在 引入 赋值 之 前 ， 我 们 的 所 有 程序 都 没有 时 间 问 题 ， 也 就 是 说 ， 任 
何 具 有 某 个 值 的 表达 式 ， 将 总 是 具有 这 个 值 。 与 此 相反 ， 请 回忆 一 下 在 3.1.1 节 开始 介绍 的 ， 
模拟 从 银行 账户 提 款 并 返回 最 后 余额 的 例子 : 

{withdraw 25) 


75 


(withdraw 25) 
50 


在 这 里 ， 连 续 地 对 同一 个 表达 式 求 值 ， 却 产生 出 了 不 同 的 值 。 这 种 行为 的 出 现 就 是 因为 一 个 
Be: 赋值 语句 的 执行 (在 所 讨论 的 情况 中 就 是 对 balance 的 赋值 ) 描绘 出 有 关 值 变化 的 一 
些 时 刻 ， 对 一 个 表达 式 的 求 值 结果 不 但 依赖 于 该 表达 式 本 身 ， 还 依赖 于 求 值 发 生 在 这 些 时 刻 
之 前 还 是 之 后 。 采 用 具有 局 部 状态 的 计算 对 象 建立 模型 ， 就 会 迫使 我 们 去 直面 时 间 问 题 ， 并 
将 它 作 为 程序 设计 中 一 个 必 不 可 少 的 概念 。 . 

在 构造 与 我 们 所 感知 的 物理 世界 更 加 匹配 的 计算 模型 方面 ,我 们 还 可 以 走 得 更 远 一 些 。 


N 这 种 类 表达 式 的 表示 形式 比较 方便 ， 因 为 在 这 里 可 以 不 必 去 命名 一 个 计算 的 中 间 表达 式 。 我 们 原来 的 约 东 语 
言 在 形式 上 的 麻烦 ， 与 许多 语言 中 处 理 复合 数据 的 操作 时 所 遇 到 的 麻烦 完全 一 样 。 例 和 如， 如 果 我 们 希望 计算 
HR (a+b) . (c + 中， 其 中 的 变量 都 表示 向 量 ， 我 们 可 以 采用 “命令 式 风格 "， 用 一 些 设置 指定 向 量 参 数 ， 但 
自己 并 不 返回 向 量 值 的 过 程 : 

(v-sum a b templ) 

(v-sum c d temp2) 

(v-prod templ temp2 answer) 

换 一 种 方式 ， 我 们 也 可 以 用 返回 向 量 值 的 过 程 写 表 达 式 ， 因 此 就 可 以 避免 显 式 地 提出 temp1 和 temp2 : 
(define answer (v-prod (v-sum a b) (v-sum C d))) 

因为 Lisp 人 允许 返回 复合 对 象 作为 过 程 的 值 ， 因 此 我 们 就 可 以 将 上 面 的 命令 式 风 格 的 约束 语言 ， 变 换 为 另 一 种 
表达 式 风格 的 语言 ( 见 上 述 练习 )。 在 那些 处 理 复合 数据 对 象 方面 手段 贫乏 的 语言 里 ， 例 如 Aligol 、Basic 和 
Pascal (一 个 例外 的 是 在 Pascal 里 显 式 使 用 指针 变量 )， 人 们 通常 只 能 通过 命令 式 风 格 去 操作 复合 对 象 。 看 到 
了 基于 表达 式 风格 的 优点 之 后 ， 有 人 可 能 会 问 ， 采 用 命令 式 风 格 实现 系统 ( 像 我 们 在 这 一 节 里 所 做 的 这 样 ) 
难道 还 有 什么 理由 吗 ? 这 里 的 一 个 理由 是 ， 非 表达 式 风格 的 约束 语言 为 约束 对 象 和 连接 器 对 象 提供 了 句柄 
(例如 ，adder 过 程 的 值 ) ， 如 果 我 们 希望 为 有 关 的 系统 扩充 一 些 新 操作 ， 和 希望 它们 直接 与 这 些 约束 通信 ， 而 
不 是 通过 连接 器 上 的 操作 ， 这 种 句柄 就 会 显得 非常 有 用 了 。 虽 然 在 命令 式 的 实现 之 上 很 容易 实现 基于 表达 式 
的 风格 ， 要 想 反 过 来 做 就 非常 困难 了 。 


现实 世界 里 的 对 象 并 不 是 一 次 一 个 地 顺序 变化 ， 与 此 相反 ， 我 们 看 到 它们 总 是 并 发 地 活动 ， 
所 有 东西 一 起 活动 。 所 以 ， 用 一 集 并 发 执行 的 计算 进程 (为 了 与 一 般 讨论 并 行 计算 与 并 发 问 
题 的 文献 保持 一 致 ， 在 这 一 节 里 ， 我 们 把 术语 process 翻 译 为 “进程 ”。 实 际 上 ， 这 里 的 
process 与 前 面 译 为 “计算 过 程 ”的 process 描 述 的 是 同样 的 现象 ， 都 是 指 一 个 计算 活动 的 进展 
情况 一 一 译 者 注 ) 模拟 各 种 系统 常常 是 很 自然 的 。 正 如 我 们 可 以 通过 将 模型 组 织 为 一 些 具 有 
相互 分 离 的 局 部 状态 的 对 象 ， 使 做 出 的 程序 更 加 模块 化 一 样 ， 将 计算 模型 划分 为 一 些 能 各 自 
独立 地 并 发 演化 的 部 分 ， 常 常 也 是 很 合适 的 。 即 使 有 关 的 程序 是 在 一 台 上 顺序 计算 机 上 执行 ， 
在 实际 写 程 序 时 就 像 它们 将 被 并 发 地 执行 那样 ， 也 能 帮助 程序 员 们 避免 那些 并 不 必要 的 时 间 
约束 ， 因 此 也 可 能 使 程序 更 加 模块 化 。 

除了 使 程序 更 加 模块 化 之 外 ， 并 发 计算 还 可 能 提供 某 种 超越 顺序 计算 的 速度 优势 。 顺 序 
计算 机 每 次 只 能 执行 一 个 操作 ， 所 以 它 执行 一 件 任 务 所 花费 的 时 间 量 将 正比 于 需要 执行 的 操 
作 的 总 数 '“。 然 而 ， 如 果 可 能 将 一 个 问题 分 解 为 一 些 片 段 ， 这 些 片 段 之 间 相 对 独立 ， 极 少 需 
要 相互 联系 ， 那 么 就 有 可 能 将 这 些 片段 分 配给 不 同 的 计算 处 理 器 ， 得 到 的 速度 提高 就 可 能 正 
比 于 可 用 的 处 理 器 数目 了 。 

但 是 ， 在 出 现 了 并 发 的 情况 下 ， 由 赋值 引入 的 复杂 性 问题 将 变 得 更 加 严重 了 。 无 论 是 因 
为 真实 世界 确实 如 此 ， 还 是 因为 我 们 在 计算 机 里 这 样 做 ， 并 发 执行 的 出 现 都 会 在 我 们 对 时 间 
的 理解 中 加 入 进一步 的 复杂 性 。 


3.4.1 并 发 系统 中 时 间 的 性 质 


从 表面 上 看 ， 时 间 似 乎 是 非常 简单 的 东西 。 它 也 就 是 强加 在 各 种 事件 上 的 一 个 顺序 ” 。 
对 于 任何 两 个 事件 4 和 B ,或 者 是 4 出 现在 B 之 前 , 或 者 4 和 B 同时 发 生 ， 或 者 4 出 现在 有 之 后 。 
譬如 说 ， 回 到 前 面 银行 账户 的 例子 。 假 设 Peter 从 两 人 的 共用 账户 里 提 款 10 元 而 Paul 提 款 25 元 。 
这 一 账户 的 初始 余额 为 100 元 ， 提 款 后 账户 余额 为 65 元 。 根 据 两 次 提 款 的 顺序 不 同 ， 账 户 中 佘 
额 的 序列 可 以 是 100 一 90 一 65 或 者 100 一 75 一 65。 在 银行 系统 的 一 个 计算 机 实现 里 ,余额 的 这 
种 变化 序列 可 以 用 对 变量 balance 的 一 系列 赋值 来 模拟 。 

在 更 加 复杂 的 情况 下 ， 这 样 的 观点 也 会 成 为 问题 。 假 设 Peter 和 Paul ， 可 能 还 有 其 他 的 人 ，， 
都 在 通过 遍布 全 世界 的 银行 机 器 网 络 访问 这 个 账户 。 那 么 余额 的 实际 序列 就 将 严格 地 依赖 于 
这 些 访问 的 确切 时 间 硕 序 ， 以 及 机 器 之 间 通 信 的 各 种 细节 。 

事件 顺序 的 非 确定 性 ， 可 能 对 并 发 系统 的 设计 提出 了 严重 的 问题 。 举 例 说 ， 假 定 由 Peter 
和 Paul 进 行 的 取款 被 实现 为 两 个 独立 的 进程 ， 它 们 共享 同一 个 变量 balance， 这 两 个 计算 进 
程 都 由 3.1.1 节 给 出 的 如 下 过 程 描述 : 

(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 


balance) 
"Insufficient funds") ) 


如 果 这 两 个 进程 独立 地 操作 ， 那 么 Peter 就 可 能 去 检查 余额 ， 而 后 企图 提取 出 合法 数量 的 一 笔 


(62 大 部 分 真实 的 处 理 器 每 次 执行 若干 个 操作 ， 它 们 采用 一 种 称 为 流水 线 的 策略 。 虽 然 这 一 技术 能 极 大 地 提高 硬 
件 性 能 ， 它 也 只 是 用 于 加 速 顺序 指令 流 的 执行 ， 还 需要 保持 顺序 程序 的 行为 。 
‘8 引 一 段 写 在 剑桥 建筑 墙 上 的 话 :“ 时 间 是 一 种 设施 ， 发 明 它 就 是 9% 了 不 让 所 有 的 事情 都 立即 发 生 。 
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款 。 然 而 ，Paul 完 全 可 能 在 Peter 检 查 余额 的 时 刻 与 Peter 完 成 提 款 的 时 刻 之 间 提 取 走 了 一 笔 钱 ， 
这 样 也 就 使 Peter 的 事先 检查 变 得 不 再 合法 了 。 

事情 还 可 能 变 得 更 粳 糕 。 考 虑 作为 每 个 提 款 进程 一 部 分 的 表达 式 : 

(set! balance (- balance amount) ) 
这 一 表达 式 的 执行 包含 三 个 步骤 : 1) 取得 变量 balance 的 值 ， 2) 计算 出 新 的 余额 ，3) 将 变量 
balance 设 置 为 新 值 。 如 果 Peter 和 Paul 在 提 款 过 程 中 并 发 地 执行 这 一 语句 ， 那 么 这 两 次 提 款 
在 访问 balance 和 将 它 设 置 为 新 值 的 动作 就 可 能 交错 。 

图 3-29 显 示 的 时 序 图 勾画 了 一 个 事件 顺序 ， 其 中 的 balance 在 开始 时 是 100，Peter 取 走 
了 10 ，Paul 取 走 了 25 ， 然 而 balance 最 后 的 值 却 是 75。 正 如 图 中 所 示 ， 出 现 这 种 异常 情况 的 
原因 是 ，Paul 将 75 赋 值 给 balance 的 前 提 条 件 是 ， 在 减少 之 前 balance 的 值 是 100 。 而 当 
Peter 将 balance 修 改 为 0 之 后 ， 上 述 前 提 已 经 变 得 不 再 合法 了 。 对 于 银行 系统 而 言 ， 这 当然 
是 灾难 性 的 错误 ， 因 为 系统 里 款项 的 总 量 没 有 维持 好 。 在 这 些 交易 之 前 ， 款 项 的 总 额 是 100 元 。 
在 此 之 后 ,Peterx 有 了 10 元 ，Paul 有 了 25 元 ， 而 银行 还 有 75 元 '”。 


Peter Bank Paul 


Access balance: $100 
new value: 100-10=90 
set! balance to $90 


Access balance: $100 
new value: 100-25=75 


set! balance to $75 


time 
图 3-29 时 序 图 ， 说 明 两 次 银行 提 款 事件 怎样 交错 就 可 能 导致 不 正确 的 余额 


由 这 一 实例 表现 出 的 一 般 性 现象 是 ， 几 个 进程 有 可 能 共享 同一 个 状态 变量 。 使 事情 变 得 
更 加 复杂 的 原因 ， 就 是 多 个 进程 有 可 能 同时 试图 去 操作 这 种 共享 的 状态 。 对 于 银行 账户 的 例 
子 ， 在 完成 每 次 交易 时 ， 每 个 客户 应 该 能 像 根 本 不 存在 其 他 客户 那样 进行 自己 的 活动 。 当 一 
个 客户 以 某 种 依赖 于 余额 的 方式 修改 余额 时 ， 他 应 该 能 够 假定 ， 在 立刻 就 要 做 修改 的 那个 时 


!% 对 于 这 个 系统 ， 如 果 两 个 set! 操作 同时 试图 去 修改 余额 产生 的 情况 可 能 更 精 。 在 这 种 情况 下 ， 存 储 器 里 
出 现 的 实际 数据 就 可 能 是 两 个 进程 所 写 信息 的 随机 组 合 。 大 部 分 计算 机 都 有 对 存储 器 基本 写 人 操作 的 互 锁 ， 
以 防止 这 种 同时 写 入 的 情况 发 生 。 即 使 是 这 种 看 起 来 很 简单 的 保护 机 制 ， 也 对 于 多 处 理 计 算 机 的 设计 实现 提 
出 了 挑战 ， 在 那里 ， 非 常 精巧 的 丝 存 一 致 性 规程 要 求 保证 所 有 处 理 器 对 存储 器 的 内 容 有 一 种 统一 观点 ， 以 提 
高 存储 器 访问 的 速度 ， 虽 然 事实 上 这 上 条 数 据 可 能 复制 (RF) 在 不 同 处 理 器 里 。 
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刻 ， 该 余额 的 情况 仍然 还 是 他 所 设想 的 那样 。 

并 发 程序 的 正确 行为 

圭 面 例子 的 情况 非常 典型 ， 是 可 能 潜藏 在 并 发 程序 里 的 微妙 错误 。 这 一 复杂 性 的 根源 ， 
就 在 于 这 里 出 现 了 对 不 同 进程 之 间 共 享 的 变量 的 赋值 。 我 们 已 经 知道 ， 在 写 那些 使 用 set:! 的 
程序 时 必须 小 心 ， 因 为 一 个 计算 的 结果 将 依赖 于 其 中 的 各 个 赋值 发 生 的 顺序 !5。 对 于 并 发 进 
程 ， 我 们 对 于 赋值 就 更 需要 特别 小 心 ， 因 为 在 这 里 可 能 无 法 控制 其 他 进程 所 做 赋值 的 出 现 顺 
序 。 如 果 几 个 这 样 的 修改 可 能 并 发 出 现 (就 像 上 面 两 个 提 款 人 访问 一 个 共用 账户 的 情况 )， 我 
们 就 需要 采用 某 些 方式 ， 以 设法 保证 系统 的 行为 是 正确 的 。 例 如 ， 在 共用 银行 账户 提 款 的 情 
况 中 ， 我 们 必须 保证 总 款额 不 变 。 为 了 使 并 发 程序 的 行为 正确 ， 可 能 就 需要 对 程序 的 并 发 执 
行 增 加 一 些 限制 。 

对 于 并 发 的 一 种 可 能 限制 方式 是 规定 ， 修 改 任意 共享 状态 变量 的 两 个 操作 都 不 允许 同时 
发 生 。 这 是 一 个 特别 严厉 的 要 求 。 对 于 分 布 式 银行 系统 ， 这 就 要 求 系 统 设计 者 保证 同时 出 现 
的 只 能 有 一 个 交易 。 这 样 做 可 能 过 于 低 效 ， 也 太保 守 了。 图 3-30 中 显示 的 是 Peter 和 Paul 共 享 
同一 个 银行 账户 ， 而 Peter 自 己 还 有 一 个 私人 账户 。 该 图 展示 了 从 共享 账户 的 两 次 提 款 (一 次 
来 自 Peter， 一 次 来 自 Paul ) 和 对 Paul 的 个 人 账户 的 一 次 存款 “。 对 于 共享 账户 的 两 次 取款 决 不 
能 并 发 进行 (因为 两 者 需要 访问 和 更 新 同一 账户 ) ， 而 且 Paul 的 存款 和 取款 也 决 不 能 并 发 (A 
为 两 者 都 访问 和 更 新 Paul 账 户 里 的 款额 )。 但 是 ， 允 许 Paul 向 自己 的 个 人 账户 存款 与 Peter 从 他 
们 的 共享 账户 取款 并 发 进行 ， 则 不 会 有 任何 问题 。 


Peter Bank! Paul Bank2 


time 


图 3-30 并 发 地 从 共享 账户 Bank1 取 款 和 向 个 人 账户 Bank2 存 款 


165 3.1.3 节 里 的 阶乘 程序 针对 单个 顺序 进程 阐释 了 这 方面 的 情况 。 : 
166 图 中 各 列 分 别 显示 了 Peter 的 钱包 ， 共 用 账户 (Bank1)，Paul 的 钱包 ，Paul 的 个 人 账户 (Bank2)， 显 示 了 它们 
在 每 次 提 款 (W) 和 存款 (D) 前 后 的 情况 。Peter 从 Bank1 取 出 10 元 ，Paul 向 Bank2 存 人 5 元 ， 而 后 又 从 Bank1 


取出 25 元 。 
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对 于 并 发 的 另 一 种 不 那么 严厉 的 限制 方式 是 ， 保 证 并 发 系统 产生 出 的 结果 与 各 个 进程 按 
照 某 种 方式 顺序 运行 产生 出 的 结果 完全 一 样 。 这 一 要 求 中 包含 两 个 重要 方面 。 首 先 ， 它 并 没 
有 要 求 各 个 进程 实际 上 顺序 地 和 运行， 而 只 是 要 求 它们 产生 的 结果 与 假设 它们 顺序 运行 所 产生 
出 的 结果 相同 。 对 于 图 3-30 的 例子 ， 银 行 账户 系统 的 设计 者 可 以 安全 地 允许 Paul 的 存款 和 
Peter 的 取款 并 发 进行 ， 因 为 这 样 做 所 造成 的 整体 效果 与 这 两 个 操作 硕 序 出 现 的 效果 一 样 。 第 
二 点 ， 一 个 并 发 程序 完全 可 能 产生 多 于 一 个 “正确 的 ”结果 ， 因 为 我 们 只 要 求 其 结果 与 按照 
某 种 方式 顺序 化 的 结果 相同 。 例 如 ， 假 定 Peter 和 了 Paul 的 共享 账户 里 开始 有 100 元 ，Peter 存 人 40 
元 ， 同 时 Paul 并 发 地 取出 了 账户 中 钱 数 的 一 半 。 顺 序 执行 的 结果 可 能 使 得 账户 里 的 余额 变 成 
70 元 或 者 90 元 (参见 练习 3.38) 17, 

对 于 并 发 程序 的 正确 执行 ,我们 还 可 以 提出 一 些 更 弱 的 要 求 。 一 个 模拟 扩散 过 程 的 程序 
(例如 ， 在 某 个 对 象 里 面 的 热量 流动 ) 可 以 由 一 大 批 进程 组 成 ， 每 个 进程 代表 空间 中 很 小 的 一 
点 体积 ， 它 们 并 发 地 更 新 自己 的 值 。 这 里 的 每 个 进程 都 反复 将 自己 的 值 更 新 为 自己 的 原 值 和 
相 邻 进程 的 值 的 平均 值 。 无 论 有 关 的 操作 按 什么 顺序 执行 ， 这 种 算法 都 能 收敛 到 正确 的 解 ， 
因此 也 就 不 需要 对 于 共享 变量 的 并 发 使 用 提出 任何 限制 了 。 

练习 3.38 ”假定 Peter、Paul 和 Mary 共 享 一 个 共用 的 账户 ， 其 中 开始 有 100 元 钱 。 按 照 并 发 
方式 执行 下 面 命令 , Peter 存 入 10 元 ， Paul 取 出 20 元 ， 而 Mary 取 出 了 账户 中 款额 的 一 半 : 


Peter: (set! balance (+ balance 10)) 
Paul: {set! balance (- balance 20)) 
Mary: (set! balance (- balance (/ balance 2))) 


a) 请 列 出 在 完成 了 这 3 项 交易 之 后 balance 的 所 有 可 能 值 。 这 里 假定 银行 系统 强迫 这 三 
个 进程 按照 某 种 顺序 方式 运行 。 

b) 如 果 系 统 允 许 这 些 进 程 交错 进行 ,还 可 能 产生 出 另外 一 些 值 吗 ? 请 画 出 类 似 于 图 3-29 
的 时 序 图 ， 解 释 各 个 值 将 如 何 出 现 。 


3.4.2 控制 并 发 的 机 制 


我 们 已 经 看 到 了 处 理 并 发 进程 的 困难 ， 这 些 困 难 的 根源 就 在 于 需要 考虑 不 同 进程 里 各 个 
事件 之 间 相 互 交 错 的 情况 。 举 例 来 说 ， 假 定 我 们 有 两 个 进程 ， 其 中 一 个 里 面 有 顺序 的 三 个 事 
tt (a, 5b, c) ， 另 一 个 有 顺序 的 三 个 事件 (x, y, z)。 如 果 这 两 个 进程 并 发 运行 ， 对 于 它们 的 执行 
如 何 交错 没有 任何 限制 ， 那 么 就 存在 20 种 可 能 的 事件 排列 ， 它 们 都 与 两 个 进程 中 各 个 事件 的 
排列 顺序 相 容 : 

(a, b,c, x,y,z) (a,x, b,y,c,2) (x,a,b,c,y,2z) (x,a,y,7, b,c) 
(a, b,x, c, y,z) (a,x,b,y,z,c) (x,a,b,y,c,7) (x,y,a,b,c,z) 
(a, b,x, y,c,z) (a,x, y,b,c,z) (x,a,b,y,z,c) (, y, a, 5,2, ¢) 
(a, b,x, y, 2,0) (a,x, y,b,z,c) (x,4,y,b,c,z) (,y, 4, 2, b,c) 
(a, x, b,c, y,2) (a,x, y,z, b,c) (x, a,y,b,2,c) (x,y, z, a, b,c) 
作为 设计 这 一 系统 的 程序 员 ， 我 们 可 能 就 必须 考虑 这 20 种 排列 中 每 一 种 的 效果 ， 检 查 是 否 每 


W 有关 这 种 看 法 的 更 形式 化 的 说 法 是 说 并 发 程序 具有 内 在 的 非 确 定性 。 也 就 是 说 ， 它 们 不 能 用 单 值 函数 描述 ， 
而 只 能 用 结果 为 一 集 可 能 值 的 函数 描述 。 在 4.3 节 里 ， 我 们 将 研究 一 种 表述 非 确 定性 计算 的 语言 。 


种 排列 的 行为 都 是 可 以 接受 的 。 当 进程 和 事件 的 数量 进一步 增加 时 ， 这 一 方式 很 快 就 会 变 得 
无 法 控制 了 。 

另 一 种 更 实际 的 方法 是 ， 在 设计 并 发 系统 时 ， 设 法 做 出 一 些 一 般 性 的 机 制 ， 使 我 们 可 能 
限制 并 行进 程 之 间 的 交错 情况 ， 以 保证 程序 具有 正确 的 行为 方式 。 人 们 已 经 为 此 目的 而 开发 
了 许多 不 同 的 机 制 。 这 一 节 里 将 讨论 其 中 的 一 种 : 事 行 化 组 (serializer), 

对 共享 变量 的 串 行 访问 

串 行 化 就 是 实现 下 面 的 想法 : 使 进程 可 以 并 发 地 执行 ， 但 是 其 中 也 有 一 些 过 程 不 能 并 发 
地 执行 。 说 得 更 准确 些 ， 串 行 化 就 是 创建 一 些 不 同 的 过 程 集 合 ， 并 且 保 证 在 每 个 时 刻 ， 在 任 
何 一 个 串 行 化 集合 里 至 多 只 有 一 个 过 程 的 一 个 执行 。 如 果 某 个 集合 里 有 过 程 正 在 执行 A 
一 进程 企图 执行 这 个 集合 里 的 任何 过 程 时 ， 它 就 必须 等 待 到 前 一 过 程 的 执行 结束 。 

我 们 可 以 借助 串 行 化 去 控制 对 共享 变量 的 访问 。 举 例 说 ， 如 果 我 们 希望 基于 某 个 共享 变 
量 已 有 的 值 去 更 新 它 ， 那 么 就 应 该 将 访问 这 一 变量 的 现 有 值 和 给 这 一 变量 赋 新 值 的 操作 都 放 
入 同一 个 过 程 里 。 而 后 设法 保证 ， 任 何 能 给 这 个 变量 赋值 的 过 程 都 不 会 与 这 个 过 程 并 发 运行 ， 
方法 是 将 所 有 这 样 的 过 程 都 放 在 同一 个 串 行 化 集合 里 。 这 就 保证 了 在 访问 一 个 变量 和 给 它 峰 
值 之 间 ， 这 一 变量 的 值 不 会 改变 。 

Scheme 里 的 串 行 化 

为 了 使 上 述 机 制 更 加 具体 化 ， 假 定 我 们 已 经 扩充 了 所 用 的 Scheme 语言 ， 加 入 了 一 个 称 为 
parallel-execute 的 过 程 : 

(parallel-execute <p> <p? ... <p>) 

这 里 的 每 个 <p> 必须 是 一 个 无 参 过 程 ，parallel-execute 为 每 个 <p> 创 建 一 个 独立 的 进程 ， 
该 进程 将 应 用 <p> (没有 参数 )。 这 些 进程 都 并 发 地 运行 '“。 
作为 使 用 这 种 机 制 的 例子 ， 考 虑 : 


(define x 10) 


(parallel-execute (lambda () (set! x (* x x))) 
(lambda () (set! x (+ x 1)))) 


这 样 就 建立 了 两 个 并 发 计算 进程 ， Pi 要 把 x 设置 为 x 乘 以 x， 而 P; 要 去 增加 x 的 值 。 在 这 些 执行 
完成 之 后 ，x 将 具有 下 面 5 个 可 能 值 之 一 ， 具 体 结果 将 依赖 于 Pi 和 P2 中 各 个 事件 的 交错 情况 : 

101: P, 将 x 设置 为 100， 而 后 Ps 将 x 的 值 增加 到 101 

121: P; 将 x 的 值 增加 到 11 ， 而 后 P1 将 x 设置 为 x 乘 以 X 

110: P; 将 x 从 10 修 改 为 11 的 动作 出 现在 P1 两 次 访问 x 的 值 之 间 ， 这 两 次 访问 是 为 了 求 值 表 

达 式 (* x x) 

11: PP 访问 x ， 而 后 P1 将 x 设置 为 100， 而 后 P; 又 设置 Xx 

100: 已 访问 x (两 次 )， 而 后 Ps 将 x 设置 为 11， 而 后 P1 又 设置 x 

我 们 可 以 用 串 行 化 的 过 程 给 这 里 的 并 发 性 强加 一 些 限制 , 通过 囊 . 行 化 组 实现 这 种 限制 。 
构造 串 行 化 组 的 方式 是 调用 make-serializer， 这 一 过 程 的 实现 将 在 后 面 给 出 。 一 个 串 行 


8 paralleL-execute 并 不 是 标准 Scheme 的 一 部 分 ， 但 是 可 以 在 MIT Scheme 里 实现 它 。 在 我 们 的 实现 中 ， 
新 的 并 发 进程 也 与 原 Scheme 进程 并 发 地 执行 。 还 有 ， 在 我 们 的 实现 里 ， 由 parallel-execute 返 回 的 值 是 
一 个 特殊 的 控制 对 象 ， 可 以 用 于 终止 这 个 新 创建 的 进程 。 
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化 组 以 一 个 过 程 为 参数 ， 它 返回 的 串 行 化 过 程 具有 与 原 过 程 一 样 的 行为 方式 。 对 一 个 给 定 串 
行 化 组 的 所 有 调用 返回 的 串 行 化 过 程 都 属于 同一 个 集合 。 

这 样 ， 与 上 面 的 例子 不 同 ， 执 行 : 

(define x 10) 


(define s (make-serializer)) 


(parallel-execute (s (lambda () (set! x (* x x)))) 
(s (lambda () (set! x (+ x 1))))) 


只 可 能 产生 x 的 两 种 可 能 值 101 和 121， 其 他 几 种 可 能 性 都 被 清除 掉 了 ， 因 为 P, 和 P 的 执行 不 会 
交错 进行 。 
下 面 是 取 自 3.1.1 节 的 make-account 过 程 的 另 一 个 版 本 ， 其 中 存款 和 取款 操作 已 经 做 了 
BIME: 
(define (make-account balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(let ((protected (make-serializer))) 
(define (dispatch m) 
(cond ((eq? m ’withdraw) (protected withdraw) ) 
( (eq? m ’deposit) (protected deposit) ) 
((eq? m “balance) balance) 
(else (error "Unknown request -- MAKE-ACCOUNT" 
m)))) 
dispatch) ) 


对 于 这 个 实现 ， 两 个 进程 就 不 会 并 发 地 在 同一 个 账户 中 存款 和 取款 ， 这 样 就 清除 了 出 现 图 3- 
29 中 所 展示 的 错误 的 根源 ， 那 里 出 现 错误 是 由 于 Peter 修 改 账户 余额 的 动作 ， 出 现在 Paul 访 问 : 
这 一 余额 以 计算 新 值 和 实际 执行 赋值 的 动作 之 间 。 而 在 另 一 方面 ， 由 于 每 个 账户 都 有 它 自己 
的 串 行 化 组 ， 因 此 对 不 同 账户 的 存款 和 取款 都 可 以 并 发 地 进行 。 

练习 3.39 “如果 我 们 换 用 下 面 的 串 行 化 执行 ， 上 面 正文 中 所 示 的 ?种 并 行 执行 结果 中 的 哪 
一 些 还 可 能 出 现 ? 

(define x 10) 

(define s (make-serializer)) 


(parallel-execute (lambda () (set! x ((S (lambda () (* x x)))))) 
(s (lambda () (set! x (+ x 1))))) 


练习 3.40 ”请 给 出 下 面 的 执行 可 能 产生 出 的 所 有 x 值 ; 
(define x 10) 


(parallel~execute (lambda () (set! x (* x x))) 
(lambda () (set! x (* x x x)))) 
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如 果 我 们 改 用 下 面 的 串 行 化 过 程 ， 上 述 可 能 性 中 的 哪些 还 会 存在 : 
(define x 10) 
(define s (make-serializer) ) 


(parallel-execute (s (lambda () (set! x (* x x)))) 
{s (lambda () (set! x (* x x x))))) 


练习 3.41 Ben Bitdiddle 觉 得 像 下 面 这 样 实现 银行 账户 可 能 更 好 (其 中 带 注释 的 行 修改 
T): 


(define (make-account balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(let ((protected (make-serializer))) 
(define (dispatch m) 
(cond ((eq? m ’withdraw) (protected withdraw) ) 
((eq? m deposit) (protected deposit) ) 
((eq? m ’balance) 
( (protected (lambda () balance)))) ; serialized 
(else (error "Unknown request -- MAKE-ACCOUNT" 
m)))) 
dispatch) ) 
因为 允许 非 串 行 地 访问 银行 账户 可 能 导致 不 正常 的 行为 。 你 同意 Ben 的 观点 吗 ? 是 否 存在 某 种 
情况 ， 能 证 明 Ben 所 担心 的 问题 ? 
练习 3.42 Ben Bitdiddle 建 议 说 ， 在 响应 每 个 withdraw 和 deposit 消 息 时 创建 一 个 新 
的 串 行 化 过 程 完全 是 浪费 时 间 。 他 说 ， 可 以 修改 make-account ,使 得 对 protected 的 调 
用 都 可 以 在 过 程 dispatch 之 外 进行 。 这 样 ， 在 每 次 要 求 去 执行 提 款 过 程 时 ， 这 个 账户 将 总 
返回 同一 个 串 行 化 过 程 ( 它 是 与 这 个 账户 同时 创建 的 )。 
(define (make-account balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds")) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(let ((protected (make-serializer) )) 
(let ((protected-withdraw (protected withdraw) ) 
(protected-deposit (protected deposit) )) 
{define (dispatch m) 


Ai o RG PRERS 


(cond ((eq? m ’withdraw) protected-withdraw) 
((eq? m ’deposit) protected-deposit) 
((eq? m ’balance) balance) 
(else (error "Unknown request -- MAKE-ACCOUNT" 
m)))) 


dispatch) )) 
这 样 的 修改 安全 吗 ? 特别 是 这 样 修改 之 后 ， 在 所 允许 的 并 发 性 方面 ，make~account 的 两 个 
版 本 之 间 有 什么 不 同 ? 


使 用 多 重 共享 资源 的 复杂 性 

串 行 化 提供 了 一 种 非常 强 有 力 的 抽象 ， 能 帮助 我 们 将 并 发 程序 的 复杂 性 孤立 起 来 ， 使 这 
种 程序 能 够 被 小 心地 和 (和 希望 是 ) 正确 地 处 理 。 然 而 ， 如 果 只 存在 一 个 共享 资源 (例如 一 个 
银行 账户 )， 串 行 化 的 使 用 问题 是 相对 比较 简单 的 。 但 是 如 果 存 在 着 多 项 共享 资源 ， 并 发 程序 
设计 就 可 能 变 得 非常 难以 把 握 了 。 

为 了 展示 可 能 出 现 的 一 种 困难 ， 现 在 假定 我 们 希望 交换 两 个 账户 的 余额 。 我 们 首先 访问 
每 个 账户 以 确定 其 中 的 余额 ， 而 后 计算 出 这 两 个 余额 之 间 的 差额 ， 从 一 个 账户 里 减 去 这 一 差 
额 ， 而 后 将 它 存 人 另 一 个 账户 。 我 们 可 能 如 下 实现 这 一 工作 '”， 

(define (exchange accountl account2) 

(let ((difference (- (accountl "balance) 
(account2 ’balance)))) 
((accountl ’withdraw) difference) 
((account2 ’deposit) difference) )) 

如 果 只 有 一 个 进程 试图 做 这 种 交换 ， 这 一 过 程 能 够 工作 得 很 好 。 然 而 ， 假 定 Peter 和 Paul 都 
能 访问 账 Pal、a2 和 a3， 在 Peter 要 求 交 换 al1 和 42 时， 正好 Paul 也 并 发 地 要 求 交换 al1 和 a3 。 虽 
然 我 们 已 对 单个 账户 的 存款 和 取款 做 了 串 行 化 (就 像 在 上 一 节 里 所 示 的 make-~account 过 程 )， 
exchange 还 是 可 能 产生 不 正确 的 结果 。 举 例 说 ，Peter 可 能 已 经 算出 了 al 和 a2 的 余额 之 差 ， 
但 是 Paul 却 可 能 在 Peter 完 成 交换 之 前 改变 了 al 的 余额 ”。 为 了 得 到 正确 的 行为 ， 我 们 就 必须 重 
新 安排 exchange 过 程 ， 让 它 能 在 完成 整个 交换 的 期 间 锁 住 对 于 这 些 账户 的 任何 其 他 访问 。 

得 到 这 种 效果 的 一 种 方式 是 用 两 个 账户 的 串 行 化 组 将 整个 exchange 过 程 串 行 化 。 为 此 | 
我 们 就 要 重新 安排 对 一 个 账户 的 串 行 化 组 的 访问 。 请 注意 ， 我 们 在 这 里 暴露 了 相关 的 串 行 化 
组 ， 最 后 还 是 有 意 地 打破 了 银行 账户 对 象 的 模块 化 。 下 面 的 make-account 版 本 等 价 于 3.1.1 
节 里 的 原始 版 本 ， 除 了 其 中 有 一 个 串 行 化 组 ， 它 提供 了 对 余额 变量 的 保护 。 另 外 还 将 这 个 串 
行 化 组 通过 消息 传递 暴露 出 来 了 : 

(define (make-account-and-serializer balance) 

(define (withdraw amount) 
(if (>= balance amount) ` 
(begin (set! balance (- balance amount) ) 
balance) 


"Insufficient funds") ) 
(define (deposit amount) 


1@ 我 们 已 利用 消息 deposit 可 以 接受 负 值 的 事实 (这 是 我 们 银行 系统 里 的 严重 错误 ) 简化 了 exchange 。 
170 如 果 这 些 账户 开始 时 的 值 分 别 是 10 、20 和 30， 那 么 在 经 过 任意 次 交换 之 后 ， 它 们 的 值 应 读 还 是 按照 基 种 顺序 
的 10 、20 和 30 。 对 于 单个 账户 的 存款 串 行 化 不 足以 保证 这 一 点 ， 见 练习 3.43 。 


(set! balance (+ balance amount) ) 
balance) 
(let ((balance-serializer (make-serializer))) 
(define (dispatch m) 
(cond ((eq? m ’withdraw) withdraw) 
((eq? m ’deposit) deposit) 
((eq? m ’balance) balance) 
((eq? m ’serializer) balance-serializer) 
(else (error “Unknown request -- MAKE-ACCOUNT" 
m)))) 
dispatch) ) 
我 们 可 以 用 这 个 过 程 去 完成 存款 和 取款 的 串 行 化 。 当 然 ， 这 里 做 出 的 东西 不 像 前 面 的 串 
行 化 账户 ， 现 在 需要 银行 账户 对 象 的 每 个 用 户 承担 起 责任 ， 通 过 显 式 的 方式 去 管理 串 行 化 的 
问题 ， 例 如 下 面 的 例子 : 


(define (deposit account amount) 
(let ((s (account ’serializer) ) 
(d (account *deposit))) 
((s d) amount) )) 
以 这 种 方式 导出 串 行 化 组 ， 就 使 我 们 有 了 足够 的 灵活 性 ， 可 以 实现 串 行 化 的 交换 程序 。 
在 这 里 ， 只 需要 将 针对 两 个 账户 做 串 行 组 ， 去 串 行 化 原来 的 exchange 过 程 


(define (serialized-exchange accountl account2) 
(let ((serializerl (accountl ’serializer) ) 
(serializer2 (account2 ’serializer))) 
((serializerl (serializer2 exchange) ) 
accountl 
account2))) 


练习 3.43 ”假定 在 三 个 账户 里 的 初始 余额 分 别 是 10、20 和 30 ， 现 在 有 多 个 进程 正在 运行 ， 
交换 这 些 账户 中 的 余额 。 请 论证 ， 如 果 这 些 进程 是 顺序 运行 的 ， 那 么 经 过 任何 次 并 发 交换 ， 
这 些 账 户 里 的 余额 还 将 是 按照 某 种 顺序 排列 的 10、20 和 30。 请 画 出 一 个 类 似 于 图 3-29 中 那样 
的 时 间 图 ， 说 明 如 果 采 用 本 节 中 第 一 个 版 本 的 账户 交换 程序 实现 账户 交换 ， 那 么 这 一 条 件 就 
会 被 破坏 。 在 另 一 方面 ， 也 请 论证 ， 即 使 是 使 用 这 个 exchange 程 序 ， 在 这 些 账 户 里 的 余额 
之 和 也 仍然 能 得 以 保持 不 变 。 请 画 出 一 个 时 序 图 ， 说 明 如 果 我 们 不 做 各 个 账户 上 交易 的 串 行 
化 ， 这 一 条 件 就 可 能 被 破坏 。 

练习 3.44 ”现在 考虑 从 一 个 账户 向 另 一 账户 转移 款项 的 问题 Ben Bitdiddle 说 这 件 事 可 以 
通过 下 面 过 程 完 成 ， 即 使 存在 着 多 个 人 并 发 地 在 许多 账户 之 闻 转 移 款项 。 在 这 里 可 以 使 用 任 
何 经 过 存款 和 取款 交易 串 行 化 的 账户 机 制 ， 例 如 上 面 正文 中 的 make-account 版 本 。 


(define (transfer from-account to-account amount) 
((from-account withdraw) amount) 
((to-account deposit) amount) ) 


Louis Reasoner 说 这 里 存在 一 个 问题 ， 因 此 需要 使 用 更 复杂 精细 的 方法 ， 例 如 在 处 理 交 换 问 题 
中 所 用 的 方法 。Louis 是 对 的 吗 ? 如 果 不 是 ， 那 么 在 转移 问题 和 交换 问题 之 间 存 在 着 什么 本 质 


T 练习 3.45 深 入 研究 了 为 什么 存款 和 取款 不 能 继续 由 账户 自动 申 行 化 的 问题 。 
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性 的 不 同 ? (你 应 该 假设 frzom-account 至 少 有 amount 那 么 多 钱 。) 
练习 3.45 Louis Reasoner 认 为 我 们 的 银行 账户 系统 由 于 存款 和 取款 不 能 自动 串 行 化 ， 已 经 
变 得 毫 无 必要 地 过 于 复杂 了 ， 而 且 很 容易 弄 错 。 他 建议 , make-account-and-serializer 
应 该 导出 其 中 的 串 行 化 组 (以便 用 在 serialized-exchange 一 类 过 程 里 )， 而 不 仅 是 用 目 
行 化 组 去 串 行 化 账户 和 取款 ( 像 make-account 所 做 的 那样 ) 。 他 建议 将 账户 重新 定义 为 下 
面 的 样子 : 
(define (make-account-and-serializer balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(let ((balance-serializer (make-serializer))) 
(define (dispatch m) 
(cond ((eq? m ’withdraw) (balance-serializer withdraw) ) 
((eq? m ’deposit) (balance-serializer deposit) ) 
((eq? m ’balance) balance) 
((eq? m ’serializer) balance-serializer) 
(else (error "Unknown request -- MAKE-ACCOUNT" 


m)))) 
dispatch) ) 


而 后 还 像 原来 的 make-account 那样 处 理 取款 : 


{define (deposit account amount) 
((account ’deposit) amount)) 


请 解释 为 什么 Louis 的 推理 是 错误 的 。 特 别 是 考虑 在 调用 serialized-exchange 了 时 会 发 生 
什么 情况 。 


串 行 化 的 实现 
. 我 们 将 用 一 种 更 基本 的 称 为 互 斥 元 (mutex) 的 同步 机 制 来 实现 串 行 化 。 互 斥 元 是 一 种 对 
象 ， 假 定 它 提供 了 两 个 操作 。 一 个 互 尺 元 可 以 被 获取 (acquired) 或 者 被 释放 (released), — 
且 某 个 互 斥 元 被 获取 , 对 于 这 一 互 斥 元 的 任何 其 他 获取 操作 都 必须 等 到 该 互 斥 元 被 释放 之 后 “。 
在 我 们 的 实现 里 ， 每 个 串 行 化 组 关联 着 一 个 互 斥 元 。 给 了 一 个 过 程 P， 串 行 化 组 将 返回 一 个 过 
程 ， 该 过 程 将 获取 相应 互 斥 元 ， 而 后 运行 p ， 而 后 释放 该 互 斥 元 。 这 样 就 能 保证 ， 由 这 个 串 行 
化 组 产生 的 所 有 过 程 中 ， 一 次 只 能 运行 一 个 ， 这 就 是 需要 保证 的 串 行 化 性 质 。 


72 术语 “mutex” “mutual exclusion” 的 缩写 形式 。 有 关 安 排 一 种 机 制 ， 使 之 能 允许 并 发 进程 安全 地 共享 次 
源 的 一 般 性 问题 称 为 互 斥 问题 。 我 们 的 互 斥 元 是 信号 重 机 制 的 一 种 简化 形式 ( 见 练 习 3.47) 。 信 号 量 机 制 由 
“THE” 多 道 程序 设计 系统 引进 ， 这 一 系统 是 在 Eindhoven 技 术 大 学 开发 的 ， 用 这 所 大 学 荷兰 语 的 首 字母 命名 
(Dijkstra 1968a )。 获 取 和 释放 操作 原来 被 命名 为 操作 P 和 V ， 来 自 荷兰 语词 汇 passeren (通过 ) 和 vrijgeven 
(释放 )， 参 考 了 铁路 系统 所 用 的 信号 灯 。Dijkstra 的 经 典 论文 (1968b ) 是 最 早 澄清 并 发 控制 中 的 各 种 问题 的 
论文 之 一 ， 其 中 阐述 了 如 何 利用 信号 量 处 理 各 种 并 发 问题 。 


(define (make-serializer) 
(let ((mutex (make-mutex) )) 
(lambda (p) 
(define (serialized-p . args) 
(mutex ‘acquire) 
(let ((val (apply p args))) 
(mutex ’release) 
val)) 
serialized-p) )) 


互 斥 元 是 一 个 变动 对 象 (这 里 将 采用 一 个 单元 素 的 表 ， 称 它 为 一 个 单元 ) ， 可 以 保存 真 或 
者 假 。 在 值 为 假 时 ， 这 个 互 斥 元 可 以 被 获取 ， 当 值 为 真 时 该 互 斥 元 就 是 不 可 用 的 ， 任 何其 他 
获取 这 一 互 斥 元 的 进程 都 必须 等 待 。 

我 们 的 互 斥 元 构造 函数 make-mutex 开 始 时 将 单元 的 内 容 初 始 化 为 假 。 为 了 获取 一 个 互 
斥 元 ,首先 需要 检查 这 个 单元 。 如 果 互 斥 元 可 用 ， 我 们 就 将 该 单元 设置 为 真 并 继续 下 去 。 否 
则 就 进入 一 个 循环 里 等 待 ， 一 次 又 一 次 地 试图 去 获取 这 个 互 斥 元 ， 直 到 发 现 它 可 用 为 止 '”。 
为 释放 一 个 互 尺 元 ， 只 需要 将 单元 的 内 容 设置 为 假 ，: 


(define (make-mutex) 
(let ((cell (list false))) 
(define (the-mutex m) 
(cond ((eq? m ’acquire) 
(if (test-and-set! cell) 
(the-mutex ’acquire))) ; retry 
((eq? m ’release) (clear! cell)))) 
the-mutex) ) 


(define (clear! cell) 
(set-car! cell false)) 


test-and-set! 检查 单 元 并 返回 检查 结果 ， 除 此 之 外 ， 如 果 检 查 结果 为 假 ， test-and- 
set! 在 返回 假 之 前 还 要 将 单元 内 容 设置 为 真 。 我 们 可 以 用 下 述 过程 描 述 这 种 行为 : 
(define (test-and-set! cell) 
(if (car cell) 
true 
” (begin (set-car! cell true) 
false) )) 


不 过 ， 这 样 实现 test-and-set! 不 能 保证 达到 所 需要 的 效果 ， 因 为 这 里 有 一 个 至 关 重 
要 的 细节 ， 也 是 整个 系统 完成 并 发 控制 的 核心 : test-and-set 1 操作 必须 以 原子 操作 的 方 
式 执行 。 也 就 是 说 ， 我 们 必须 保证 ,一 旦 菜 进 程 检查 了 一 个 单元 内 容 并 发 现 它 是 假 ， 该 单元 
的 内 容 就 必须 设置 为 真 ， 而 且 必 须 在 任何 其 他 进程 检查 这 个 单元 之 前 完成 这 一 设置 。 如 采 没 
有 这 种 保证 ， 则 互 斥 元 就 会 失效 ， 类 似 于 图 3-29 里 有 关 银 行 账户 的 方式 ( 见 练习 3.46)。 

test-and-set! 的 实际 实现 方式 依赖 于 所 用 系统 中 运行 并 发 进程 的 细节 。 例 如 ， 我 们 
有 可 能 是 在 一 台 硕 序 处 理 器 上 ,采用 在 各 进程 间 轮换 的 时 间 片 机 制 执行 一 些 并 发 进程 ， 让 每 


n 在 许多 分 时 操作 系统 里 ， 被 互 斥 元 阻塞 的 进程 并 不 像 上 面 所 说 的 那样 通过 “ 忙 等 待 ”耗费 上 时间。 相反 ， 系 统 
在 一 个 进程 等 待 时 将 调度 另 一 进程 去 运行 ， 当 互 斥 元 变 为 可 用 时 再 唤醒 那些 被 阻塞 的 进程 。 


个 进程 运行 很 得 一 段 时 间 ， 而 后 中 断 这 一 进程 并 转移 到 另 一 个 进程 去 。 在 这 种 情况 下 ， 只 需 
在 检查 和 设置 单元 值 之 间 禁 止 进行 时 间 分 片 , test-and-set1! 就 可 以 正确 工作 了 '“。 在 另 
一 类 情况 中 ， 多 处 理 器 计算 机 则 提供 了 专门 指令 ， 直 接 在 硬件 中 支持 原子 操作 “>。 
练习 3.46 ”假定 我 们 用 正文 中 所 示 的 常规 过 程 实现 test-and-set!， 没 有 企图 使 这 一 
操作 原子 化 。 请 画 出 一 个 像 图 3-29 那 样 的 时 序 图 ， 说 明 如 果 人 允许 两 个 进程 同时 访问 互 斥 元 ， 
这 个 互 斥 元 实现 就 会 失败 。 
练习 3.47 (bhAn) 的 信号 量 是 一 种 推广 的 互 斥 元 。 像 互 斥 元 一 样 ， 信 号 量 也 支持 获 
取 和 释放 操作 ， 但 更 一 般 些 ， 它 允许 同时 有 最 多 "个 进程 获取 。 另 外 更 多 的 获取 有 关 信 和 号 量 的 
进程 就 必须 等 待 释放 操作 。 请 基于 下 述 功能 实现 信号 量 : 
”a) 基于 互 斥 元 。 
b) 基于 原子 的 test-and-set! 操作 。 


死 锁 

现在 已 经 看 了 可 以 如 何 实现 串 行 化， 但 也 应 该 看 到 ， 即 使 采用 了 上 面 给 出 的 过 程 seria- 
lized-exchange， 在 账户 交换 问题 里 还 存在 一 个 麻烦 。 现 在 设想 Peter 企 图 去 交换 账 Mal 
和 a2 ， 同 时 Paul 并 发 地 企图 去 交换 a2 和 al 。 假 定 Peter 的 进程 到 达 这 样 一 点 ， 此 时 它 已 经 进 
入 了 保护 al 的 串 行 化 进程 ， 而 正好 在 此 之 后 ，Paui 的 进程 也 进入 了 保护 a2 的 串 行 化 进程 。 现 
在 Peter 已 经 无 法 继续 前 进 了 (因为 无 法 进入 保护 a2 的 串 行 化 进程 ) ， 他 需要 一 直 等 到 Paul 退 
出 保护 a2 的 串 行 化 进程 。 与 Peter 的 情况 类 似 ，Paul 也 无 法 前 进 了 ， 他 需要 等 到 Peter 退 出 保 
护 al 的 串 行 化 进程 。 这 样 每 个 进程 都 要 无 穷 无 尽 地 等 待 下 去 ， 等 着 另 一 个 进程 的 活动 ， 这 种 
情况 就 称 为 死 锁 。 在 那些 提供 了 对 于 多 种 共享 资源 的 并 发 访问 的 系统 里 ， 总 是 存在 着 死 锁 的 
危险 。 

避免 死 锁 的 一 种 方式 ， 是 首先 给 每 个 账户 确定 一 个 唯一 的 标识 编号 ， 并 且 需 要 重 写 
serialized-exchange ， 使 每 个 进程 总 是 首先 设法 进入 保护 具有 较 低 标识 编号 的 账户 的 过 
程 。 这 种 方式 对 于 交换 问题 可 行 ， 但 是 还 存在 着 另外 一 些 情况 ， 在 那里 需要 更 复杂 的 死 锁 避 


(74 在 采用 时 间 片 模型 的 单 处 理 器 的 MIT Scheme #, test-and-set! 可 以 实现 如 下 : 


(define (test-and-set! cell) 
{without-interrupts 
{lambda () 
(if (car cell) 
true 
(begin (set-car! cell true) 
false))))) 
without-interrupts 在 其 参数 的 执行 期 间 禁 止 时 间 片 中 断 。 

05 这 种 指令 有 许多 变形 ， 包 括 检 查 与 设置 ， 检 查 与 清除 ， 交 换 ， 比 较 与 交换 ， 装 载 并 保存 ， 条 件 存储 等 等 。 它 
们 的 设计 必须 与 机 器 的 处 理 器 -- 存储 接口 相 匹配 。 这 里 出 现 的 一 个 问题 是 ， 如 果 两 个 处 理 器 恰好 完 全 同时 试 
图 获取 一 个 资源 ， 通 过 使 用 这 种 指令 可 以 确定 此 时 发 生 什 么 事情 。 这 就 要 求 有 某 种 裁判 机 制 ， 以 确定 哪个 进 
程 将 得 到 控制 。 这 种 机 制 称 为 一 个 仲裁 器 ， 它 通常 借助 于 某 个 硬件 设备 工作 。 遗 憾 的 是 ， 可 以 证 明 ， 我 们 无 
法 物理 地 构造 出 一 个 在 100% 时 间 里 都 能 工作 的 公平 的 仲裁 器 ， 除 非 允许 这 个 仲裁 器 用 任意 长 的 时 间 去 做 出 
决定 。 这 种 本 质 现象 早 就 由 14 世 纪 法 国 哲学 家 Jean Buridan 在 他 关于 亚 里 士 多 德 的 《 论 天 》 的 评 注 中 观察 到 
了 。Buridan 论 述说 ， 将 一 条 完全 理性 的 狗 放 在 具有 同样 吸引 力 的 两 处 食物 来 源 之 间 ， 这 条 狗 将 会 因 饥 饿 而 死 ， 
因为 它 没有 能 力 决定 首先 往 哪 一 边 去 。 
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免 技 术 。 在 另外 一 些 地 方 则 根本 无 法 避免 死 锁 (参见 练习 3.48 和 练习 3.49) 176, 
练习 3.48 ”请 从 细节 上 解释 ,为 什么 上 面 提 出 的 避免 死 锁 方法 (例如 ， 首 先 对 账户 编号 ， 
并 使 进程 先 试 图 获取 编号 较 小 的 账户 ) 能 够 避免 交换 问题 中 的 死 锁 。 请 结合 这 一 思想 重 写 过 
feserialized-exchange (你 还 需要 修改 make-~account ， 使 创建 出 的 每 个 账户 有 一 个 
编号 ， 可 以 通过 发 送 适 当 消 息 的 方式 访问 该 编号 ) 。 
练习 3.49 请 设法 描述 一 种 情形 ， 使 上 述 的 避免 死 锁 机 制 在 这 种 情况 中 不 能 正常 工作 
(提示 ， 在 交换 问题 中 ， 每 个 进程 都 知道 它 下 面 需 要 访问 的 账户 是 哪些 。 请 考虑 一 种 情形 ， 其 
中 进程 必须 在 访问 了 某 些 共享 资源 之 后 ， 才 能 确定 它 是 否 还 需要 访问 其 他 的 共享 资源 。) 
并 发 性 、 时 间 和 通信 
我 们 已 经 看 到 ， 在 并 发 系统 的 程序 设计 中 ， 为 什么 需要 去 控制 不 同 进 程 访 问 共 享 变 量 的 
事件 发 生 的 顺序 ， 也 看 到 了 如 何 通过 审慎 地 使 用 串 行 化 去 完成 这 方面 的 控制 。 但 是 并 发 性 的 
基本 问题 比 这 些 更 深刻 ， 因 为 ， 从 一 种 更 基本 的 观点 看 ,“ 共 享 状态 ”究竟 意味 着 什么 ， 这 件 
事 常常 并 不 清楚 。 
fRtest-and-set! 这 样 的 机 制 ， 都 要 求 进程 能 在 任意 时 刻 去 检查 一 个 全 局 性 的 共享 标志 。 
在 实现 新 型 高 速 处 理 器 时 ， 由 于 在 那里 需 概 采用 各 种 优化 技术 ,例如 流水 线 和 缓存 ， 因 此 就 不 
可 能 在 每 个 时 刻 都 保持 存储 器 内 容 的 一 致 性 ， 此 时 完成 上 述 的 检查 将 很 有 问题 ， 也 必然 非常 低 
效 。 正 因为 这 样 ， 在 当前 的 多 处 理 器 系统 里 ， 串 行 化 方式 正在 被 并 发 控制 的 各 种 新 技术 取代 "”"。 
共享 变量 的 各 方面 问题 也 出 现在 大 型 的 分 布 式 系统 里 。 例 如 ， 设 想 一 个 分 布 式 的 银行 系 
统 ， 其 中 的 各 个 分 支 银 行 维护 着 银行 余额 的 局 部 值 ， 并 且 周 期 性 地 将 这 些 值 与 其 他 分 支 所 维 
护 的 值 相互 比较 。 在 这 样 的 系统 里 ,“ 账 户 余 额 ”的 值 可 能 是 不 确定 的 ， 除 非 刚刚 做 完了 一 次 
同步 。 如 果 Peter 在 他 与 Paul 共 用 的 一 个 账户 里 存 人 了 一 些 钱 ， 什 么 时 候 才能 说 这 个 账户 的 余 
额 已 经 改变 了 一 一 是 在 本 地 的 分 支 银行 修改 了 余额 之 后 ， 还 是 在 同步 之 后 ? 进一步 说 ， 如 果 
Paul 从 另 一 分 支 银 行 访问 这 个 账户 ， 如 何在 这 一 银行 系统 里 对 这 种 行为 的 “正确 性 ”确定 合 
理 的 约束 ? 在 这 里 ， 能 考虑 的 可 能 就 是 保持 Peter 和 Paul 的 各 自行 为 ， 以 及 保证 刚刚 完成 同步 
时 刻 的 账户 “状态 正确 性 。 有 关 “ 真 正 ” 的 账户 余额 或 者 几 次 同步 之 间 事 件 发 生 的 顺序 ， 
可 能 就 是 完全 无 关 紧 要 ， 而 且 也 没有 意义 的 '”。 
这 里 的 基本 现象 是 不 同 进程 之 间 的 同步 ， 建 立 起 共享 状态 ,或 迫使 进程 之 间 通 信 所 产生 
的 事件 按照 某 种 特定 的 顺序 进行 。 从 本 质 上 看 ， 在 并 发 控制 中 ， 任 何 时 间 概 念 都 必然 与 通信 
有 内 在 的 密切 联系 "? 。 有 意思 的 是 ， 时 间 与 通信 之 间 的 这 种 联系 也 出 现在 相对 论 里 ， 在 那里 


"6 Havender (1968) 提出 的 避免 死 锁 的 一 般 性 技术 是 枚 举 共 享 资源 ， 按 顺序 去 获取 它们 。 对 于 不 可 能 避免 的 死 
锁 情 况 ， 就 要 求 一 种 死 镇 恢复 方法 ， 要 求 进程 能 “退出 ” 死 锁 状 态 并 重新 尝试 运行 。 死 锁 恢 复 机 制 广泛 采用 
于 数据 库 管 理 系统 中 ， 有 关 这 一 问题 的 细节 参见 Gray and Reuter 1993 。 

7 代替 串 行 化 的 另 一 种 方式 是 屏障 同步 。 程 序 员 可 以 允许 并 发 进程 随意 地 执行 ， 但 需要 建立 起 一 些 同步 点 
(“屏障 ”)， 任 何 进 程 在 所 有 进程 没有 到 达 这 里 之 前 都 不 能 穿 过 它 。 现 代 处 理 器 提供 了 一 些 机 器 指令 ， 使 程序 
员 可 以 在 需要 统一 性 的 位 置 上 建立 同步 点 。 例 如 ，PowerPC 就 提供 了 两 条 为 此 目的 的 指令 SYNC 和 EIEIO ( 强 
制 输入 输出 的 按 序 执行 ，Enforced In-order Execution of Input/Output) 。 

18 该 观点 看 起 来 有 些 怪 ,但 确实 存在 采用 这 种 方式 的 系统 。 例 如 ， 信 用 卡 账户 的 跨国 付款 通常 采用 按 国家 结 清 
的 方式 ， 在 不 同 国家 的 付款 则 采用 局 期 性 平 账 的 方式 。 这 样 ， 一 个 账 户 在 不 同 国家 里 的 余额 就 完全 可 能 不 同 。 

059 对 于 分 布 式 系统 而 言 ， 这 种 看 法 由 Lamport 提 出 (1978)， 他 说 明了 如 何 通 过 通信 建立 一 种 “全 局 时 钟 "， 通 
过 它 就 可 以 在 分 布 式 系统 里 建立 起 事件 之 间 的 秩序 。 
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的 光速 (可 能 用 于 同步 事件 的 最 快 信号 ) 是 与 时 间 和 空间 有 关 的 基本 常量 。 在 处 理 时 间 和 状 
态 时 ， 我 们 在 计算 模型 领域 所 遭遇 的 复杂 性 ， 事 实 上 ， 可 能 就 是 物理 世界 中 最 基本 的 复杂 性 
的 一 种 反映 。 全 


3.5 流 


我 们 已 经 对 采用 赋值 作为 工具 做 模拟 有 了 很 好 的 理解 ， 也 看 到 了 赋值 所 带 来 的 复 来 问题 。 
现在 是 提出 下 面 问题 的 时 候 了 :我 们 能 否 走 另 一 条 路 ， 以 便 避 免 这 些 问 题 中 的 某 些 东西 。 在 
这 一 节 里 ， 我 们 将 基于 一 种 称 为 流 的 数据 结构 ， 探 索 对 状态 进行 模拟 的 另 一 条 途径 。 正 如 下 
面 将 要 看 到 的 ， 流 可 能 缓和 状态 模拟 中 的 复杂 性 。 

让 我 们 先 退 回 一 步 ， 重 新 考虑 一 下 有 关 的 复杂 性 来 自 何 处 。 在 试图 模拟 真实 世界 中 的 现 
象 时 ， 我 们 做 了 一 些 明显 合理 的 决策 : 用 具有 局 部 状态 的 计算 对 象 去 模拟 真实 世界 里 具有 局 
部 状态 的 对 象 ， 用 计算 机 里 面 随 着 时 间 的 变化 去 表示 真实 世界 里 随 着 时 间 的 变化 ; 在 计算 机 
里 ， 被 模拟 对 象 随 着 时 间 的 变化 是 通过 对 那些 模拟 对 象 中 局 部 变量 的 赋值 实现 的 。 

难道 还 有 什么 其 他 的 办 法 吗 ? 我 们 能 够 避免 让 计算 机 里 的 时 间 去 对 应 于 真实 世界 里 的 时 
间 吗 ? 我 们 必须 让 相应 的 模型 随 着 时 间 变 化 ， 以 便 去 模拟 真实 世界 中 的 现象 吗 ? 如 果 以 数学 
函数 的 方式 考虑 这 些 问 题 ， 我 们 可 以 将 一 个 量 x 的 随 着 时 间 而 变化 的 行为 ， 描 述 为 一 个 时 间 的 
函数 x(1) 。 如 果 我 们 想 集中 关注 的 是 一 个 个 时 刻 的 +， 那 么 就 可 以 将 它 看 作 一 个 变化 着 的 量 。 
然而 ， 如 时 我 们 关注 的 是 这 些 值 的 整个 时 间 史 ， 那 么 就 不 需要 强调 其 中 的 变化 一 一 这 一 函数 
本 身 并 没有 改变 。 

如 果 用 离散 的 步 长 去 度量 时 间 ， 那 么 我 们 就 可 以 用 一 个 (可 能 无 穷 的 ) 序列 去 模拟 一 个 
时 间 函数 。 在 这 一 节 里 ,我 们 将 看 到 如 何 用 这 样 的 序列 去 模拟 变化 ， 以 这 种 序列 表示 被 模拟 
系统 随 着 时 间 变 化 的 历史 。 为 了 做 到 这 些 ， 我 们 需要 引进 一 种 称 为 流 的 新 数据 结构 。 从 抽象 
的 观点 看 ， 一 个 流 也 就 是 一 个 序列 。 然 而 我 们 发 现 ， 把 流 直 接 表 示 为 表 ( 像 在 2.2.1 节 那样 ) 
并 不 能 完全 揭示 流 处 理 的 威力 。 作 为 一 种 替代 形式 ， 我 们 将 要 引进 一 种 迁 时 求 值 的 技术 ， 它 
将 使 我 们 能 够 用 流 去 表示 非常 长 的 〈 甚 至 是 无 穷 的 ) 序列 。 

流 处 理 使 我 们 可 以 模拟 一 些 包 含 状态 的 系统 ， 但 却 不 需要 利用 赋值 或 者 变动 数据 。 这 一 
情况 会 产生 一 些 重要 的 结果 ， 既 有 理论 的 也 有 实际 的 。 因 为 我 们 可 以 构造 出 一 些 模型 ， 它 们 
能 避免 由 于 引进 了 赋值 而 带 来 的 内 在 缺陷 。 但 是 ， 流 框架 也 带 来 它 自己 的 困难 。 有 关 哪 种 建 
模 技术 能 够 导致 更 模块 化 、 更 容易 维护 的 系统 的 问题 ， 仍 然 不 会 有 最 后 的 结论 。 


3.51 流 作为 延 时 的 表 


正如 我 们 已 经 在 2.2.3 节 里 看 到 的 ， 序 列 可 以 作为 组 合 程序 的 一 种 标准 界面 。 我 们 在 前 面 已 
经 构造 起 了 一 些 对 序列 进行 操作 的 功能 强大 的 抽象 机 制 ， 例 如 ap、filter 和 accumulate,， 
它们 以 简洁 优雅 的 方式 抓 住 了 范围 非常 广泛 的 许多 操作 的 共同 特征 。 

不 幸 的 是 ， 如 果 我 们 将 序列 表示 为 表 ， 获 得 这 些 优雅 结果 就 需要 付出 严重 低 效 的 代价 ， 
无 论 是 在 计算 的 时 间 方面 还 是 在 空间 方面 。 当 我 们 将 对 于 序列 的 操作 表示 为 对 表 的 变换 时 ， 


80 物理 学 里 有 时 也 采用 了 这 种 观点 ， 引 进 粒子 的 “世界 线 ”(world lines) 作为 对 运动 做 推理 的 一 种 工具 。 我 们 
也 已 经 提 到 过 (在 2.2.3 节 里 )， 这 是 考虑 信号 处 理 系统 的 一 种 很 自然 的 方式 。 下 面 将 在 3.5.3 节 里 把 流 应 用 于 
信号 处 理 。 
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在 工作 过 程 中 的 每 一 步 ， 有关 程序 都 必须 去 构造 和 复制 各 种 数据 结构 (它们 可 能 规模 巨大 )。 

为 了 说 明 事情 确实 如 此 ， 我 们 来 比较 两 个 程序 ， 它 们 都 计算 出 一 个 区 间 里 的 素数 之 和 。 
其 中 第 一 个 程序 用 标准 的 近代 风格 写 出 '3!，: 

(define (sum-primes a b) 

(define (iter count accum) 
(cond ((> count b) accum) 
((prime? count) (iter (+ count 1) (+ count accum))) 
(else (iter (+ count 1) accum)))) 
(iter a 0)) 
第 二 个 程序 完成 同样 的 计算 ， 其 中 使 用 了 2.2.3 节 中 的 序列 操作 : 
(define (sum-primes a b) 
(accumulate + 
0 
(filter prime? (enumerate-interval a b)))) 

在 执行 计算 时 ， 第 一 个 程序 里 只 需要 维持 正在 累积 的 和 。 与 此 相对 比 的 是 ， 只 有 等 
enumerate-interval 构 造 完 这 一 区 间 里 所 有 整数 的 表 之 后 ， 第 二 个 程序 里 的 过 滤器 才能 
开始 做 自己 的 检查 工作 。 这 一 过 滤器 将 产生 出 另 一 个 表 ， 在 将 这 个 表 挤 压 到 一 起 得 到 和 数 之 
前 ， 还 需要 将 这 个 表 传 递 给 accumulate。 在 第 一 个 程序 里 ， 完 全 不 需要 这 么 大 的 中 间 存 储 ， 
因为 我 们 可 以 认为 那里 是 在 递增 地 枚 举 这 个 区 间 ， 产 生出 一 个 素数 后 就 将 它 加 入 和 数 之 中 。 

如 果 我 们 采用 下 面 的 表达 式 ， 通 过 序列 方式 去 计算 从 10 000 到 1 000 000 的 区 间 里 的 第 二 
个 素数 ， 这 种 低 效 情况 就 表现 得 太 明 显 了 : 


(car (cdr (filter prime? 
(enumerate-interval 10000 1000000)))) 


这 一 表达 式 确实 能 找 出 第 二 个 素数 ， 但 计算 的 开销 则 令 人 完全 无 法 容忍 。 这 里 首先 构造 出 一 
个 包含 了 差不多 一 百 万 个 整数 的 表 ， 通 过 过 滤 整 个 表 的 方式 去 检查 每 个 元 素 是 否 为 素数 m 
后 抛弃 掉 几 平 所 有 的 结果 。 在 更 传统 的 程序 设计 风格 中 ， 我 们 完全 可 能 交错 进行 枚 举 和 过 滤 ， 
并 在 找到 第 二 个 素数 时 立即 停 下 来 。 

流 是 一 种 非常 巧妙 的 想法 ， 使 我 们 可 能 利用 各 种 序列 操作 ， 但 又 不 会 带 来 将 序列 作为 表 
去 操作 而 引起 的 代价 。 利 用 流 结构 ， 我 们 能 得 到 这 两 个 世界 里 最 好 的 东西 :如 此 形成 的 程序 
可 以 像 序列 操作 那么 优雅 ， 同 时 叉 能 得 到 递增 计算 的 效率 。 这 里 的 基本 想法 就 是 做 出 一 种 安 
排 ， 只 是 部 分 地 构造 出 流 的 结构 ， 并 将 这 样 的 部 分 结构 送 给 使 用 流 的 程序 。 如 果 使 用 者 需要 
访问 这 个 流 的 尚未 构造 出 的 那个 部 分 ， 那 么 这 个 流 就 会 自动 地 继续 构造 下 去 ， 但 是 只 做 出 足 
够 满足 当时 需要 的 那 一 部 分 。 这 一 做 法 造成 了 一 种 假象 ， 就 好 像 整 个 流 都 存在 着 一 样 。 换 名 
话说 ， 虽 然 下 面 将 要 写 出 各 个 程序 都 像 是 在 处 理 完整 的 序列 ， 但 我 们 将 要 设计 出 流 的 一 种 实 
现 ， 使 得 流 的 构造 和 它 的 使 用 能 够 交错 进行 ， 而 这 种 交错 又 是 完全 透明 的 。 

从 表面 上 看 ， 流 也 就 是 表 ， 但 是 对 它们 进行 操作 的 过 程 的 名 字 不 同 。 在 这 里 有 构造 函数 
”cons-stream， 还 有 两 个 选择 函数 stream~car 和 stream-cdr ， 它 们 满足 如 下 的 约束 条 件 ; 
(stream-car (cons-stream x y))=x 


(stream-cdr (cons-stream x y))=y 


8 假定 已 经 有 谓词 prime? ( 例如 像 1.2.6 节 里 那样 定义 ) ， 用 于 检查 一 个 数 是 否 为 素数 。 
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这 里 有 一 个 可 识别 的 对 象 the-empty-stream, 它 绝 不 会 是 任何 cons-stream 操 作 的 结果 。 
这 个 对 象 可 以 用 谓词 stream-nul1? 判断 四。 有 了 这 些 东 西 ， 我 们 就 可 以 像 构 造 和 使 用 表 一 
样 ， 去 构造 和 使 用 流 ， 用 流 去 表示 汇聚 在 一 个 序列 里 的 一 批 数据 了 。 特 别 是 我 们 将 用 与 第 2 章 
的 各 种 表 操 作 (如 List-ref、map 和 for-each 等 ) 的 类 似 方 式 去 构造 流 
(define (stream-ref s n) 
(if (= n 0) 
(stream-car s) 


(stream-ref (stream-cdr s) (- n 1)))) 


(define (stream-map proc s) 
(if (stream-null? s) 
the-empty-stream 
(cons-stream (proc (stream-car S)) 
(stream-map proc (stream-cdr s))))) 


(define (stream-for-each proc s) 
(if (stream-null? s) 
"done 
(begin (proc (stream-car s)) 
(stream-for-each proc (stream-cdr s))))) 
stream-for-each 对 于 考察 一 个 流 非常 有 用 : 

(define (display-stream s) 

(stream-for-each display-line s)) 
(define (display-line x) 

(newline) 

(display x)) 

为 了 使 流 的 实现 能 自动 地 、 透 明 地 完成 一 个 流 的 构造 与 使 用 的 交错 进行 ， 我 们 需要 做 出 
-种 安排 ， 使 得 对 于 流 的 car 的 求 值 要 等 到 真正 通过 过 程 stream-cGr 去 访问 它 的 时 候 再 做 ， 
而 不 是 在 通过 cons-stream 构 造 流 的 时 候 做 。 这 一 实现 选择 使 我 们 回忆 起 2.1.2 节 有 关 有 理 
数 的 讨论 。 在 那里 曾经 提出 ， 我 们 可 以 选择 有 理 数 的 实现 方式 ， 其 中 简化 分 子 与 分 母 的 工作 
可 以 在 构造 的 时 候 完 成 ， 也 可 以 在 选取 的 时 候 完 成 。 有 理 数 的 这 样 两 种 实现 将 产生 出 同一 个 
数据 抽象 ， 但 是 不 同 的 选择 可 能 对 效率 产生 影响 。 在 流 和 常规 表 之 间 也 存在 着 类 似 的 关系 。 
作为 一 种 数据 抽象 ， 流 与 表 完 全 一 样 。 它 们 的 不 同 点 就 在 于 元 素 的 求 值 时 间 。 对 于 常规 的 表 ， 
其 car 和 cdr 都 是 在 构造 时 求 值 ， 而 对 于 流 ， 其 cdr 则 是 在 选取 的 时 候 才 去 求 值 。 

我 们 的 流 实现 将 基于 一 种 称 为 dGelay 的 特殊 形式 , 对 于 (delay <exp>) 的 求 值 将 不 对 
表达 式 <exp> 求 值 ， 而 是 返回 一 个 称 为 廷 时 对 象 的 对 象 ， 它 可 以 看 作 是 对 在 未 来 的 某 个 时 间 求 
值 <exp> 的 允诺 。 和 delay 一 起 的 还 有 一 个 称 为 force 的 过 程 ， 它 以 一 个 延 时 对 象 为 参数 ， 执 
行 相应 的 求 值 工作 。 从 效果 上 看 ， 也 就 是 迫使 delay 完 成 它 所 允诺 的 求 值 。 下 面 将 看 到 
delay 和 force 可 以 如 何 实现 ， 现 在 我 们 先 用 它们 来 构造 流 。 


182 在 MIT 实现 里 ， the-empty-stream 就 等 同 于 空 表 '0， 而 stream-null? 也 就 是 null?。 

183 这 可 能 使 你 感到 有 些 困惑 。 我 们 可 以 对 流 和 表 定 义 这 些 类 似 过 程 ， 正 说 明 现在 还 缺乏 某 种 更 基础 的 抽象 。 遗 
憾 的 是 ， 为 了 探索 这 种 抽象 ， 我 们 需要 对 求 值 过 程 做 更 细致 的 控制 ， 而 这 种 控制 目前 还 做 不 到 。 我 们 将 在 
3.5.4 贞 里 进一步 讨论 这 个 问题 ， 在 4.2 节 将 开发 出 另 一 种 框架 ,统一 起 表 和 流 。 
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cons-stream 是 一 个 特殊 形式 ， 其 定义 将 使 


(cons-stream <a> <b>) 


等 价 于 


(cons <a> (delay <b>)) 


这 就 表示 我 们 将 用 序 对 来 构造 流 。 不 过 ， 在 这 里 并 不 是 将 流 的 后 面部 分 放 进 序 对 的 cdr ， 而 
是 把 如 果 需 要 就 可 以 计算 出 有 关 部 分 的 允诺 放 在 那里 。 现 在 ，stream-car 和 stream-cdr 
已 经 可 以 定义 为 如 下 的 过 程 了 ， 

(define (stream-car stream) (car stream) ) 


(define (stream-cdr stream) (force (cdr stream) ) ) 


stream-car 选取 有 关 序 对 的 car 部 分 ， stream-cdr 选 取 有 关 序 对 的 cdz 部 分 ， 并 求 值 这 
里 的 延 时 表达 式 ， 以 获得 这 个 流 的 后 面部 分 “。 


流 实现 的 行为 方式 

要 想 看 看 上 述 实 现 的 行为 方式 ， 让 我 们 先 来 分 析 一 下 在 上 面 已 经 看 到 的 那个 “ 令 人 完全 
无 法 容忍 ”的 素数 计算 ， 但 现在 是 用 流 的 方式 重新 写 出 : 

{stream-car 

(stream-cdr 


(stream-filter prime? 
(stream-enumerate-interval 10000 1000000)))) 


我 们 将 会 看 到 它 确 实 能 有 效 工作 。 
计算 开始 于 对 参数 10 000 和 1 000 000 调 用 stream-enumerate-interval。 这 里 的 
stream-enumerate-interval 是 类 似 于 enumerate-interval ( 见 2.2.3 节 ) 的 流 : 
(define (stream-enumerate-interval low high) 
(if (> low high) 
the-empty-stream 
(cons-stream 


low 
(stream-enumerate-interval (+ low 1) high)))) 


这 样 ， 由 stream-enumerate-interval 返 回 的 结果 就 是 通过 cons-stream 形 成 的 : 
(cons 10000 ` 
(delay (stream-enumerate-interval 10001 1000000))) 
也 就 是 说 ， stream-enumerate-interval 返 回 一 个 流 ， 其 car 是 10 000 ， 而 其 cdr 是 一 
个 允诺 ， 其 意 为 如 果 需 要 ， 就 能 枚 举 出 这 个 区 间 里 更 多 的 东西 。 这 个 流 被 送 去 过 滤 出 素数 ， 
用 的 是 与 过 程 filter ( 见 2.2.3 节 ) 类 似 的 针对 流 的 过 程 : 


(define (stream-filter pred stream) 


%4 虽然 stream-car 和 stream-cdr 都 可 以 定义 为 普通 过 程 ， 但 是 cons-stream 却 必须 是 特殊 形式 。 如 果 
cons-stream 也 是 过 程 ， 那 么 按照 我 们 的 求 值 模型 ， 对 (cons-stream <a> <b>) 的 求 值 就 会 自动 地 对 
<b> 的 求 值 ， 而 这 是 我 们 不 希望 的 事情 。 同 样 ，delay 也 必须 是 特殊 形式 ， 而 force 可 以 是 常规 过 程 。 

8S 在 这 里 ， 实 际 出 现在 延 时 表达 式 里 的 并 不 是 写 出 的 数值 ， 实 际 出 现 的 是 原来 的 表达 式 ， 有 关 变 量 在 一 个 环境 
里 约束 到 适当 的 数值 。 举 例 说 ，( +Low 1) 实际 出 现在 写 10 001 的 地 方 ， 其 中 low 约 东 到 10 000, 
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(cond ((stream-null? stream) the-empty-stream) 
( (pred (stream-car stream)) 
(cons-stream (stream-car stream) 
(stream-filter pred 
(stream-cdr stream) ) ) ) 
(else (stream-filter pred (stream-cdr stream))))) 


stream-filter#*@ jfifjstream-car (也 就 是 当时 那个 序 对 的 car ， 此 时 就 是 10 000), 
因为 这 个 数 并 非 素数 ，stream-filter 需 要 去 进一步 去 检查 它 的 输入 流 的 stream-cdr。 
这 里 对 于 stream-~cdr 的 调用 迫使 系统 对 延 时 的 stream-enumerate-interval 求 值 ， 这 
一 次 它 返 回 : 
(cons 10001 
(delay (stream-enumerate-interval 10002 1000000))) 

stream-filter 现 在 关注 的 是 这 个 流 的 stream-car ， 也 就 是 10 001， 它 看 到 这 个 数 也 不 是 
素数 ， 因 此 就 再 次 迫使 求 值 stream-cdr ， 并 如 此 进行 下 去 ， 直 至 stream-enumerate- 
interval 产 生出 素数 10 007。 这 时 stream-filter 根 据 其 定义 返回 : 


(cons-stream (stream-car stream) 
(stream-filter pred (stream-cdr stream))) 
这 时 它 也 就 是 : 
(cons 10007 
{delay 

(stream-filter 

prime? 

(cons 10008 

(delay 
(stream-enumerate-interval 10009 
1000000)))))) 


这 一 结果 现在 被 送 给 我 们 原先 的 表达 式 里 的 stream-cdr ， 又 迫使 延 时 的 stream-Eilte 
求 值 ， 它 转 而 去 迫使 延 时 的 stream-enumerate-intervVal 的 求 值 ， 直 到 它 找 到 了 下 一 个 
素数 ， 在 这 里 就 是 10 009 。 最 后 ， 这 个 结果 被 送 给 原来 表达 式 的 stream-car : 


(cons 10009 
(delay 

{stream-filter 

prime? 

(cons 10010 

{delay 
(stream-enumerate-interval 10011 
1000000)))))) 


stream-car 返 回 10 009， 整 个 计算 结束 。 在 此 期 间 只 检查 了 为 找到 第 二 个 素数 所 必须 检查 
的 那些 数 是 否 为 素数 ， 对 有 关 区 间 的 枚 举 也 只 进行 到 为 满足 素数 过 滤器 的 需要 所 必须 做 的 地 
方 。 

一 般 而 言 ， 可 以 将 延 时 求 值 看 作 一 种 “由 需要 驱动 ”的 程序 设计 ， 其 中 流 处 理 的 每 个 阶 
段 都 仅仅 活动 到 足够 满足 下 一 阶段 需要 的 程度 。 我 们 已 经 完成 的 工作 ， 也 就 是 松弛 了 计算 中 
事件 发 生 的 实际 顺序 与 过 程 的 表面 结构 的 关系 。 这 样 写 出 的 过 程 就 像 是 这 个 流 已 经 “不 折 不 
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扣 地 完全 ” 放 在 那里 ， 而 实际 上 ， 这 一 计算 的 执行 是 逐步 进行 的 ， 就 像 传统 程序 设计 一 样 。 


Gelay 和 force 的 实现 

虽然 delay 和 force 和 貌似 很 有 魔力 的 操作 ， 其 实 它们 的 实现 却 真是 相当 直截了当 的 。 
delay 必须 包装 起 一 个 表达 式 ， 使 它 可 以 在 以 后 根据 需要 去 求 值 。 我 们 可 以 简单 地 通过 将 这 
一 表达 式 作 为 一 个 过 程 的 体 来 做 到 这 一 点 。 下 面 这 样 的 特殊 形式 delay : 

(delay <exp>) 
实际 上 不 过 是 在 下 面 形 式 的 外 面包 装 起 一 层 语 法 糖衣 : 

{lambda () <exp>) 
而 force 也 就 是 简单 地 调用 由 delay 产 生 的 那 种 (无 参 ) 过 程 ， 因 此 ， 可 以 将 force 实 现 为 
一 个 过 程 ; 

{define {force delayed-object) 

(delayed-object) ) 

这 种 实现 已 经 足以 使 delay 和 force 按 照 上 面 所 说 的 方式 工作 了 。 但 是 ， 在 这 里 还 存在 
一 种 很 重要 的 优化 ， 可 以 将 它 包 括 进 来 。 在 许多 应 用 中 ， 我 们 都 需要 多 次 地 迫使 同一 个 延 时 
对 象 求 值 (参见 练习 3.57) 。 解 决 这 种 问题 的 办 法 就 是 设法 采用 一 种 构造 延 时 对 象 的 方法 ， 使 
它们 在 第 一 次 被 迫 求 值 之 后 能 保存 起 求 出 的 值 。 随 后 再 次 遇 到 被 迫 求 值 时 ， 这 些 对 象 就 可 以 
直接 返回 自己 保存 的 值 ， 而 不 必 重复 进行 计算 。 换 句 话说， 我 们 可 以 将 delay 实现 为 一 种 特 
殊 的 记忆 性 过 程 ， 类 似 于 练习 3.27 中 所 描述 的 。 做 到 这 一 点 的 一 种 方法 是 采用 下 面 过 程 ， 它 
以 一 个 (无 参 ) 过 程 为 参数 ， 返 回 该 过 程 的 记忆 性 版 本 。 这 种 记忆 性 过 程 在 第 一 次 运行 时 将 
计算 出 的 结果 保存 起 来 。 在 随后 再 遇 到 求 值 时 ， 它 就 简单 返回 已 有 的 结果 : 


(define (memo-proc proc) 
(let ((already-run? false) (result false)) 
(lambda () 
{if (not already-run?) 

(begin (set! result (proc)) 
(set! already-run? true) 
result) 

result) ))) 


此 后 就 可 以 设法 定义 delay ， 使 得 (delay <exp>) 等 价 于 

(memo-proc (lambda () <exp>)) 
而 force 的 定义 与 前 面 完 全 一 样 ”。 : 

练习 3.50 ”请 完成 下 面 的 定义 ， 这 个 过 程 是 stream-map 的 推广 ， 它 允许 过 程 带 有 多 个 
参数 ， 类 似 于 2.2.3 节 的 脚注 78。 : 


(define (stream-map proc . argstreams) MB: 


86 除了 本 节 所 提出 的 方法 之 外 ， 还 有 许多 方法 可 以 实现 流 。 使 流 成 、 尝 用 技术 的 关键 是 延 时 求 值 。 在 Algol 60 
语言 里 ， 按 名 调用 参数 机 制 是 一 种 内 在 特征 。 利 用 该 机 制 实现 溪 的 问题 首先 由 Landin (1965) 所 找 述 。 
Friedman and Wise (1976) 将 针对 旋 的 延 时 求 值 引进 了 Lisp 。 在 他 们 的 实现 里 ，cons 总 延 时 求 值 它 的 各 个 
参数 ， 因 此 表 也 就 自动 地 成 为 了 流 。 记 忆 性 过 程 也 称 为 按 需 调用 。Algol 社 团 更 愿意 称 我 们 原来 的 延 时 对 象 为 
按 名 调用 槽 ， 而 称 后 面 的 优化 版 本 为 按 需 调用 槽 。 
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(if (<??> (car argstreams)) 
the-empty~stream 
(<??> 
(apply proc (map <??> argstreams)) 
(apply stream-map 
(cons proc (map <??> argstreams)))))) 
练习 3.51 ”为 了 更 仔细 地 观察 延 时 求 值 的 情况 ， 我 们 将 使 用 下 面 过 程 ， 它 在 打印 其 参数 
之 后 简单 地 返回 它 : 
(define (show x) 
(display-line x) 
x) 
解释 器 对 于 顺序 地 求 值 下 面 各 个 表达 式 的 响应 是 什么 ? 
(define x (stream-map show (stream-enumerate-interval 0 10))) 


(stream-ref x 5) 


(stream-ref x 7) 


练习 3.52 ”考虑 下 面 的 表达 式 序 列 : 


人 


(define sum 0) 


(define (accum x) 
(set! sum (+ x sum)) 
sum) 


(define seq (stream-map accum (stream-enumerate-interval 1 20))) 

(define y (stream-filter even? seq) ) 

(define z (stream-filter (lambda (x) (= (remainder x 5) 0)) 
seq)) 


(stream-ref y 7) 
(display-stream z) 


在 上 面 每 个 表达 式 求 值 之 后 sum 的 值 是 什么 ? 求 值 其 中 的 stream~ref 和 display-~ 
stream 表 达 式 将 打印 出 什么 响应 ? 如 果 我 们 简单 地 将 (Gelay <exp>) 实现 为 (lambda () 
<exp> )， 而 不 使 用 memo-proc 所 提供 的 优化 ， 这 些 响 应 会 有 什么 不 同 吗 ?请 给 出 解释 。 


3.5.2 无 穷 流 


前 面 我 们 已 经 看 到 如 何 做 出 一 种 假象 ， 使 我 们 可 以 像 对 待 完 整 的 实体 一 样 去 对 流 进行 各 
种 操作 ， 即 使 在 实际 上 只 计算 出 了 有 关 的 流 中 必须 访问 的 那 一 部 分 。 我 们 可 以 利用 这 种 技术 
有 效 地 将 序列 表示 为 流 ， 即 使 对 应 的 序列 非常 长 。 更 令 人 吃惊 地 是 ， 我 们 甚至 可 以 用 流 去 表 
示 无 穷 长 的 序列 。 例 如 ， 考 虚 下 面 有 关 正 整数 的 流 的 定义 : 


187 如 练习 3.51 和 练习 3.52 这 样 的 练 妈 在 检查 我 们 对 于 delay 怎样 工作 的 理解 方面 很 有 价值 。 在 另 一 方面 ， 让 
延 时 求 值 和 打印 混在 一 起 一 一 更 精 糕 的 是 ， 与 赋值 混在 一 起 一 一 也 是 特别 容易 迷惑 人 的 ， 因 此 在 传统 上 ， 计 
算 机 语言 课程 的 教师 常常 在 考试 里 用 本 节 里 这 样 问题 去 拷问 学 生 。 应 该 说 ， 写 出 依赖 于 这 类 金星 细节 的 程序 
是 极其 丑陋 的 程序 设计 风格 。 流 处 理 的 部 分 威力 就 在 于 使 我 们 能 忽略 程序 中 各 个 事件 的 实际 发 生 顺 序 。 然 而 ， 
这 恰好 就 是 有 赋值 时 我 们 无 法 做 到 的 事情 ， 因 为 赋值 迫使 我 们 必须 去 考虑 时 间 和 变化 。 
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(define (integers-starting-from n) 
(cons-stream n (integers-starting-from (+ n 1)))) 


(define integers (integers-starting-from 1)) 


这 确实 是 有 意义 的 ， 因 为 integers 将 是 一 个 序 对 ， 其 car 就 是 1 ， 而 其 cdz 是 产生 出 所 有 从 2 
开始 的 整数 的 允诺 。 这 是 一 个 无 穷 长 的 流 ， 但 在 任何 给 定时 刻 ， 我 们 都 只 检查 到 它 的 有 穷 部 
分 ， 因 此 我 们 的 程序 将 永远 也 不 会 知道 整个 的 无 穷 序 列 并 不 在 那里 。 

我 们 可 以 利用 integers 定 义 出 另 一 些 无 穷 流 ， 例 如 所 有 不 能 被 7 整除 的 整数 的 流 : 

(define (divisible? x y) (= (remainder x y) 0)) 

{define no-sevens 

(stream-filter (lambda (x) (not (divisible? x 7))) 
integers)) 
而 后 就 可 以 简单 地 通过 访问 这 个 流 的 元 素 的 方式 ， 找 出 不 能 被 7 整除 的 整数 : 

{stream-ref no-sevens 100) 

117 

就 像 可 以 定义 integers 一 样 ， 我 们 也 可 以 定义 斐 波 那 契 数 的 无 穷 流 : 

(define (fibgen a b) 

(cons-stream a (fibgen b (+ a b)))) 

(define fibs (fibgen 0 1)) 

这 样 定 义 出 的 fibs 是 一 个 序 对 ， 其 car 是 0， 而 其 cdr 是 一 个 求 值 (fibgen 1 1) 的 允诺 。 
当 我 们 求 值 延 时 表达 式 (fibgen 1 1) 时 ， 它 又 将 产生 出 一 个 序 对 ， 其 car 是 1， 而 其 cdr 
是 一 个 求 值 (fibgen 1 2) 的 一 个 允诺 ， 如 此 下 去 。 

要 想 看 一 个 更 令 人 激动 的 例子 ， 我 们 可 以 推广 前 面 的 no-sevens 实例， 采用 一 种 通常 称 
为 厄 拉 多 塞 第 法 !， 构 造 出 素数 的 无 穷 流 。 为 此 我 们 将 从 整数 2 开始 ， 因 为 这 是 第 一 个 素数 。 
为 了 得 到 其 余 的 素数 ， 就 需要 从 其 余 的 整数 中 过 滤 掉 2 的 所 有 倍数 。 这 样 就 留 下 了 一 个 从 3 开 
始 的 流 ， 而 3 也 就 是 下 一 个 素数 。 现 在 我 们 再 从 这 个 流 的 后 面部 分 过 滤 掉 所 有 3 的 倍数 ， 这 样 
就 留 下 一 个 以 5 开头 的 流 ， 而 5 又 是 下 一 个 素数 。 我 们 可 以 这 样 继续 下 去 。 换 句 话 说 ， 这 种 方 
法 就 是 通过 一 个 筛选 过 程 构造 出 各 个 素数 ， 该 过 程 可 描述 如 下 ， 对 流 S 做 筛选 就 是 形成 一 个 
流 ， 其 中 的 第 一 个 元 素 就 是 5 的 第 一 个 元 素 ， 得 到 其 随后 的 元 素 的 方式 是 从 5 的 其 余 元 素 中 过 
滤 掉 S 的 第 一 个 元 素 的 所 有 倍数 ， 而 后 再 对 得 到 的 结果 进行 第 选 。 这 一 过 程 很 容易 用 流 操作 
描述 : 

(define (sieve stream) 

(cons-stream 
(stream-car stream) 
(sieve (stream-filter 
(lambda (x) 
(not (divisible? x (stream-car stream) ))) 
(stream-cdr stream))))) 


We ety SME ALAS TERI HES IG UL AA EK. HE EP TR A a tT FE. 
他 的 计算 方式 是 观察 夏至 日 正午 影子 的 角度 。 虽 然 厄 拉 多 塞 筛 法 历史 如 此 之 悠久 ， 但 仍 成 为 专用 硬件 “ 筛 “ 
的 基础 ， 直 至 最 近 都 一 直 是 确定 大 素数 存在 的 有 力 工具 。 直 到 20 世 纪 70 年 代 ， 这 类 方法 才 被 1.2.6 节 讨论 过 的 
概率 算法 的 成 果 所 超越 。 
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(define primes (sieve (integers~starting-from 2))) 


如 果 现 在 希望 找到 某 个 特定 素数 ， 只 需要 提出 以 下 要 求 : 
(stream-ref primes 50) 
233 


一 件 很 有 意思 的 事情 是 仔细 看 看 由 s ieve 形 成 的 信号 处 理 系 统 ， 如 图 3-31 中 所 示 的 
“Henderson 图 ”'。 输 入 流 馈 入 “ 反 cons”， 分 解 出 这 个 流 的 首 元 素 和 流 的 其 余 元 素 ， 用 这 
个 首 元 素 去 构造 一 个 可 除 性 过 滤器 ， 该 流 的 其 余部 分 穿 过 这 个 过 滤器 ， 这 个 过 滤器 的 输出 再 
馈 入 另 一 个 筛 块 ， 而 后 将 原来 的 首 元 素 cons 到 这 个 内 部 得 的 输出 上 ， 形 成 最 终 的 输出 流 。 这 
样 ， 不 仅 这 个 流 是 无 穷 的 ， 信 息 处 理 器 也 是 无 穷 的， 因为 在 这 个 得 里 还 包含 着 另 一 个 筛 。 


filter: 
hot 


divisible? 


图 3-31 将 素数 得 看 作 一 个 信号 处 理 系统 


隐 式 地 定义 流 

上 而 的 jntegers 和 fibs 流 是 通过 描述 “生成 ”过 程 的 方式 定义 的 ， 这 种 过 程 一 个 个 地 
计算 出 流 的 元 素 。 描 述 流 的 另 一 种 方式 是 利用 延 时 求 值 隐 式 地 定义 流 。 举 个 例子 ， 下 面 表达 
式 将 ones 定 义 为 1 的 一 个 无 穷 流 : 

(define ones (cons-stream 1 ones)) 
这 种 定义 方式 就 像 是 在 定义 一 个 递归 过 程 ， 这 里 的 ones 是 一 个 序 对 ， 它 的 car 是 1， 而 cdr 是 
求 值 ones 的 一 个 允诺 。 对 于 其 car 的 求 值 又 给 了 我 们 一 个 1 和 求 值 ones 的 一 个 允诺 ， 并 这 样 
继续 下 去 。 

通过 使 用 诸如 add-streams 一 类 的 操作 ， 我 们 还 可 以 做 一 些 更 有 趣 的 事情 。add-streams 
操作 产生 出 两 个 给 定 流 的 逐 对 元 素 之 和 ” : 

(define (add-streams sl s2) 

(stream-map + sl s2)) 

现在 我 们 可 以 用 如 下 方式 定义 整数 流 integers : 

(define integers (cons-stream 1 (add-streams ones integers) )) 
这 样 定义 出 的 integers 是 一 个 流 ， 其 首 元 素 是 1 ， 其 余部 分 是 ones 与 integers 之 和 。 这 
样 ，integers 的 第 二 个 元 素 就 是 1 加 上 integers 的 第 一 个 元 素 ， 也 就 是 2]，integers 的 


189 这 种 图 是 用 Peter Henderson 的 名 字 命名 的 。Henderson 是 第 一 个 画 出 这 种 类 型 的 图 的 人 ， 以 此 作为 一 种 思考 流 
处 理 的 方式 。 这 里 的 每 条 实 线 代表 需 传输 值 的 流 ， 从 ca 发 出 的 虚线 表明 这 是 一 个 值 而 不 是 一 个 流 。 
190 这 里 使 用 了 来 自 练习 3.50 的 推广 的 etream-map , 
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第 三 个 元 素 是 1 加 上 integers 的 第 二 个 元 素 ， 也 就 是 3， 如 此 继续 下 去 。 这 一 定义 可 行 ， 是 
因为 在 任 一 点 上 ， 都 已 经 生成 出 了 integers 流 的 足够 部 分 ， 这 就 使 我 们 可 以 将 它 馈 回 这 一 
定义 ， 去 产生 出 下 一 个 整数 。 
我 们 可 以 用 同样 的 风格 定义 出 斐 波 那 契 数 : 
(define fibs 
(cons-stream 0 
(cons-stream 1 


(add-streams (stream-cdr fibs) 
fibs)))) 


这 个 定义 说 fibs 是 一 个 以 0 和 1 开始 的 流 ， 而 这 个 流 的 其 余部 分 都 可 以 通过 加 起 流 fibs 和 移 
动 了 一 个 位 置 的 fibs 而 得 到 ，: 
1 1 2 3 5 8 13 21 ..=(stream-cdr fibs) 
0 1 1 2 3 5 8 13 ..=fibs 
0 1 1 2 3 5 8 13 21 34 ..=fibs 
scale-stream 是 描述 这 种 流 定 义 的 另 一 个 有 用 过 程 。 这 个 过 程 将 一 个 给 定 的 常数 乘 到 
流 中 的 每 个 项 上 : 


(define (scale-stream stream factor) 
(stream-map (lambda (x) (* x factor)) stream) ) 


例如 : 


(define double (cons-stream 1 (scale-stream double 2))) 


ARH ZAURA HE: 1,2, 4, 8, 16, 32, …。 | 
素数 流 的 另 一 定义 方式 是 从 整数 出 发 ,通过 检查 是 否 为 素数 的 方式 过 滤 它 们 。 这 里 需要 
以 第 一 个 素数 2 作为 开始 : 


(define primes 
(cons-stream 
2 
(stream-filter prime? (integers-starting-from 3)))) 
这 个 定义 并 不 像 它 初 看 起 来 那么 直截了当 ， 因 为 检查 一 个 数 是 否 素数 的 方式 ， 就 是 检查 "能 
否 被 所 有 小 于 等 于 Vn 的 素数 (而 不 是 用 所 有 这 样 的 整数 ) BR: 


(define (prime? n) 
(define (iter ps) 
(cond ((> (square (stream-car ps)) n) true) 
((divisible? n (stream-car ps)) false) 
(else (iter (stream-cdr ps))))) 
(iter primes) ) 
这 是 一 个 递归 定义 ， 因 为 primes 是 基于 谓词 prime? 定 义 出 来 的 ， 而 在 这 个 谓词 本 身 的 定义 
中 又 使 用 了 流 primes 。 这 一 过 程 能 行 的 原因 是 ， 在 计算 中 的 任 一 点 ， 流 primes 都 已 经 生成 
出 的 足够 多 的 部 分 ， 足 以 满足 我 们 检查 下 面 的 任何 数 是 否 素数 的 需要 。 也 就 是 说 ， 在 检查 任 
何 一 个 数 n 是 否 素数 时 ， 或 者 4 不 是 素数 (这 时 存在 着 一 个 已 经 生成 的 素数 能 够 整除 它 )， 或 者 
n 是 素数 (这 时 ， 已 经 生成 过 一 个 素数 一 -也 就 是 说 ， 已 经 生成 过 一 个 小 于 n 但 是 大 于 Vn 的 素 
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Br) 1), . 
练习 3.53 ”请 不 要 运行 程序 ， 描 述 一 下 由 下 面 程序 定义 出 的 流 里 的 元 素 : 


(define s (cons-stream 1 (add-streams s s))) 


练习 3.54 ”请 定义 一 个 与 add-streams 类似 的 过 程 mul1-streams ， 对 于 两 个 输入 流 ， 
它 按 元 素 逐 个 生成 乘积 。 用 它 和 integers 流 一 起 完成 下 面 流 的 定义 ， 共 中 的 第 4 个 元 素 (从 
0 开始 数 ) 是 n + 1 的 阶乘 : 


(define factorials (cons-stream 1 (mul-streams <??> <??>))) 


练习 3.55 《请 定义 函数 Partial-sums ， 它 以 流 9 为 参数 ， 返 回 的 流 中 的 元 素 是 So， So + 
SSo+S+S， …。 例 如 ，(Partial-sums integers) 应 该 生成 流 1, 3,6, 10,15, ---, 
练习 3.56 ”这 是 一 个 非常 著名 的 问题 ， 首 先 由 R. Hamming 提 出 。 问 题 是 要 按照 递增 的 顺 
序 不 重复 地 枚 举 出 所 有 满足 条 件 的 整数 ， 这 些 整 数 都 没有 2、3 和 5 之 外 的 素数 因子 。 完 成 此 事 
的 一 种 明显 方法 是 简单 地 检查 每 一 个 整数 ， 看 看 它 是 否 有 2、3 和 5 之 外 的 素数 因子 。 但 这 样 做 
极其 低 效 ， 因 为 随 着 整数 变 大 ， 它 们 之 中 满足 要 求 的 数 也 会 变 得 越 来 越 少 。 换 一 种 看 法 ， 让 
我 们 将 所 需 的 流 称 作 S ， 看 看 有 关 它 的 下 述 事实 ， 
“S 从 1 开始 。 
* (scale-stream S 2) 的 元 素 也 是 S 的 元 素 。 
。 这 一 说 法 对 于 (scale-stream S 3) 和 (scale-stream 5 S) 也 都 对 。 
*。 这 些 也 就 是 5 的 所 有 元 素 了 。 
现在 需要 做 的 就 是 将 所 有 这 些 来 源 的 元 素 组 合 起 来 。 为 此 我 们 先 定义 一 个 函数 merge ， 
它 能 将 两 个 排 好 顺序 的 流 合并 为 一 个 排 好 顺序 的 流 ， 并 删除 其 中 的 重复 : 
(define (merge sl s2) 
(cond ((stream-null? s1) s2) 
((stream-null? s2) s1) 
(else 
(let ((slcar (stream-car s1)) 
(s2car (stream-car s2))) 
(cond ((< slcar s2car) 
(cons-stream slcar (merge (stream-cdr sl) s2))) 
((> slear s2car) 
(cons-stream s2car (merge sl (stream-cdr s2)))) 
(else 
(cons-stream slcar 
(merge (stream-cdr s1) 
(stream-cdr s2))))))))) 


而 后 就 可 以 利用 merge ， 以 如 下 方式 构造 出 所 需 的 流 了 : 


(define S (cons-stream 1 (merge <??> <??>))) 


请 在 上 面 <2?> 标 记 的 位 置 填充 所 缺 的 表达 式 。 


91 最 后 一 点 并 不 容易 看 到 ， 它 依赖 于 事实 p, ,1 <P (这 里 的 pt 表示 铀 [个 素数 ) 。 像 这 样 形式 的 估计 是 很 难 建立 
的 。 欧 几 里 得 在 古代 证 明了 素数 有 无 穷 多 个 ， 其 中 证 明了 Pp。 1,1<p1 Pa … Po +1， 直 到 1851 年 都 没 人 得 到 比 这 
更 好 的 结果 ， 那 一 年 俄罗斯 数学 家 P. L. Chebyshev 证 明 出 对 于 任何 x 都 有 ps (<2p,， 这 一 结果 是 1845 年 提出 的 
一 个 猜想 ， 称 为 Bertrand 猜 想 。 在 Hardy 和 Wright 1960 的 22.3 节 可 以 找到 对 这 个 问题 的 证 明 。 
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练习 3.57 当 我 们 用 基于 add-streams 过 程 的 fibs 定 义 计 算出 第 "个 斐 波 那 契 数 时 ， 需 
要 执行 多 少 次 加 法 ?请 证 明 ， 如 果 我 们 简单 地 用 (lambda () <exp>) 实现 (delay <exp>), 
又 不 用 3.5.1 节 给 出 的 memo-proc 过 程 所 提供 的 优化 ， 那 么 所 需 的 加 法 将 会 指数 倍 地 增加 '”。 

练习 3.58 请 给 下 面 过 程 所 计算 的 流 的 一 种 解释 : 

(define (expand num den radix) 

{cons-stream 


(quotient (* num radix) den) 
(expand (remainder (* num radix) den) den radix))) 


(这 里 的 quotient 是 求 两 个 整数 的 整数 商 的 基本 函数 )。(expand 1 7 10) 会 顺序 产生 出 
哪些 元 素 ? (expand 3 8 10) 会 产生 哪些 元 素 ? 
练习 3.59 ”在 2.5.3 节 里 ， 我 们 说 明了 如 何 实现 一 个 多 项 式 算术 系统 ， 其 中 将 多 项 式 表示 
为 项 的 表 。 BATS ARIAS BE 例如 ， 将 
ce" =1+x+ 二 -+ x ny 
2 32 43 2 


x 4 
cos x =1—-—+ 


I II” 
> _ x 
' 3-2 t7 4-3-2 
表示 为 无 穷 的 流 。 我 们 把 将 级 数 ao 二 a1 x +aaz X +a 和 十 … 表 示 为 流 ， 流 的 元 素 就 是 级 数 的 系 
Bao, Ai, 42, A3, to 


a) 级 数 ao +a x+y, XP +a + ARERR: 
1 ，1 ，1 ， 
c+ax+>a x 十 一 GoX 十 一 03X + 
2 3 4 
这 里 的 c 是 任意 常数 。 请 定义 过 程 integrate~series， 它 以 一 个 表示 知 级 数 的 流 ao, a, … 
为 参数 ， 返 回 这 个 等 级 数 的 积分 中 各 个 非常 数 项 的 系数 的 流 ao， (Sa, (a, …。( 因 为 返 


回 的 结果 中 不 包含 常数 项 ， 因 此 它 不 是 逢 级 数 。 如 果 要 对 它们 使 用 integrate-series， 
我 们 可 以 用 cons 加 上 一 个 常数 项 。) 

b) 函数 x e ex 是 其 自身 的 导数 。 这 也 意味 着 e* 和 ex 的 积分 是 同一 个 级 数 ， 除 了 常数 项 之 外 。 
而 常数 项 应 该 是 ea =1。 根 据 这 种 情况 ， 我 们 可 以 按 如 下 方式 生成 e 的 级 数 : 


(define exp-series 
(cons-stream 1 (integrate-series exp-series))) 


我 们 知道 si 的 导数 是 cos ， 而 且 cos 的 导数 是 负 的 sin， 请 说 明 如 何 根据 这 些 事实 ， 生成 sin 和 cos 
RR : 


(define cosine-series 
(cons-stream 1 <??>)) 


(define sine-series 
(cons-stream 0 <??>)) 


192 这 一 练习 说 明了 按 需 调用 与 练习 3.27 所 描述 的 常规 记忆 方法 有 密切 联系 。 在 那个 练习 里 ， 我 们 利用 峰值 构造 了 
一 个 显 式 的 表 列 。 这 里 的 按 需 调用 流 能 够 有 效 地 自动 构造 出 这 种 表 列 , 将 值 存 和 人流 的 前 面 强 追 做 出 的 那 部 分 里 。 
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练习 3.60 (R13.59 BPE RRR ERAR BEZ i RAY ART Bt E 
add-streams 实现 了 。 请 完成 下 面 级 数 乘积 过 程 的 定义 ， 


(define (mul-series sl s2) 
(cons-stream <??> (add-streams <??> <??>))) 


你 可 以 利用 公式 sinx +cos2x =1， 用 练习 3.59 定 义 的 那些 级 数 检验 你 定义 出 的 过 程 。 
练习 3.61 ” 令 $ 是 一 个 常数 项 为 1 的 害 级 数 〈 练 习 3.59) ， 假 定 我 们 现在 希望 找 出 1/S HY 
数 ， 也 就 是 说 ， 找 出 一 个 级 数 X， 使 得 9 .X =1。 将 8 写成 8S=1+S8， 其 中 Sn 是 5 常数 项 后 面 的 
部 分 。 而 后 我 们 就 可 以 按 下 面 方 式 解 出 X: 
S. 
(1+Sa) - 
X +8pz ° 


换 名 话说 , XRA HAT BRR, RARBG, mA OAR E T LA Se RA RX ih 
得 到 。 请 利用 这 一 思想 写 出 一 个 过 程 ， 使 它 能 对 常数 项 为 1 的 短 级 数 5 计 算出 /S$。 你 需要 使 用 
练习 3.60 的 mu1~series 。 

练习 3.62 请 利用 练习 3.60 和 练习 3.61 的 结果 定义 一 个 过 程 div~series , KM TER 
数 的 除法 。div-series 应 该 能 对 任何 两 个 级 数 工作 ， 只 要 作为 分 母 的 级 数 具有 非 0 的 常数 项 
(如 果 它 的 常数 项 为 0，div-series 应 该 报错 ) 。 请 说 明 ， 如 何 利用 div-series 和 练习 3.59 
的 结果 产生 出 正切 函数 的 客 级 数 。 


3.5.3 流 计算 模式 的 使 用 


带 有 延 时 求 值 的 流 可 能 成 为 一 种 功能 强大 的 模拟 工具 ， 能 提供 局 部 状态 和 赋值 的 许多 效 
益 。 进 一 步 说 ， 这 种 机 制 还 能 避免 将 赋值 引入 程序 设计 语言 所 带 来 的 一 些 理论 困难 。 

流 方法 极 富有 启发 性 ， 因 为 借助 于 它 去 构造 系统 时 ， 所 用 的 模块 划分 方式 可 以 与 采用 赋 
值 、 围 绕 着 状态 变量 组 织 系统 的 方式 不 同 。 例如， 我 们 可 以 将 整个 的 时 间 序 列 (或 者 信号 ) 
作为 关注 的 目标 ， 而 不 是 去 关注 有 关 状 态 变量 在 各 个 时 刻 的 值 。 这 将 使 我 们 能 更 方便 地 组 合 
与 比较 来 自 不 同时 刻 的 状态 成 分 。 

系统 地 将 和 迭代 操作 方式 表示 为 流 过 程 

1.2.1 节 介绍 了 和 迭代 过 程 ， 这 种 工作 过 程 也 就 是 不 断 地 更 新 一 些 状态 变量 。 现 在 我 们 知道 ， 
状态 可 以 表示 为 值 的 “没有 时 间 的 ” 流 ， 而 不 是 一 组 不 断 更 新 的 变量 。 现 在 让 我 们 采用 这 一 
观点 ， 重 新 去 看 1.1.7 节 的 平方 根 过 程 。 请 回忆 一 下 ， 那 里 的 思想 就 是 生成 出 一 个 序列 ， 其 元 
素 是 x 的 平方 根 的 一 个 比 一 个 更 好 的 猜测 值 ， 采 用 的 方法 是 反复 应 用 一 个 改进 猜测 的 过 程 ; 

(define (sqrt-improve guess x) 

(average guess (/ x guess))) 


在 原来 的 sqrt 过 程 里 ， 我 们 用 某 个 状态 变量 的 一 系列 值 表 示 这 些 猜测 。 换 一 种 方式 ， 我 们 也 
可 以 生成 一 个 无 穷 的 猜测 序列 ， 从 初始 猜测 1 开始 ”: 


v3 不 能 用 1et 去 建立 局 部 变量 9uesses 的 约束 ， 因 为 9uesses 的 值 依赖 于 9uesses 本 身 。 参 见 练 习 3.603 。 
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(define (sqrt-stream x) 
(define guesses 
(cons-stream 1.0 
(stream-map (lambda (guess) 
(sqrt-improve guess x)) 
guesses) )) 


guesses) 


(display-stream (sqrt-stream 2)) 
1. 

1.5 

1.4166666666666665 
1.4142156862745097 
1.4142135623746899 


我 们 可 以 生成 出 这 个 流 中 越 来 越 多 的 项 ， 以 得 到 越 来 越 好 的 猜测 。 如 果 喜 欢 的 话 ， 我 们 也 可 
以 写 一 个 过 程 ， 使 它 能 不 断 生成 项 ， 直 至 得 到 足够 好 的 答案 为 止 ( 另 见 练习 3.64)。 
可 以 按照 同样 方式 处 理 的 另 一 个 迭代 是 生成 r 的 近似 值 ， 这 一 过 程 基于 下 面 的 交替 级 数 ， 

我 们 在 1.3.1 节 已 经 见 过 的 它 

kid 1 1 1 

47173+3577 | 
我 们 首先 生成 上 述 级 数 (各 个 奇数 的 倒数 ， 其 符号 是 交替 的 ) 之 和 的 流 ， 逐 步 取得 越 来 越 多 
的 项 之 和 (利用 练习 3.55 的 partial-sums 过程)， 并 将 得 到 的 结果 除 以 4; 


(define (pi-summands n) 
(cons-stream (/ 1.0 n) 
(stream-map ~ (pi-summands (+ n 2))))) 
(define pi-stream 
(scale-stream (partial-sums (pi-summands 1)) 4)) 


(display-stream pi-stream) 


- 666666666666667 
-466666666666667 
-8952380952380956 
-3396825396825403 
-9760461760461765 
-2837384837384844 
-017071817071818 


w wN wb Ww DH 心 
. 


这 样 就 给 出 了 一 个 逐步 逼近 7 的 流 。 这 一 逼近 收敛 得 非常 慢 ， 序 列 中 的 8 项 只 能 将 x 值 界定 
到 3.284 和 3.017 之 间 。 l 

到 现在 为 止 ， 我 们 对 状态 的 流 的 使 用 方式 与 做 状态 变量 更 新 还 没有 多 大 差别 。 但 是 ， 流 
确实 提供 了 一 些 机 会 ， 使 我 们 可 以 采用 一 些 非常 有 趣 的 技巧 。 举 例 来 说 ， 我 们 可 以 用 一 个 序 
列 加 速 器 对 流 做 一 个 变换 ， 这 种 加 速 器 可 以 将 一 个 逼近 序列 变换 为 另 一 个 新 序列 ， 该 新 序列 
也 收敛 到 与 原 序列 同样 的 值 ， 只 是 收敛 速度 快 得 多 。 
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这 种 加 速 器 中 的 一 个 应 该 归功 于 瑞士 数学 家 利 昂 哈 德 . 欧 拉 ， 这 一 加 速 器 对 于 交错 级 数 
(具有 交错 符号 的 项 的 级 数 ) 的 部 分 和 工作 得 特别 好 。 按 照 欧 拉 的 技术 ， 假 设 %, 是 原 有 的 和 序 
烈 的 第 ”项 ， 那 么 加 速 序列 的 形式 就 是 : 

S, -SS 
S,,~25,+58,,, 
也 就 是 说 ， 如 果 原 序列 采用 一 个 值 的 流 表 示 ， 变 换 后 的 序列 可 以 如 下 给 


(define (euler-transform s) 


(let (({s0 (stream-ref s 0)) ; Sy 
(sl (stream-ref s 1)) ; Sn 

(s2 (stream-ref s 2))) {Spar 
(cons-stream (- s2 (/ (square (- s2 s1)) 


(+ s0 (* -2 s1) s2))) 
(euler-transform (stream-cdr s))}))) 


我 们 可 以 用 对 x 的 至 近 序 列 来 说 明 欧 拉 加 速 器 的 效果 : 
(display-stream (euler-transform pi-stream) ) 

- 166666666666667 

-1333333333333337 

-1452380952380956 

-13968253968254 

-1427128427128435 

-1408813408813416 

-142071817071818 

.1412548236077655 


WwW WwW ww WwW Ww 


还 可 以 做 得 更 好 些 ， 因 为 我 们 甚至 可 以 去 加 速 由 前 面 的 加 速 得 到 的 序列 ， 或 者 递归 地 加 
速 下 去 ， 如 此 等 等 。 也 就 是 说 ， 我 们 可 以 构造 出 一 个 流 的 流 (一 种 我 们 称 为 表 列 的 结构 )， 其 
中 的 每 个 流 都 是 前 一 个 流 的 变换 结果 : 

{define (make-tableau transform s) 

(cons-stream s 


(make-tableau transform 
(transform s)))) 


这 样 得 到 的 表 列 具有 如 下 形式: 


最 后 取出 表 列 中 每 行 的 第 一 项 ， 这 样 就 可 以 形成 一 个 序列 : 
(define (accelerated-sequence transform s) 


(stream-map stream-car 
(make-tableau transform s))) 


BAT AT DA FAB UE AY PES RR ak — “RI a” : 
(display-stream (accelerated-sequence euler-transform 
pi-stream) ) 


Mw 
in 
x 
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- 166666666666667 
»142105263157895 
»141599357319005 
©1415927140337785 
-1415926539752927 
-1415926535911765 
-141592653589778 


WwW Ww Ww Ww Ww A 
. 


结果 非常 令 人 振奋 。 取 出 序列 的 8 项 ， 就 产生 出 的 直至 14 位 数字 的 正确 值 。 如 果 我 们 用 的 是 
原来 的 逼近 序列 ， 那 么 将 需要 计算 109 数 量 级 的 项 才能 达到 同样 精确 程度 (也 就 是 说 ， 需 要 展 
开 足 够 多 的 项 ,使 一 个 项 的 绝对 值 小 于 10 “) 。 如 果 不 使 用 流 ,我 们 也 可 以 实现 这 些 加 速 技术 ， 
但 流 的 描述 形式 特别 优美 而 又 方便 ， 因 为 整个 状态 序列 就 像 一 个 数据 结构 一 样 ， 可 以 通过 一 
集 统一 的 操作 直接 地 随意 使 用 。 

练习 3.63 Louis Reasoner 问 为 什么 SGIt- _stream 过 程 没 采用 下 述 更 加 直截了当 的 形式 
写 出 ， 其 中 根本 不 用 局 部 变量 guesses: 


(define (sqrt-stream x) 
(cons-stream 1.0 
(stream-map (lambda (guess) 
(sqrt-improve guess x)) 
(sqrt-stream x)))) 

Alyssa P. Hacker 对 所 说 过 程 的 这 个 版 本 的 评价 是 ， 它 过 于 低 效 ， 因 为 其 中 执行 了 一 些 多 余 的 
操作 。 请 解释 Alyssa 的 回答 。 如 果 我 们 的 Gelay 直接 采用 (lambda () <exp>) 实现 ， 而 不 
用 memo-proc 所 提供 的 优化 ( 见 3.5.1 节 )， 这 两 个 版 本 在 效率 方面 还 会 有 差异 吗 ? 

练习 3.64 ”请 写 出 过 程 stream-1imit， 它 以 一 个 流 和 一 个 数 ( 当 作 容许 误差 ) (FAS 
数 ， 检 查 这 个 流 ， 直 至 发 现 连 续 两 项 之 差 的 绝对 值 小 于 给 定 容许 误差 。 这 时 该 过 程 返回 后 一 
个 项 。 利 用 这 一 过 程 ， 我 们 就 可 以 用 下 面 方式 计算 出 满足 给 定 误差 的 平方 根 : 

(define {sqrt x tolerance) 


(stream-limit (sqrt-stream x) tolerance)) 


练习 3.65 FARR: 


1 1 1 
In2=1- staat 
参照 上 面 计算 r 的 方式 ， 计 算出 逼近 2 的 自然 对 数 的 三 个 序列 。 这 些 序列 的 收敛 速度 怎么 样 ? 


在 2.2.3 节 里 ， 我 们 看 到 过 如 何 通过 序列 范 型 去 处 理 传统 的 嵌 套 循环 ， 将 其 作为 定义 在 序 
对 的 序列 上 的 计算 过 程 。 如 果 将 这 一 技术 推广 到 无 穷 流 ， 我 们 就 可 以 写 出 一 些 很 不 容易 用 循 
环 表示 的 程序 ， 因 为 要 想 那 样 做 ， 就 必须 对 无 穷 集合 做 “循环 ”。 

举例 说 ， 假 定 我 们 希望 推广 2.2.3 节 的 Prime-sum-Pairs 过 程 ， 生 成 所 有 整数 序 对 C, j) 
的 流 ， 其 中 有 i <j 而 且 i +j 是 素数 。 如 果 int-pairs 是 所 有 满足 i<j 的 整数 序 对 (i, j) 的 序列 ， 
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那么 我 们 的 需求 就 很 简单 T: 
(stream-filter (lambda (pair) 
(prime? (+ (car pair) (cadr pair)))) 
int-pairs) 
现在 问题 就 转化 为 流 int-pairs 的 生成 。 更 一 般 些 ,假定 我 们 现在 有 了 两 个 流 $ =(S) 和 
T=(T)， 设 想 下 面 的 无 穷 矩 形 阵列 : 
(So, To) (So Ti) (So, 7T2) ... 
(Si, To) (ST) (Si, 72)... 
(S2, To) (S23 Ti) (Sx, T3) 


我 们 需要 的 是 生成 一 个 流 ， 其 中 包含 了 在 这 一 阵列 中 位 于 对 角 线 及 其 上 方 的 所 有 序 对 ， 即 如 
下 的 这 些 序 对 ; 
(So To) (SoTi) (So T) ~ 
($1, T) ($, T) ... 
(Sa T3) ... 


(如 果 S 和 7 都 是 整数 的 流 ， 那 么 这 就 是 我 们 所 需要 的 int~pPairs 流 。) 
我 们 把 这 个 一 般 性 的 流 称 为 (pairs S T)， 并 认为 它 由 三 部 分 组 成 : 序 对 (So To, 第 
一 行 里 的 所 有 其 他 序 对 ， 以 及 其 余 的 序 对 '”， 
(So, To) | (So, Ti) (So, T23) 
(S, Ti) (i, T3) ... 
($2, Ta) ... 


可 以 看 出 ， 这 一 分 解 的 第 三 部 分 (那些 不 在 第 一 行 的 序 对 ) 正 是 (递归 地 ) 由 (stream-cdr 
S) 和 (stream-cdr T) 形成 的 那些 序 对 。 还 可 以 看 到 其 第 二 部 分 (第 一 列 其 余 序 对 ) 就 
是 : 


(stream-map (lambda (x) (list (stream-car s) x)) | 
(stream-cdr t)) 


这 样 我 们 就 可 以 按照 如 下 方式 构成 所 需 的 序 对 流 了 : 
(define (pairs s 七 ) 
(cons-stream 
(list (stream-car s) (stream-car t)) 
(< 按 某 种 方式 组 合 > 
(stream-map (lambda (x) (list (stream-car s) x)) 
(stream-cdr t)) 

(pairs (stream-cdr s) (stream-cdr t))))) 


为 了 完成 这 一 过 程 ， 我 们 还 必须 选择 一 种 方式 ， 通 过 它 组 合 起 两 个 内 部 的 流 。 一 种 想法 


194 正 像 2.2.3 节 一 样 ， 我 们 在 这 里 将 整数 的 序 对 表示 为 两 个 元 素 的 表 ， 而 不 是 表示 为 Lisp 的 序 对 。 
95 有 关 为 什么 选择 这 种 分 解 的 考虑 ， 请 参考 练习 3.68 。 
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是 采用 与 2.2.1 节 中 append 过 程 类 似 的 流 过 程 : 
(define (stream-append sl s2) 
(if (stream-null? s1) 
s2 
(cons-stream (stream-car sl) 
(stream-append (stream-cdr sl) s2)))) 

然而 ， 对 于 无 穷 流 而 言 ， 这 一 做 法 完全 不 适用 ， 因 为 它 要 在 取 到 第 一 个 流 的 所 有 元 素 之 后 ， 
才 去 结合 进 第 二 个 流 的 元 素 。 特 别 是 如 果 我 们 试图 用 如 下 方式 生成 所 有 正 整 数 的 序 对 : 


(pairs integers integers) 


结果 得 到 的 流 将 会 试图 首先 生成 出 第 一 个 元 素 等 于 1 的 所 有 序 对 ， 因 此 也 就 根本 不 会 产生 出 以 
其 他 整数 作为 第 一 个 元 素 的 序 对 了 。 

为 了 处 理 无 穷 的 流 ， 我 们 需要 设计 另 一 种 组 合 顺 序 ， 以 保证 只 要 这 个 程序 运行 的 时 间 足 
够 长 ， 那 么 最 终 就 能 得 到 流 中 的 每 一 个 元 素 。 做 到 这 一 点 的 一 种 很 美妙 的 方式 是 采用 下 面 的 
interleave tf”; l 


(define (interleave s1 s2) 
{if (stream-null? s1) 
s2 
(cons-stream (stream-car 81) 
(interleave s2 (stream-cdr s1))))) 


因为 interleave 交 替 地 从 两 个 流 中 取 元 素 ， 这 样 ， 即 使 第 一 个 流 是 无 穷 的 ， 第 二 个 流 里 每 
个 元 素 最 终 都 能 在 这 样 交错 得 到 的 流 里 有 自己 的 位 置 。 
现在 ， 我 们 已 经 可 以 通过 如 下 方式 生成 所 需 的 流 了 ，: 


(define (pairs s 七 ) 
(cons-stream 
(list (stream-car s) (stream-car 七 ) ) 
(interleave 
(stream-map (lambda (x) (list (stream-car s) x)) 
(stream-cdr t)) 
(pairs (stream-cdr s) (stream-cdr t))))) 
练习 3.66 ”请 仔细 检查 流 (pairs integers integers )， 你 能 对 各 个 序 对 放 人 在 流 
中 顺序 做 出 任何 一 般 性 的 说 明 吗 ? 比如 说 ， 在 序 对 (1，100) 之 前 大 约 有 多 少 个 序 对 ? 在 序 对 
(100, 100) 之 前 呢 ? (如 果 你 能 在 这 里 做 出 精确 的 数学 描述 ， 那 当然 更 好 了 。 但 如 果 觉 得 很 
难 做 好 定量 的 回答 ， 你 也 完全 不 必 感 到 诅 形 。) 
练习 3.67 ”请 修改 过 程 pairs, 使 (pairs integers integers) 能 生成 所 有 整数 
序 对 心态 的 流 (不 考虑 条 件 i <j)。 提 示 : 你 需要 混合 进去 另 一 个 流 。 
练习 3.68 Louis Reasoner 认 为 从 上 述 三 个 部 分 出 发 构造 流 ， 是 把 事情 弄 得 过 于 复杂 了 。 
他 建议 不 要 把 (So, T) 与 第 一 行 的 其 他 部 分 分 开 ， 而 是 直接 对 整个 这 一 行 工 作 ， 采 用 下 面 方 
式 : 


196 这 一 组 合 顺序 所 需 的 性 质 可 以 精确 地 陈述 如 下 ， 应 该 有 一 个 两 参数 的 函数 /， 使 对 应 于 第 一 个 流 的 元 素 ; 和 第 
二 个 流 的 元 素 / 的 那个 序 对 出 现 输出 流 中 ， 作 为 其 中 的 第 fi 站 个 元 素 。 使 用 interleave 达 到 这 一 效果 的 
技巧 是 David Turner 教 给 我 们 的 ， 他 在 语言 KRC (Turner 1981) 里 使 用 了 这 种 技术 。 
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(define (pairs s 七 ) 
(interleave 
(stream~map (lambda (x) (list (stream-car S) x)) 
t) 


(pairs (stream-cdr s) (stream-cdr t)))) 


这 样 做 能 行 吗 ? 请 考虑 一 下 ， 如 果 我 们 采用 Louis 对 pairs 的 定义 去 求 值 (pairs integers 
integers )， 那 会 出 现 什么 情况 。 

练习 3.69 ”请 写 一 个 过 程 triples ， 它 以 三 个 无 穷 流 $ 、T 和 U0 为 参数 ， 生 成 三 元 组 (S, 
T, U) 的 流 ， 其 中 要 求 有 i<j 和 。 利 用 triples 生 成 所 有 正 的 毕 达 哥 拉 斯 三 元 组 的 流 ， 也 就 
是 说 ， 生 成 所 有 的 三 元 组 (i, j, 及， 其 中 i<j， 而 且 有 六 + 六 = 尼 。 

练习 3.70 ”如果 能 够 让 生成 的 流 中 的 序 对 按照 某 种 有 用 的 顺序 排列 ， 而 不 仅仅 是 顺便 地 
任 由 某 种 实际 交错 过 程 产 生 ， 也 可 能 是 很 有 价值 的 事情 。 问 题 是 要 定义 好 一 种 方式 ， 使 我 们 
能 够 说 某 个 序 对 “小 于 ” 另 一 个 ， 而 后 就 可 以 采用 某 种 类 似 于 练习 3.56 里 的 merge 过 程 的 技 
术 了 。 完 成 此 事 的 一 种 方式 是 定义 一 个 “权重 函数 ”W(i, 站 ， 并 规定 当 W(ii, j) <W, ja) 
id, j) BDF (i, jp))。 请 写 出 过 程 merge-~weighted， 它 很 像 nerge, 但 还 多 了 一 个 参 
数 weight ， 这 是 一 个 用 于 计算 序 对 权重 的 过 程 ， 用 于 确定 元 素 在 归并 所 产生 的 流 中 出 现 的 顺 
序 ”。 利 用 这 个 函数 将 pairs 推 广 为 过 程 weighted-pairs， 这 个 过 程 的 参数 包括 两 个 流 ， 
还 有 一 个 用 于 计算 权重 函数 的 过 程 。 它 按照 给 定 的 权重 顺序 生成 出 序 对 的 流 。 请 用 你 的 过 程 
生成 出 : 

a) 所 有 正 整 数 序 对 G, +) 的 流 ， 其 中 要 求 1 <j， 按 照 和 数 i+j 的 顺序 排列 。 

b 所 有 正 整 数 序 对 (G, D 的 流 ， 其 中 要 求 i <j, 而 且 这 里 的 i 或 者 /可 以 被 、3 或 者 5 整除 ， 
这 些 序 对 按照 和 数 2 +3j+5ij 的 顺序 排列 。 

练习 3.71 可 以 以 多 于 一 种 方式 表达 为 两 个 立方 数 之 和 的 数 有 时 被 称 为 Ramanujan 数 ， 以 
纪念 数学 家 Srinivasa Ramanujan'”。 序 对 的 有 序 流 为 计算 这 些 数 的 问题 提供 了 一 种 非常 优美 
的 解决 方案 。 为 了 能 够 找到 所 有 能 以 两 种 不 同方 式 写 为 两 个 立方 之 和 的 数 ， 我 们 只 需要 以 和 
e+ PME HAE ( 见 练习 3.70) 顺序 地 生成 整数 序 对 的 流 ， 而 后 在 这 个 流 里 寻找 具有 同样 权 
重 的 两 个 前 后 相 邻 排列 的 序 对 。 请 写 一 个 过 程 生成 Ramanujan 数 。 第 一 个 这 样 的 数 是 1729 ， 
随后 的 5 个 数 是 什么 ? 

练习 3.72 ”请 采用 类 似 于 练习 3.71 的 方式 ， 生 成 出 所 有 满足 下 面条 件 的 数 的 流 : 这 些 数 都 
能 够 以 三 种 不 同方 式 表 示 为 两 个 平方 数 之 和 (并 请 显示 出 它们 的 分 解 形式 )。 


将 流 作为 信号 

在 开始 有 关 流 的 讨论 时 ， 我 们 将 它们 描述 为 信号 处 理 系 统 里 的 “信号 ”在 计算 中 的 对 应 
物 。 事 实 上 ， 我 们 可 以 采用 流 ， 以 一 种 非常 直接 的 方式 为 信号 处 理 系 统 建 模 ， 用 流 的 元 素 表 

7 需要 对 权重 函数 提出 以 下 要 求 ， 当 沿 着 序 对 阵列 的 任何 一 行 向 右 ， 或 者 沿 着 任何 一 列 向 下 时 ， 序 对 的 权重 一 


定 增 加 。 
198 引用 哈代 有 关 Ramanujan 的 传略 (Hardy 1921 ):“ 那 是 Littlewood 先 生 (我 认为 ) 说 的 ， ‘每 一 个 正 整 数 都 是 


他 的 朋友 ' 。 记 得 有 一 次 我 去 看 他 ， 他 当时 正 因 病 住 在 Putney 。 我 刚刚 坐 的 出 租车 号 码 是 1729 ， 我 说 这 个 数 
实在 没 趣 ， 但 愿 这 不 是 一 个 坏 兆 头 。 他 回答 说 :“ 不 ， 这 是 一 个 非常 有 趣 的 数 ， 它 是 能 以 两 种 不 同 方式 表达 
为 两 个 立方 数 之 和 的 最 小 的 数 。” 利用 带 权 数 的 序 对 生成 Ramanujan 数 的 技巧 是 Charles Leiserson 告 诉 我 们 的 。 
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示 一 个 信号 在 顺序 的 一 系列 时 间 间 隔 上 的 值 。 举 例 来 说 ， 我 们 可 以 实现 一 个 积分 器 或 者 求 和 
器 ， 对 于 输入 流 x =(%i)， 初 始 值 C 和 一 个 小 增 量 dt， 累 积 下 面 的 和 : 


i 


S =C+9 x, dt 


并 返回 值 S$ =(S) 的 流 。 下 面 的 Integral 过 程 使 我 们 回想 起 前 面 给 出 的 整数 流 的 “ 隐 式 风格 
的 ”定义 〈 见 3.5.2 节 )。 


(define (integral integrand initial-value dt) 
(define int 
(cons-stream initial-value 
(add-streams (scale-stream integrand dt) 
int))) 

int) 
图 3-32 是 对 应 于 integral 过 程 的 信号 处 理 系统 的 一 个 图 示 。 输 入 流 经 过 dt 做 尺度 变换 后 送 给 
一 个 加 法 器 ， 加 法 器 的 输出 又 重新 送 回 同一 个 加 法 器 。 位 于 int 定 义 里 的 自 引用 ， 在 图 中 的 
反应 就 是 从 加 法 器 的 输出 到 其 一 个 输入 的 反馈 循环 。 


initial-value 
t 


i 
上 Integral 


图 3-32 将 integral 过 程 看 作 信 号 处 理 系统 


练习 3.73 ”我 们 可 以 用 流 表示 电流 或 者 电压 在 时 间 序 列 上 的 值 ， 用 以 模拟 电子 线路 。 举 
例 说 ,假定 有 一 个 RC 电路 ， 它 由 一 个 阻 值 为 R 的 电阻 和 一 个 容量 为 C 的 电容 器 串联 而 成 。 该 电 
路 对 输入 电流 i 的 电压 响应 v 由 图 3-33 里 的 公式 表示 ， 其 结构 由 对 应 的 信号 流 图 表示 。 


十 v — 
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图 3-33 一 个 RC 电 路 与 关联 的 信号 流 图 
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请 写 出 一 个 过 程 RC 模拟 这 个 电路 。RC 应 该 以 R、C 和 dt 的 值 作为 输入 ， 它 应 返回 一 个 过 程 ， 
该 过 程 的 输入 是 一 个 表示 电流 的 流 i 和 一 个 表示 电容 器 初始 电压 值 的 vo , 输出 是 表示 电压 的 流 v。 
例如 ， 你 应 该 能 通过 求 值 (define RC1 (RC 5 1 0.5)), 用 RC 模拟 一 个 RC 电路 ， 其 中 
R=5 欧 姆 ,C =1 法 ， 以 0.5 秒 作为 时 间 步 长 。 这 一 表达 式 将 定义 出 一 个 过 程 RC1 ， 它 以 一 个 表 
示 电 流 的 时 间 序 列 的 流 和 电容 器 的 一 个 初始 电压 量 为 参数 ， 能 产生 出 表示 电压 的 输出 序列 。 


练习 3.74 Alyssa P. Hacker 正 在 设计 一 个 系统 ， 以 处 理 来 自 物理 传感器 的 信号 。 她 希望 
得 到 的 一 个 重要 特性 就 是 一 个 描述 了 输入 信号 过 零点 的 信号 。 也 就 是 说 ， 在 输入 信号 从 负 值 
变 成 正 值 时 这 个 结果 信号 应 该 是 +1， 而 当 输 入 信号 由 正 变 负 时 它 应 该 是 -1， 其 他 时 刻 值 为 0 
(0 输入 的 符号 也 假定 为 正 )。 例 如 ， 一 个 典型 的 输入 信号 及 其 相关 的 过 零点 信和 号 应 该 是 : 
..l 2 1.5 1 0.5 -0.1 -2 -3 -2 -0.5 0.2 3 4 
.. 0 0 0 0 0 -1 0 0 0 0 1 0 0... 
在 Alyssa 的 系统 里 ， 来 自传 感 器 的 信号 用 流 sense-data 表 示 ， 流 zero-crossings 是 对 应 
的 过 零点 流 。Alyssa 首 先 写 出 一 个 过 程 sign-change-~detector， 它 以 两 个 值 作为 参数 ， 
比较 它们 的 符号 产生 出 适当 的 9 、1 或 者 一 1。 而 后 她 用 下 面 方式 构造 出 过 零点 流 : 
(define (make-zero-crossings input-stream last-value) 
(cons-stream 
(sign-change-detector (stream-car input-stream) last-value) 


(make-zero-crossings (stream-cdr input-stream) 
(stream-car input-stream) ))) 


(define zero-crossings (make-zero-crossings sense-data 0)) 


Alyssa 的 上 司 Eva Lu Ator 走 过 ， 提 出 说 这 一 程序 与 下 面 的 程序 差不多 ， 其 中 采用 了 取 自 练习 
3.50 的 stream-map 的 推广 版 本 : 


(define zero-crossings 
(stream-map sign-change-detector sense-data <expression>) ) 


请 填充 这 里 缺少 的 <expression> ， 完 成 这 一 程序 。 

练习 3.75 不幸 的 是 ， 练 习 3.74 中 Alyssa 的 过 零点 检查 程序 被 证 明 效果 不 好 ， 因 为 来 自传 
感 器 的 噪声 信号 将 导致 一 些 虚 假 的 过 零点 。 硬件 专家 Lem E. Tweakit 建 议 Alyssa 对 信号 做 平滑 ， 
在 提取 过 零点 之 前 过 滤 掉 噪声 。Alyssa 接 受 了 他 的 建议 ,决定 先 做 每 个 感应 值 与 前 一 感应 值 
的 平均 值 ， 而 后 在 这 样 构造 出 的 信号 里 提取 过 零点 。 她 将 这 一 问题 解释 给 自己 的 助手 Louis 
Reasoner ， 让 他 实现 这 一 想法 。Louis 将 Alyssa 的 程序 修改 为 下 面 样子 : 

(define (make-zero-crossings input-stream last-value) 

(let ((avpt (/ (+ (stream-car input-stream) last-value) 2))) 
(cons-stream (sign-change-detector avpt last-value) 


(make-zero-crossings (stream-cdr input-stream) 
avpt)))) 


这 并 没有 正确 实现 Alyssa 的 计划 。 请 找 出 Louis 留 在 其 中 的 错误 ， 改 正 它 ， 但 不 要 改变 程序 的 
结构 。( 提 示 : 你 将 需要 增加 make-zero-crossings 的 参数 的 个 数 。) 

练习 3.76 Eva Lu Ator 对 练习 .75 中 Louis 的 计划 有 一 个 批评 意见 ， 说 他 写 出 的 程序 不 够 
模块 化 ， 因 为 其 中 的 平滑 运算 和 过 零点 提取 操作 混在 一 起 了 。 举 例 说 ， 如 果 AlySSa 找 到 了 另 一 
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种 改善 输入 信和 号 的 更 好 方法 ， 不 应 该 修改 这 里 的 提取 程序 。 请 帮助 Louis 5— it smooth, 
它 以 一 个 流 为 输入 ， 产 生出 另 一 个 流 ， 其 中 的 每 个 元 素 都 是 输入 流 中 上 顺序 的 两 个 元 素 的 平均 
值 。 而 后 以 smooth 作为 部 件 ， 以 更 模块 化 的 方式 实现 这 个 过 零点 检测 器 。 


3.5.4 流 和 延 时 求 值 


前 一 节 里 的 最 后 一 个 过 程 integral ， 展 示 了 我 们 可 以 怎样 用 流 去 模拟 包含 反馈 循环 的 
言 号 处 理 系统 。 图 3-32 中 所 示 的 加 法 器 的 反馈 循环 ， 是 通过 将 integral 的 内 部 流 int 通 过 它 
本 身 定义 的 方式 去 模拟 的 : 
(define int 
(cons-stream initial-value 
(add-streams (scale-stream integrand dt) 
int))) 


解释 器 处 理 这 种 隐 式 定义 的 能 力 依赖 于 delay， 它 被 结合 在 cons-stream 里 面 。 如 果 没 有 
这 个 delay， 解 释 器 就 不 可 能 在 完成 对 cons-stream 的 两 个 参数 的 求 值 之 前 构造 出 int， 
为 这 将 要 求 int 已 经 定义 好 。 一 般 说 ， 在 利用 流 去 模拟 包含 循环 的 信号 处 理 系统 时 ，delay 
是 至 关 重 要 的 。 如 果 设 有 delLay， 我 们 的 模拟 就 不 得 不 这 样 描述 ， 其 中 要 求 对 每 个 信号 处 理 
部 件 的 输入 都 能 在 产生 输出 之 前 完成 求 值 。 这 也 就 完全 把 循环 排除 在 外 了 。 

但 是 ， 对 于 带 有 循环 的 系统 的 流 模拟 ， 除 了 cons-stream 所 提供 的 “隐藏 的 ”delay 
之 外 ， 可 能 还 需要 直接 使 用 delay。 举 个 例子 ， 图 3-34 显 示 了 一 个 解 微分 方程 dy/dt =f(y) 的 
信和 号 处 理 系 统 ， 其 中 的 f 是 一 个 给 定 函 数 。 图 中 显示 了 一 个 映射 部 件 将 函数 应 用 于 其 输入 信 
号 的 情况 ， 它 也 连接 在 一 个 反馈 循环 里 ， 循 环 中 包含 一 个 积分 器 ， 连 接 方 式 很 像 在 模拟 计算 
机 中 实际 用 于 求解 这 种 方程 的 电路 形式 。 


图 3-34 一 个 求解 方程 dy/d = Fy) 的 “模拟 计算 机 电路 ” 
假定 给 了 y 的 一 个 输入 值 yo， 我 们 可 能 企图 采用 下 面 过 程 模拟 这 个 系统 : 


(define (solve f y0 dt) 
(define y (integral dy y0 dt)) 
(define dy (stream-map f y)) 
Y) 
可 是 这 一 过 程 无 法 工作 ， 因 为 在 sol1ve 的 第 一 行 里 对 integral 的 调用 要 求 Qy 已 经 定义 ， 但 
这 是 到 solve 的 第 二 行 才 做 的 事情 。 
换 句 话说 ， 这 一 定义 的 意图 确实 是 有 意义 的 ， 因 为 从 原则 上 说 ， 我 们 有 可 能 在 不 知道 dy 
的 情况 下 开始 生成 y。 实 际 上 ，integzal 和 其 他 的 许多 流 都 有 类 似 cons-~stream 的 这 种 性 
质 ， 我 们 可 以 在 只 有 参数 的 一 部 分 信息 的 情况 下 ， 开 始 生 成 出 输出 流 的 有 关 部 分 。 对 于 
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integral ， 输 出 流 的 第 一 个 元 素 由 initial-value 描 述 ， 这 样 我 们 就 可 以 在 不 求 值 积分 
对 象 dy 的 情况 下 生成 出 输出 流 里 的 第 一 个 元 素 。 一 旦 我 们 知道 了 Y 的 第 一 个 元 素 ， 位 于 
solve 第 二 行 的 stream-map 就 可 以 开始 工作 ， 生 成 出 dy 的 第 一 个 元 素 ， 这 样 就 可 以 生成 出 
Y 的 下 一 个 元 素 ， 并 可 以 这 样 继 续 下 去 了 。 
为 了 利用 这 种 想法 ， 我 们 就 需要 重新 定义 integral ， 将 被 积 的 流 看 作 一 个 延 时 参数 。 
integral 将 在 需要 生成 输出 流 第 一 个 元 素 之 后 的 元 素 时 force 积 分 对 象 的 求 值 ; 
(define (integral delayed-integrand initial-value dt) 
(define int 
(cons-stream initial-value 
(let ((integrand (force delayed-integrand) )) 
(add-streams (scale-stream integrand dt) 
int)))) 
int) 
现在 我 们 只 需 在 Y 的 定义 里 延 时 求 值 dy ， 就 可 以 实现 solve 过 程 了 '”: 
(define (solve f y0 dt) 
(define y (integral (delay dy) y0 dt)) 
(define dy (stream-map f y)) 
y) 
一 般 而 言 ，integral 的 每 个 调用 者 现在 都 必须 delay 其 被 积 参 数 。 下 面 是 展示 solve 过 程 
工作 情况 的 例子 ， 希 望 在 = 1 处 ， 初 始 条 件 为 y(0) = 1 的 情况 下 ， 计 算 微 分 方程 dy/dt =y 的 解 ， 


这 将 计算 出 近似 值 e = 2.718, 
(stream-ref (solve (lambda (y) y) 1 0.001) 1000) 
2.716924 


练习 3.77 ” 上面 所 用 的 ijntegral 过 程 类 似 于 在 3.5.2 节 里 整数 无 穷 流 的 “ 隐 式 ”定义 。 
换 一 种 方式 ， 我 们 也 可 以 给 出 的 另 一 个 定义 ， 它 更 像 integers-starting-from (也 见 
3.5.25); 


(define (integral integrand initial-value dt) 
(cons-stream initial-value 
(if (stream-null? integrand) 

the-empty-stream 

(integral (stream-cdr integrand) 
(+ (* dt (stream-car integrand) ) 

initial-value) 

dt)))) 


在 用 于 带 循 环 的 系统 时 ， 这 个 过 程 有 着 与 开始 integral 版 本 一 样 的 问题 。 请 修改 这 个 过 程 ， 
使 它 将 integrand 看 作 延 时 参数 ， 以 便 能 用 于 上 述 的 soLlve 过 程 。 
练习 3.78 ”现在 考虑 设计 一 个 信号 处 理 系统 ， 研 究 齐 次 二 阶 线性 微分 方程 


2 
Gy _ gD _ py no 
dt df 


199 这 一 过 程 并 不 保证 能 在 所 有 Scheme 实现 中 工作 ， 但 在 每 一 个 实现 中 ， 都 有 它 的 一 个 简单 变形 可 以 工作 。 问 题 
出 在 Scheme 实现 中 对 内 部 定义 的 处 理 方式 的 细微 差异 上 (参见 4.1.6 节 ) 。 
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输出 流 模 拟 y ， 它 由 一 个 包含 循环 的 网 络 生 成 。 这 是 因为 d42y/dz 的 值 依赖 于 7 和 dy/dt 的 值 ， 而 它 
们 又 都 由 被 积 式 d?y/df? 所 确定 。 图 3-35 显 示 了 我 们 希望 去 编码 的 图 形 。 请 写 出 一 个 过 程 
solve-2nd， 它 以 常数 4、b 和 dt，y 的 初始 值 o 和 dyo， 以 及 dy/dt 为 参数 ， 生 成 由 的 一 系列 值 


t--- 5 


图 3-35 求解 二 次 线性 微分 方程 的 信号 流 图 ， 
练习 3.79 ”请 推广 练习 3.78 里 写 出 的 过 程 solve-2nd ， 使 之 能 用 于 求解 一 般 的 二 次 微分 


方程 4 ydf =f(dy/dt, y), 
练习 3.80 $BRLC 电路 由 一 个 电阻 、 一 个 电容 器 和 一 个 电感 串联 组 成 ， 如 图 3-36 所 示 。 


如 果 R、L 和 C 分 别 是 电路 里 的 电阻 值 、 电 容量 和 电感 量 ， 那 么 由 三 个 部 件 间 的 电压 (v) 和 电流 


(D 关系 由 下 面 方程 描述 : 


图 3-36 一 个 申 行 RLC 电 路 


电路 连接 导致 下 面 的 关系 : 
ir=i = —ic ` 


Vve =VL VR 
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请 组 合 这 些 方程 ， 证 明 电路 的 状态 (vi) 可 以 由 以 下 微分 方程 描述 : 


de _ i 
d C 
di - 工 R; 
d LE L' 


表示 这 一 微分 方程 系统 的 信号 流 图 如 图 3-37 所 示 。 


scale: —R/L 


图 3-37 求解 串 行 RLC 电 路 的 信号 流 图 


请 写 出 一 个 过 程 RLC ， 它 以 电路 的 R、L、C 和 时 间 增 量 df 为 参数 ， 按 类 似 于 练习 3.73 中 过 
程 RC 的 方式 ，RLC 应 该 生成 一 个 过 程 ， 该 过 程 以 状态 变量 的 初始 值 vco 和 io 为 参数 ， 生 成 出 状 
态 vc 和 冯 的 流 的 一 个 序 对 (用 cons)。 利 用 RLC 生 成 出 一 对 流 ， 模 拟 一 个 RLC 电路 的 行为 ， 其 
中 R=1 欧 , C=0.2 法 , L=18, dt=0.1%, MMA, OR, veo =10 伏 特 。 


规范 求 值 序 

本 节 中 的 实例 说 明 ， 显 式 使 用 delay 和 force 能 够 提供 很 大 的 编程 灵活 性 ， 但 同样 实例 
也 显示 出 这 种 做 法 可 能 如 何 导致 程序 变 得 更 加 复杂 。 举 例 来 说 ， 新 的 1ntegral 过 程 给 了 我 
们 模拟 带 有 循环 的 系统 的 能 力 ， 但 现在 我 们 就 必须 记 住 ， 调 用 integral 时 必须 用 一 个 延 时 
参数 ， 每 个 使 用 integral 的 过 程 都 必须 注意 这 一 问题 。 从 效果 上 看 ， 我 们 已 经 构造 出 了 两 
类 过 程 ， 常规 的 过 程 和 要 求 延 时 参数 的 过 程 。 一 般 说 ， 如 果 创 建 了 不 同 种 类 的 过 程 ， 就 将 迫 
使 我 们 同时 去 创建 不 同 种 类 的 高 阶 过 程 ”。 


200 这 是 常规 强 类 型 语言 (如 Pascal) 在 处 理 高 阶 过 程 时 所 遇 到 的 困难 情况 在 Lisp 里 的 一 种 小 小 反应 。 在 那些 语 
言 里 ， 程 序 员 必须 刻画 每 个 过 程 的 参数 和 结果 的 数据 类 型 ， 数 、 逻 辑 值 、 序 列 等 等 。 因 此 我 们 就 无 法 表述 某 
些 抽象 ， 例 如 用 一 个 如 stream-map 那 样 的 高 阶 过 程 “ 将 给 定 过 程 Proc 映 射 到 一 个 序列 里 的 每 个 元 素 "。 相 
反 ， 我 们 将 需要 对 每 种 参数 和 结果 数据 类 型 的 不 同 组 合 定义 不 同 的 映射 过 程 ， 各 自 应 用 于 特定 的 Proc 。 在 
出 现 了 高 阶 函数 的 情况 下 ， 维 持 一 种 实际 的 “数据 类 型 ”概念 就 变 成 了 一 个 很 困难 的 问题 。 语 言 ML 阐明 了 
处 理 这 一 问题 的 一 种 方法 (Gordon, Milner, and Wadsworth 1979) ， 其 中 的 “多 态 数据 类 型 ”包含 着 数据 类 型 
间 高 阶 变换 的 模式 。 这 就 使 程序 员 不 必 显 式 声 明 ML 里 的 大 部 分 过 程 的 数据 类 型 。ML 包 含 一 种 “类 型 推导 ” 
机 制 ， 用 于 从 环境 中 归结 出 新 定义 的 过 程 的 数据 类 型 。 
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为 了 避免 需要 两 类 不 同 过 程 ， 一 种 方式 是 让 所 有 过 程 都 用 延 时 参数 。 我 们 可 以 采纳 一 种 
求 值 模型 ， 其 中 所 有 过 程 参数 都 自动 延 时 ， 只 有 在 实际 需要 它们 的 时 候 (例如 ， 当 基本 操作 
需要 它们 的 时 候 ) 才 强 迫 参数 求 值 。 这 样 做 ,就 把 我 们 的 语言 转 到 了 采用 规范 序 的 方式 ， 在 
1.1.5 节 介绍 求 值 的 代 换 模型 时 曾 第 一 次 介绍 过 这 一 概念 。 转 到 规范 序 求 值 ， 能 得 到 一 种 简化 
延 时 求 值 使 用 方式 的 统一 的 优雅 途径 ， 如 果 我 们 关心 的 只 是 流 处 理 ， 这 将 是 一 种 应 该 采用 的 
非常 自然 的 策略 。 在 研究 了 求 值 器 之 后 ， 我 们 将 在 4.2 节 里 看 看 怎样 将 所 用 的 语言 变换 到 那 种 
样子 。 不 幸 的 是 ， 把 延 时 包含 到 过 程 调 用 中 ， 将 会 对 我 们 设计 依赖 于 事件 顺序 的 程序 的 能 
造成 极 大 损害 ， 例 如 使 用 赋值 、 变 动 数据 、 执 行 输 入 输出 的 程序 等 等 。 甚 至 在 cons-stream 
里 的 那个 delay 也 会 产生 极 大 的 迷惑 作用 , 如 练习 3.51 和 练习 3.52 所 示 。 目前 所 有 的 人 都 知道 ， 
变动 性 和 延 时 求 值 在 程序 设计 语言 里 结合 得 非常 不 好 ， 设 计 出 某 些 方式 ， 适 当地 处 理 这 两 种 
东西 ， 仍 然 是 一 个 很 活跃 的 研究 领域 。 


3.5.5 ”函数 式 程序 的 模块 化 和 对 象 的 模块 化 


正如 我 们 在 3.1.2 节 里 所 看 到 的 ， 引 进 赋值 的 主要 收益 就 是 使 我 们 可 以 增强 系统 的 模块 化 ， 
把 一 个 大 系统 的 状态 中 的 某 些 部 分 封装 ， 或 者 说 “隐藏 ”到 局 部 变量 里 。 流 模型 可 以 提供 等 
价 的 模块 化 ， 同 时 又 不 必 使 用 赋值 。 为 了 展示 这 方面 的 情况 ,我 们 可 以 重新 实现 前 面 在 3.1.2 
节 考 察 过 的 r 的 蒙特 卡 罗 估计 ， 这 次 从 流 的 观点 出 发 来 做 。 

这 里 的 一 个 关键 性 的 模块 化 问题 ， 就 是 我 们 希望 将 一 个 随机 数 生成 器 的 内 部 状态 隐蔽 起 
来 ， 隔 离 在 使 用 随机 数 的 程序 之 外 。 我 们 从 过 程 zand-update 开 始 ， 它 所 提供 的 一 系列 值 
就 是 我 们 所 需 的 随机 数 ， 用 它 作 为 一 个 随机 数 生成 器 : 


(define rand 
(let ((x random-init)) 
(lambda () 
{set! x (rand-update x)) 


x))) : 
在 这 一 流 描述 中 ， 我 们 根本 看 不 到 什么 随机 数 生成 器 。 在 这 里 只 有 一 个 随机 数 的 流 ， 通 
过 对 rand-update 的 一 系列 顺序 调用 产生 : 
(define random-numbers 


(cons-stream random-init 
(stream-map rand-update random-numbers))) 


我 们 用 它 构造 出 在 random-numbers 流 中 顺序 的 数 对 上 的 Cesiro 试 验 的 输出 流 : 


(define cesaro-stream 
(map-successive-pairs (lambda (rl r2) (= {gcd rl r2) 1)) 
random-numbers ) ) 


(define (map-successive-pairs f s) 
(cons-stream 
(£ (stream-car s) (stream-car (stream-cdr s))) 
(map-successive-pairs f (stream-cdr (stream-cdr s))))) 


现在 将 cesaro~stream 人 馈 人 monte-carlo 过 程 ,该 过 程 生 成 出 一 个 可 能 性 估计 的 流 。 得 到 
的 结果 被 变换 到 一 个 估计 z 值 的 流 。 这 一 版 本 的 程序 里 根本 不 需要 用 参数 去 告诉 它 试 多 少 次 ， 
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如 果 去 查看 pi 流 里 更 后 面 的 值 ， 我 们 就 可 以 得 到 的 更 好 估计 (也 就 是 执行 更 多 的 试验 ) 。 
{define (monte-carlo experiment-stream passed failed) 
(define (next passed failed) 
(cons-stream 
(/ passed (+ passed failed)) 
(monte-carlo 
(stream-cdr experiment-stream) passed failed))) 
(if (stream-car experiment-stream) 
(next (+ passed 1) failed) 
(next passed (+ failed 1)))}) 


(define pi 
(stream-map (lambda (p) (sqrt (/ 6 p))) 
({monte-carlo cesaro-stream 0 0))) 


这 一 方法 也 相当 模块 化 ， 因 为 这 里 仍然 构造 出 了 一 个 一 般 性 的 monte-carlo 过 程 ， 它 可 
以 处 理 任 何 试验 。 而 且 这 里 没有 赋值 ， 也 没有 局 部 状态 。 

练习 3.81 ”练习 3.6 讨 论 了 推广 随机 数 生 成 器 ， 使 人 可 以 重 置 随机 数 序列 ， 以 便 生 成 出 
“随机 ” 数 的 可 重复 序列 。 请 做 出 这 种 生成 器 的 一 个 流 模型 ， 它 对 一 个 表示 需求 的 输入 流 操 作 ， 
或 者 是 generate 一 个 新 随机 数 ， 或 者 是 将 序列 reset 为 某 个 特定 值 ， 进 而 生成 所 需 的 随机 
数 流 。 在 你 的 解 中 不 要 使 用 赋值 。 

练习 3.82 ”以 流 的 方式 重新 做 练习 3.5 里 的 蒙特 卡 罗 积 分 ，estimate-integral 的 流 版 
本 将 不 需要 参数 告知 执行 试验 的 次 数 ， 相 反 ， 它 将 生成 一 个 表示 越 来 越 多 试验 次 数 的 估 值 流 ， 

时 间 的 函数 式 程序 设计 观点 

现在 回 到 有 关 对 象 和 状态 的 问题 ， 这 是 本 章 开 始 提出 的 ， 现 在 让 我 们 从 一 种 新 的 角度 去 
看 它们 。 引 进 赋值 和 变动 对 象 ， 就 是 为 了 提供 一 种 机 制 ， 以 便 能 模块 化 地 构造 出 程序 ， 去 模 
所 具有 状态 的 系统 。 我 们 构造 了 包含 内 部 状态 变量 的 计算 对 象 ， 用 赋值 去 修改 这 些 变量 。 我 
们 利用 对 应 计算 对 象 的 时 序 行为 去 模拟 现实 世界 中 的 各 种 对 象 的 时 序 行为 。 

现在 已 经 看 到 ， 流 为 模拟 具有 内 部 状态 的 对 象 提供 了 另 一 种 方式 。 可 以 用 一 个 流 去 模拟 
一 个 变化 的 量 ， 例 如 某 个 对 象 的 内 部 状态 ， 用 流 表示 其 顺序 状态 的 时 间 史 。 从 本 质 上 说 ,这 
里 的 流 将 时 间 显 式 地 表示 了 出 来 ， 因 此 就 松 开 了 被 模 氢 的 世界 里 的 时 间 与 求 值 过 程 中 事件 发 
生 的 顺序 之 间 的 紧密 联系 。 确 实 ， 由 于 delay 的 出 现 ， 在 模型 中 被 模拟 的 时 间 与 求 值 中 事件 
发 生 的 顺序 之 间 已 经 没有 什么 关系 了。 

为 了 进一步 对 比 这 两 种 模拟 方式 ， 让 我 们 重新 考虑 一 个 “取款 处 理 器 ”的 实现 ， 它 管理 
着 一 个 银行 账户 的 余额 。 在 3.1.3 节 里 ， 我 们 实现 了 这 一 处 理 器 的 一 个 简化 版 本 : 


(define (make-simplified-withdraw balance) 
(lambda (amount) 
(set! balance (- balance amount)) 


balance) ) 
调用 make-simplified-withdraw 将 生成 出 这 种 计算 对 象 ， 每 个 这 种 对 象 里 都 有 局 部 变量 
balance， 其 值 将 在 对 这 个 对 象 的 一 系列 调用 中 逐步 减少 。 这 些 对 象 以 amount 为 参数 ， 返 
回 一 个 新 的 余额 值 。 我 们 可 以 设想 ， 银 行 账户 的 用 户 送 一 个 输入 序列 给 这 种 对 象 ， 由 它 得 到 
一 系列 返回 值 ， 显 示 在 某 个 显示 屏幕 上 。 
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换 一 种 方式 ， 我 们 也 可 以 将 一 个 提 款 处 理 器 模拟 为 一 个 过 程 ， 它 以 一 个 余额 值 和 一 个 提 
款 流 作为 参数 ， 生 成 账户 中 上 顺序 余额 的 流 : 


(define (stream-withdraw balance amount-stream) 
(cons-stream 
balance 
(stream-withdraw (- balance (stream-car amount-stream) ) 
(stream-cdr amount-stream) ))) 


stIeam-withdraw 实 现 了 一 个 具有 和 良好 定义 的 数学 函数 ， 其 输出 完全 由 输入 确定 。 当 然 ， 
这 里 假定 了 输入 amount-~stream 是 由 用 户 送 来 的 顺序 值 构成 的 流 ， 作 为 结果 的 余额 流 将 被 
显示 出 来 。 这 样 ， 从 送 入 这 些 值 并 观看 结果 的 用 户 的 角度 看 ， 这 一 流 过 程 的 行为 与 由 make- 
simplified-withdraw 创 建 的 对 象 并 没有 什么 不 同 。 当 然 ， 在 这 种 流 方式 里 没有 赋值 ， 没 
有 局 部 状态 变量 ， 因 此 也 就 不 会 有 我 们 在 3.1.3 节 所 遇 到 的 种 种 理论 困难 。 但 是 这 个 系统 也 有 
状态 ! 

这 确实 是 极其 惊人 的 。 虽 然 stream~withdraw 实 现 了 一 个 具有 良好 定义 的 数学 函数 ， 
其 行为 根本 不 会 变化 ， 用 户 看 到 的 却 是 在 这 里 与 一 个 改变 着 状态 的 系统 交互 。 消 除 这 一 悖 论 
的 一 种 方式 是 认识 到 ， 正 是 由 于 用 户 方 的 时 态 的 存在 ， 为 这 个 系统 赋予 了 状态 特性 。 如 果 用 
户 从 自己 的 交互 问题 上 后 退 一 步 ， 以 余额 流 的 方式 思考 问题 ， 而 不 是 去 看 个 别 的 交易 ， 这 个 
系统 看 上 去 就 是 无 状态 的 了 ” 。 

从 一 个 复杂 过 程 中 的 一 部 分 的 观点 出 发 ， 其 他 的 部 分 看 起 来 正在 随 着 时 间 变 化 ， 它 们 有 
着 隐藏 的 随时 间 变 化 的 局 部 状态 。 如 果 我 们 希望 去 写 程序 ， 在 计算 机 里 用 某 种 结构 去 模拟 现 
实 世界 中 的 这 类 自然 分 解 〈 就 像 我 们 从 自己 的 观点 ， 将 它 看 作 世 界 的 一 个 部 分 那样 ) ， 那 么 就 
会 做 出 一 些 不 是 函数 式 的 计算 对 象 一 一 它们 必须 随 着 时 间 不 断 变 化 。 我 们 用 局 部 状态 变量 去 
模拟 状态 ， 用 对 这 些 变 量 的 赋值 模拟 状态 的 变化 。 在 这 样 做 的 时 候 ， 就 是 在 用 计算 执行 中 的 
时 间 去 模拟 我 们 所 在 的 世界 里 的 时 间 ， 也 就 是 把 “对 象 ”和 弄 进 了 计算 机 。 

用 对 象 来 做 模拟 是 威力 强大 的 ， 也 很 直观 ， 这 一 情况 的 主要 根源 ， 就 在 于 它 非 常 符合 我 
们 对 自己 身 处 其 中 并 与 之 交流 的 世界 的 看 法 。 然 而 ， 正 如 在 读 完 这 一 章 的 整个 过 程 中 我 们 已 
经 反复 看 到 的 ， 这 种 模型 也 产生 了 对 于 事件 的 顺序 ， 以 及 同步 多 个 进程 的 坏 手 问题 BRIX 
些 问题 的 可 能 性 推动 着 函数 式 程序 设计 语言 的 开发 ， 这 类 语言 里 根本 不 提供 赋值 或 者 变动 对 
象 。 在 这 样 的 语言 里 ， 所 有 过 程 实现 的 都 是 它们 的 参数 上 的 定义 良好 的 数学 函数 ， 其 行为 不 
会 变化 。 函 数 式 途径 对 于 处 理 并 发 系统 特别 有 吸引 力 *™。 

但 是 ,在 另 一 方面 ， 如 果 我 们 贴近 观察 ， 就 会 看 到 与 时 间 有 关 的 问题 也 潜入 了 函数 式 模 
型 之 中 。 一 个 特别 麻烦 的 领域 出 现在 我 们 希望 设计 交互 式 系统 的 时 候 ， 特 别 是 如 果 需 要 去 模 
拟 一 些 独立 对 象 之 间 的 交互 。 举 个 例子 ， 我 们 再 次 考虑 允许 共用 账户 的 银行 系统 的 实现 。 普 
通 系 统 里 将 使 用 赋值 和 状态 ， 在 模拟 Peter 和 Paul 共 享 一 个 账户 时 ， 我 们 让 Peter 和 Paul 将 他 们 
的 交易 请 求 送 到 同一 个 银行 账户 对 象 ， 就 像 在 3.1.3 节 里 所 看 到 的 那样 。 从 流 的 观点 看 ， 在 这 


201 物理 中 也 类 似 ， 当 我 们 观察 一 个 正在 移动 的 粒子 时 ， 我 们 说 该 粒子 的 位 置 RE) 正在 变化 。 然 而 ， 从 粒子 
的 世界 线 的 观点 看 ， 这 里 根本 就 不 涉及 任何 变化 。 | 

22 John Backus (Fortran 的 发 明 者 ) 在 1978 年 得 到 图 灵 奖 时 特别 赞赏 函数 式 程序 设计 。 在 他 的 授奖 讲演 中 
(Backus 1978) 强烈 地 推崇 函数 式 途径 。Henderson 1980 和 Darlington, Henderson, and Turner 1982 给 出 了 有 


关 函 数 式 程序 设计 的 很 好 综述 。 
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里 根本 就 没有 什么 “对 象 ”， 我 们 已 经 说 明了 可 以 用 一 个 计算 过 程 去 模拟 银行 账户 ， 读 过程 在 
一 个 请 求 交 易 的 流 上 操作 ， 生 成 一 个 系统 响应 的 流 。 我 们 也 同样 能 模拟 Peter 和 Paul 有 着 共用 
账户 的 事实 ， 只 要 将 Peter 的 交易 请 求 流 与 Paul 的 交易 请 求 流 归 并 ， 并 把 归并 后 的 流 送 给 那个 
银行 账户 过 程 ， 如 图 3-38 所 示 。 


Peter 的 请 求 


Paul 的 请 求 归并 银行 账户 ”一 一 > 
一 一 


图 3-38 一 个 合用 账户 ， 通 过 合并 两 个 交易 请 求 流 的 方式 模拟 


这 种 处 理 方式 的 麻烦 就 在 于 归并 的 概念 。 通 过 简单 交替 地 从 Peter 的 请 求 中 取 一 个 ， 而 后 
从 Paul 的 请 求 中 取 一 个 的 方式 根本 不 行 。 假 定 Paul 很 少 访问 这 个 账户 ， 我 们 将 很 难 强迫 Peter 
等 待 Paul 对 账户 的 访问 ， 而 后 才能 进行 自己 的 第 二 次 访问 。 无 论 这 种 归并 如 何 实现 ， 它 都 必 
须 在 某 种 由 Peter 和 Paul 可 以 看 到 的 “真实 时 间 ” 的 约束 之 下 交错 归并 这 两 个 交易 流 ， 这 也 就 
是 说 ， 如 果 Peter 和 Paul 会 面 了 ， 他 们 总 可 以 一 致 地 认为 ， 某 些 交 易 已 经 在 这 次 会 面 之 前 做 了 ， 
其 他 交易 将 在 这 次 会 面 之 后 做 ”。 这 正好 是 在 3.4.1 节 里 我 们 不 得 不 去 处 理 的 同一 个 约束 条 件 ， 
在 那里 我 们 发 现 需要 引进 显 式 同步 ， 以 确保 在 并 发 处 理 具 有 状态 的 对 象 的 过 程 中 ， 各 个 事件 
是 按照 “正确 ”顺序 发 生 的 。 这 样 ， 虽 然 这 里 试图 支持 函数 式 的 风格 ， 但 在 需要 归并 来 自 不 
同 主体 的 输入 时 ， 又 要 重新 引入 函数 式 风 格致 力 于 消除 的 同一 个 问题 。 

本 章 开 始 时 提出 了 一 个 目标 ， 那 就 是 构造 出 一 些 计算 模型 ， 使 其 结构 能 够 符合 我 们 对 于 
试图 去 模拟 的 真实 世界 的 看 法 。 我 们 可 以 将 这 一 世界 模拟 为 一 集 相互 分 离 的 、 受 时 间 约束 的 、 
具有 状态 的 相互 交流 的 对 象 ， 或 者 可 以 将 它 模 拟 为 单一 的 、 无 时 间 也 无 状态 的 统一 体 。 每 种 
观点 都 有 其 强 有 力 的 优势 ， 但 就 其 自身 而 言 ， 又 没有 一 种 方式 能 够 完全 令 人 满意 。 我 们 还 在 
等 待 着 一 个 大 统一 的 出 现 ™。 


w 请 注意 ， 一 般 地 说 ， 对 于 任意 两 个 流 ， 存 在 着 多 于 一 种 可 接受 的 交错 顺序 。 这 样 ， 从 技术 上 看 ，“ 归 并 ”就 
是 一 个 关系 而 不 是 一 个 函数 一 -得 到 的 回答 并 不 是 输入 的 确定 性 函数 。 我 们 已 经 提 到 过 脚注 167 )， 非 确定 
性 在 处 理 并 发 方面 是 本 质 性 的 。 这 一 归并 关系 展示 了 同样 本 质 性 的 非 确定 性 。 在 4.3 节 里 我 们 将 看 到 来 自 另 一 
种 观点 的 非 确定 性 。 

204 对 象 模型 对 世界 的 近似 在 于 将 其 分 割 为 独立 的 片断 ， 函 数 式 模型 则 不 是 沿 着 对 象 间 的 边界 去 做 模块 化 。 当 
“对 象 ”之 间 不 共享 的 状态 远 远 大 于 它们 所 共享 的 状态 时 ， 对 象 模型 就 特别 好 用 。 这 种 对 象 观点 失效 的 一 个 
地 方 就 是 量子 力学 ， 在 那里 ， 将 物体 看 作 独 立 的 粒子 就 会 导致 蛋 论 和 混乱 。 将 对 象 观点 与 函数 式 观点 合并 可 
能 与 程序 设计 的 关系 不 大 ， 而 是 与 基本 认识 论 有 关 的 论题 。 


第 4 章 元 语言 抽象 


用 普通 的 话 来 说 ， 这 个 咒语 就 是 一 一 阿 巴 拉 卡 达 巴 拉 ， 芝 麻 开 门 ， 看 且 还 有 另外 
的 东 西 一 一 在 一 个 故事 里 的 咒语 在 另 一 故事 里 就 不 灵 了 。 真 正 的 魔力 在 于 知道 哪个 吕 
语 有 用 ， 在 什么 时 候 ， 用 于 做 什么 ， 其 诀窍 就 在 于 学 含有 关 的 雇 穿 。 

而 这 些 咒 语 也 是 用 我 们 的 字母 表 里 的 字母 拼 出 来 的 ,这 个 字母 表 中 不 过 是 几 十 
个 可 以 用 笔画 岗 来 的 弯 弯 曲线 。 这 就 是 最 关键 的 ! 而 那些 珍宝 也 是 如 此 ， 如 果 我 们 
能 将 它们 合 到 手中 的 话 ! 这 就 像 是 说 ,就 像 通 向 珍宝 的 钥匙 就 是 珍宝 1 


一 一 John Barth, imam ( 奇想 ) 


在 前 面 有 关 程 序 设计 的 研究 中 ， 我 们 已 经 看 到 专业 程序 员 在 设法 控制 他 们 的 设计 的 复杂 
性 时 ， 采 用 的 正 是 与 所 有 复杂 系统 的 设计 者 同样 的 通用 技术 。 他 们 将 基本 元 素 组 合 起 来 ， 形 
成 复合 元 素 ， 从 复合 元 素 出 发 通过 抽象 形成 更 高 一 层 的 构件 ， 并 通过 采取 某 种 适当 的 关于 系 
统 结构 的 大 尺度 观点 ， 保持 系 统 的 模块 性 。 为 了 阐释 这 些 技术 ， 我 们 一 直 用 Lisp 作 为 语言 
描述 计算 过 程 ， 构 造 用 于 模拟 现实 世界 中 复杂 现象 的 复合 性 计算 对 象 和 计算 过 程 。 然 而 ， 随 
着 所 面 对 的 问题 变 得 更 加 复杂 ， 我 们 会 发 现 Lisp ， 以 及 任何 一 种 确定 的 程序 设计 语言 ， 都 不 
足以 满足 我 们 的 需要 。 我 们 必须 经 常 转向 新 的 语言 ， 以 便 能 够 更 有 效 地 表述 自己 的 想法 。 建 
立新 语言 是 在 工程 设计 中 控制 复杂 性 的 一 种 威力 强大 的 工作 策略 ， 我 们 常常 能 通过 采用 一 种 
新 语言 而 提升 处 理 复杂 问题 的 能 力 ， 因 为 新 语言 可 能 使 我 们 以 一 种 完全 不 同 的 方式 ， 利 用 不 
同 的 原 语 ， 不 同 的 组 合 方式 和 抽象 方式 去 描述 (因此 也 是 思考 ) 所 面 对 的 问题 ， 而 这 些 都 可 
以 是 为 了 手头 需要 处 理 的 问题 而 专门 打造 的 ” 。 

程序 设计 中 总 会 涉及 到 多 种 语言 。 这 里 有 物理 的 语言 ， 例 如 针对 特定 计算 机 的 机 器 语言 。 
这 些 语言 关注 的 是 数据 和 控制 在 存储 器 和 基本 机 器 指令 中 一 系列 二 进 制 位 上 的 表示 。 机 器 语 
言 程序 员 关 心 的 是 如 何 利用 给 定 硬件 构造 出 各 种 系统 和 有 用 功能 ， 以 便 在 资源 受 限 的 条 件 下 
有 效 地 实现 计算 过 程 。 高 级 语言 构筑 在 机 器 语言 之 上 ， 它 们 隐藏 起 数据 被 表示 为 一 些 二 进 制 
位 ， 程 序 被 表示 为 一 个 基本 指令 序列 的 许多 细节 。 这 些 语言 提供 了 一 些 组 合 和 抽象 机 制 ， 例 
如 过 程 定义 ， 因 此 更 适合 大 规模 的 系统 组 织 。 


205 同样 的 想法 在 工程 中 随处 可 见 。 举 例 来 说 ， 电 子 工 程 师 使 用 许多 不 同 的 语言 去 描述 电路 ， 其 中 的 两 种 语言 是 
电子 网 络 的 语言 和 电子 系统 的 语言 。 网 络 语 言 强调 的 是 基于 各 种 电子 元 件 为 设备 建 模 ， 在 这 个 语言 里 的 基本 
对 象 是 各 种 基本 电子 元 器 件 ， 如 电阻 器 、 电 容器 、 电 感 器 和 晶体 管 ， 它 们 的 特征 采用 电压 和 电流 等 物理 变量 
刻画 。 在 采用 网 络 语言 描述 电路 时 ， 工 程 师 关心 的 是 一 个 设计 的 物理 特性 。 与 此 相对 应 ， 系 统 语言 中 的 基本 
对 象 是 信号 处 理 模块 ， 如 过 滤器 和 放大 器 。 此 时 需要 关心 的 只 是 这 些 模 块 的 功能 行为 以 及 对 信号 的 操作 ， 并 
不 关心 它们 在 物理 的 电流 电压 上 的 实现 。 这 种 系统 语言 是 在 网 络 语言 的 基础 上 构造 起 来 的 ， 因 为 信号 处 理 系 
统 的 元 素 是 用 电子 网 络 构造 起 来 的 。 但 是 ， 设 计 者 在 这 里 关心 的 是 为 解决 给 定 的 应 用 问题 而 做 的 电子 设备 的 
大 规模 组 织 ， 并 假定 了 其 中 各 部 分 的 物理 可 行 性 。2.2.4 节 中 的 图 形 语言 所 展示 的 分 层 设计 技术 正好 是 分 层 语 
言 的 另 一 个 例子 。 


元 语言 抽象 就 是 建立 新 的 语言 。 它 在 工程 设计 的 所 有 分 支 中 都 扮演 着 重要 的 角色 ， 在 计 
算 机 程序 设计 领域 更 是 特别 重要 ， 因 为 这 个 领域 中 ， 我 们 不 仅 可 以 设计 新 的 语言 ， 还 可 以 通 
过 构造 求 值 器 的 方式 实现 这 些 语言 。 对 于 某 个 程序 设计 语言 的 求 值 器 (或 者 解释 器 ) 也 是 一 
个 过 程 ， 在 应 用 于 这 个 语言 的 一 个 表达 式 时 ， 它 能 够 执行 求 值 这 个 表达 式 所 要 求 的 动作 。 

把 这 一 点 看 做 是 程序 设计 中 最 基本 的 思想 一 点 也 不 过 分 : 

求 值 器 决定 了 一 个 程序 设计 语言 中 各 种 表达 式 的 如 义 ,而 它 本 身 也 不 过 就 是 另 一 个 

程序 。 

认识 到 这 一 点 ， 我 们 就 需要 修正 有 关 自 己 作 为 程序 员 的 看 法 。 现 在 应 该 开始 将 自己 看 做 
语言 的 设计 师 ， 而 不 仅仅 是 别人 设计 好 的 语言 的 使 用 者 。 

事实 上 ， 我 们 几乎 可 以 把 任何 程序 看 做 是 某 个 语言 的 求 值 器 。 举 例 说 ，2.5.3 节 的 多 项 式 
运算 系统 里 包含 着 多 项 式 的 算术 规则 ， 以 及 它们 基于 表 结 构 数据 操作 的 实现 。 如 果 我 们 扩充 
这 一 系统 ， 加 进 读 入 和 打印 多 项 式 的 过 程 ， 我 们 就 有 了 一 个 用 于 处 理 符 号 数学 问题 的 专用 语 
言 的 核心 部 分 。3.3.4 节 的 数字 逻辑 模拟 器 和 3.3.5 节 的 约束 传播 系统 ， 从 它们 自己 的 角度 看 ， 
也 都 是 完全 合格 的 语言 。 它 们 都 有 自己 的 基本 操作 ， 组 合 手段 和 抽象 手段 。 从 这 样 一 种 观点 
看 问题 ， 处 理 大 规模 计算 机 系统 的 技术 ， 与 构造 新 的 程序 设计 语言 的 技术 有 紧密 的 联系 ， 而 
计算 机 科学 本 身 不 过 (也 不 更 少 ) 就 是 有 关 如 何 构造 适当 的 描述 语言 的 学 科 。 

现在 我 们 将 要 启程 ， 去 讨论 有 关 如 何在 一 些 语言 的 基础 上 构造 新 语言 的 技术 。 在 这 一 章 
里 ， 我 们 将 用 Lisp 语 言 作为 基础 ， 将 各 种 求 值 器 实现 为 一 些 Lisp 过 程 。 因 为 Lisp 的 描述 能 力 和 
操作 符号 表达 式 的 能 力 ， 它 特别 适合 用 于 这 一 工作 。 作 为 理解 语言 实现 问题 的 第 一 步 ， 我 们 
将 首先 构造 起 一 个 针对 Lisp 本 身 的 求 值 器 。 由 我 们 的 求 值 器 实现 的 语言 将 是 Lisp 的 Scheme 方 
言 的 一 个 子 集 ， 也 就 是 本 书 中 所 使 用 的 语言 。 虽 然 本 章 描述 的 求 值 器 针对 的 是 Lisp 的 一 个 特 
定 方言 ， 但 是 它 已 经 包含 了 任何 为 在 顺序 计算 机 上 写 程序 而 设计 的 表达 式 语言 的 求 值 器 的 基 
本 结构 (事实 上 ， 大 部 分 语言 的 处 理 器 ， 在 其 深 处 都 包含 了 一 个 小 小 的 “Lisp” 求 值 器 ) 。 为 
便于 展示 和 讨论 ， 我 们 对 这 个 求 值 器 做 了 一 些 简化 ， 某 些 特征 被 放 到 一 边 ， 其 中 有 一 些 对 于 
产品 质量 的 Lisp 系 统 可 能 是 非常 重要 的 。 但 无 论 如 何 ， 这 个 简单 求 值 器 已 经 足以 执行 本 书 中 
的 大 部 分 程序 了 zx 。 

将 求 值 器 实现 为 一 个 清 清楚 楚 的 Lisp 程 序 ， 还 带 来 了 另 一 个 好 处 ， 这 使 我 们 可 以 通过 修 
改 这 个 求 值 器 程序 ， 实 现 各 种 不 同 的 求 值 规则 。 能 够 很 好 利用 这 一 优势 的 一 个 地 方 ， 是 我 们 
可 以 取得 对 计算 模型 中 所 嵌入 的 时 间 概 念 的 进一步 控制 ， 这 也 是 第 3 章 讨论 的 核心 问题 。 在 那 
里 ， 我 们 利用 流 的 概念 去 松 开 计算 机 里 的 时 间 表 示 与 现实 世界 的 时 间 之 间 的 联系 ， 以 降低 由 
状态 和 赋值 带 来 的 复杂 性 。 然 而 ， 我 们 的 流程 序 有 时 写 起 来 很 罗 嗪 ， 因 为 受到 了 Scheme 的 应 
用 顺序 求 值 的 限制 。 在 4.2 节 里 我 们 要 修改 基础 语言 ， 提 供 一 个 更 优雅 的 途径 ， 采 用 的 方式 就 
是 修改 求 值 器 ， 提 供 按照 正则 序 求 值 的 能 力 。 

4.3 节 将 要 实现 一 项 更 加 奴 心 勃 勃 的 语言 修改 ， 在 那里 ， 表 达 式 可 以 有 多 重 的 值 ， 而 不 仅 
仅 是 一 个 值 。 在 那里 的 非 确定 性 计算 的 语言 里 ， 我 们 可 以 很 自然 地 表达 这 样 的 计算 过 程 ， 在 


206 我 们 的 求 值 器 所 没有 涉及 的 最 重要 特征 是 有 关 处 理 错误 和 支持 查 错 的 机 制 。 有 关 求 值 器 的 更 深入 讨论 可 见 
Friedman, Wand, and Haynes 1992， 那 里 通过 一 系列 镇 cheme 写 出 的 求 值 器 ， 揭 示 了 程序 设计 语言 里 的 各 种 


有 关 现 象 。 
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其 中 生成 出 一 个 表达 式 的 所 有 值 ， 而 后 从 中 搜索 出 满足 某 些 特 定 约束 条 件 的 值 。 从 计算 和 时 
间 模 型 的 角度 看 ， 这 样 做 就 像 是 允许 时 间 有 分 岔 ， 形 成 一 集 “ 可 能 的 未 来 " ， 而 后 搜索 出 适当 
的 时 间 线路 。 借 助 于 这 个 非 确定 性 求 值 器 ， 维 护 多 重 值 的 轨迹 并 执行 搜索 的 工作 都 将 由 语言 
的 基础 机 制 自动 处 理 。 

在 4.4 节 里 实现 了 一 个 未 辑 程序 设计 语言 ， 在 那里 知识 用 关系 的 形式 描述 ， 而 不 是 描述 为 
带 有 输入 输出 的 计算 过 程 。 虽 然 这 样 得 到 的 语言 与 Lisp 大 相 径 庭 ， 也 与 所 有 常规 语言 根本 不 
同 ， 但 我 们 还 是 会 看 到 ， 这 个 逻辑 程序 设计 的 求 值 器 仍然 享用 着 Lisp 求 值 器 的 基本 结构 。 


4.1 元 循环 求 值 器 


现在 我 们 要 把 Lisp 求 值 器 实现 为 一 个 Lisp 程 序 ， 考 虑 用 一 个 本 身 也 在 Lisp 里 实现 的 求 值 器 
去 求 值 Lisp 程 序 。 这 看 起 来 似乎 是 一 种 循环 定义 。 不 过 ， 求 值 是 一 种 计算 过 程 ， 所 以 用 Lisp 来 
描述 这 个 过 程 也 是 合适 的 ， 因 为 毕 竞 它 一 直 是 我 们 用 来 描述 计算 过 程 的 工具 ”。 用 与 被 求 值 
的 语言 同样 的 语言 写 出 的 求 值 器 被 称 为 元 循环 。 ` 

从 根本 上 说 ,元 循环 求 值 器 也 就 是 3.2 节 所 描述 求 值 的 环境 模型 的 一 个 Scheme 表达 形式 。 
回忆 一 下 ， 该 模型 包括 两 个 部 分 : 

1) 在 求 值 一 个 组 合式 (一 个 不 是 特殊 形式 的 复合 表达 式 ) 时 ， 首 先 求 值 其 中 的 子 表达 式 ， 
而 后 将 运算 符 子 表达 式 的 值 作用 于 运算 对 象 子 表达 式 的 值 。 

2) 在 将 一 个 复合 过 程 应 用 于 一 集 实际 参数 时 ， 我 们 在 一 个 新 的 环境 里 求 值 这 个 过 程 的 体 。 
构造 这 一 环境 的 方式 就 是 用 一 个 框架 扩充 该 过 程 对 象 的 环境 部 分 ， 框 架 中 包含 的 是 这 个 过 程 
的 各 个 形式 参数 与 这 一 过 程 应 用 的 各 个 实际 参数 的 约束 。 

这 两 条 规则 描述 了 求 值 过 程 的 核心 部 分 ， 也 就 是 它 的 基本 循环 。 在 这 一 循环 中 ， 表 达 式 
在 环境 中 的 求 值 被 归 约 到 过 程 对 实际 参数 的 应 用 ， 而 这 种 应 用 又 被 归 约 到 新 的 表达 式 在 新 的 
环境 中 的 求 值 ， 如 此 下 去 ， 直 至 我 们 下 降 到 符号 (其 值 可 以 在 环境 中 找到 ) 或 者 基本 过 程 
(它们 可 以 直接 应 用 ) ， 见 图 4-1*%。 这 一 求 值 循环 实际 体现 为 求 值 器 里 的 两 个 关键 过 程 eval 
和 apply 的 相互 作用 ,4.1.1 节 将 描述 它们 (参看 图 4-1)。 

求 值 器 的 实现 依赖 于 一 些 定义 了 被 求 值 表达 式 的 语法 形式 的 过 程 。 我 们 仍 将 采用 数据 抽 
象 技术 ， 设 法 使 求 值 器 独立 于 语言 的 具体 表示 。 例 如 ， 我 们 并 不 事先 约定 一 些 选择 ， 例 如 确 


w 即便 如 此 ， 这 里 的 求 值 器 还 是 没有 表现 出 来 求 值 过 程 的 某 些 重要 方面 。 其 中 最 重要 的 就 是 一 个 过 程 调 用 其 他 
过 程 以 及 将 值 返 回调 用 者 的 机 制 的 细节 。 我 们 将 在 第 5 章 里 讨论 这 些 问题 ， 那 里 通过 将 求 值 器 实现 为 一 个 简 
单 的 寄存 器 机 器 的 方式 ， 更 贴近 地 观察 这 一 求 值 过 程 。 

28 如 果 我 们 已 经 得 到 了 应 用 基本 过 程 的 能 力 ， 那 么 在 实现 这 种 求 值 器 时 还 需要 做 些 什么 呢 ? 求 值 器 的 工作 并 不 
是 去 描述 语言 的 基本 过 程 ， 而 是 提供 一 套 连 接 方 式 ， 提 供 一 些 组 合 手 段 和 抽象 手段 ， 借 助 于 它们 将 基本 过 程 
联系 起 来 ， 形 成 一 个 语言 。 特 别 是 : 

。 求 值 器 使 我 们 能 够 处 理 嵌 套 的 表达 式 。 举例 来 说 , 虽然 简单 地 应 用 基 本 过 程 足 以 求 值 表达 式 (+ 1 6), 
但 却 无 法 处 理 (+ 1 (* 2 3))。 如 果 仅 仅 考虑 基本 过 程 + ， 它 要 求 的 实际 参数 必须 是 数 。 如 果 将 表 
达 式 (* 2 3) 作为 实际 参数 送 给 它 ， 就 会 把 它 嘲 死 。 求 值 器 所 扮演 的 一 个 重要 角色 就 是 安排 好 一 套 
办 法 ， 在 需要 将 像 (* 2 3) 这 样 的 复合 参数 传递 给 + 作为 实 参 之 前 ， 首 先 把 它 归 约 到 6 。 

+ RAS 使 我 们 可 以 使 用 变量 。 举 例 说 ， 做 加 法 的 基本 过 程 不 能 处 理 像 (+ x 1) 这 样 的 表达 式 。 我 们 
需要 求 值 器 维护 一 批 变量 的 轨迹 ， 在 调用 基本 过 程 之 前 取得 有 关 变 量 的 值 。 

。 求 值 器 使 我 们 可 以 定义 复合 过 程 。 这 涉及 到 维护 过 程 定义 的 轨迹 ， 知 道 如 何在 求 值 表 达 式 的 过 程 中 去 
使 用 这 种 定义 ， 为 过 程 接受 实际 参数 提供 一 种 机 制 等 。 

。 求 值 器 还 要 提供 一 批 特殊 形式 ， 它 们 的 求 值 方式 与 普通 过 程 调用 不 同 。 


定 一 个 赋值 是 用 符号 set! 开头 的 表 的 形式 表示 ， 而 是 用 一 个 谓词 assignment? 去 检查 是 不 
是 丘 值 ， 并 用 抽象 的 选取 国 数 assignment-variable 和 assignment-Vvalue 去 访问 赋值 
中 相应 的 部 分 。 表 达 式 的 实现 将 在 4.1.2 节 里 描述 。 在 4.1.3 节 里 还 要 描述 一 些 操 作 ， 它 们 刻画 
了 过 程 和 环境 的 表示 形式 。 举 例 来 说 ，make-procedure 将 构造 起 一 个 复合 过 程 ， 
lookup-variable-value 提 取 变 量 的 值 ，apply-primitive~procedure 将 一 个 基本 
过 程 应 用 于 一 组 给 定 的 实际 参数 。 


表达 式 ， 
过 程 ， 环境 
实际 参数 


图 4-1 揭示 计算 机 语言 本 质 的 eval-apply 循 环 
41.1 求 值 器 的 内 核 
求 值 过 程 可 以 描述 为 两 个 过 程 eval 和 apply 之 间 的 相互 作用 。 


eval 
eval 的 参数 是 一 个 表达 式 和 一 个 环境 。eval 对 表达 式 进 行 分 类 ， 依 此 引导 自己 的 求 值 
工作 。eval 的 构造 就 像 是 一 个 针对 被 求 值 表达 式 的 语法 类 型 的 分 情况 分 析 。 为 了 保持 这 一 过 
程 的 通用 性 ， 我 们 将 采用 抽象 的 方式 描述 表达 式 类 型 的 判定 工作 ， 其 中 并 不 为 各 种 表达 式 确 
定 任何 特殊 表示 方式 。 针 对 每 类 表达 式 有 一 个 谓词 完成 相应 的 检测 ， 有 一 套 抽 象 方法 去 选择 
表达 式 里 的 各 个 部 分 。 这 种 抽象 语法 使 我 们 很 容易 想到 ， 可 以 怎样 改变 这 个 求 值 器 所 处 理 的 
语言 的 语法 形式 。 为 此 只 需 采 用 另 一 组 不 同 的 语法 过 程 。 
基本 表达 式 : 
。 对 于 自 求 值 表 达 式 ， 例 如 各 种 数 ，eval 直接 返回 这 个 表达 式 本 身 。 
。eval 必 须 在 环境 中 查找 变量 ， 找 出 它们 的 值 。 
特殊 形式 : 
。 对 于 加 引号 的 表达 式 ，eval 返回 被 引 的 表达 式 。 
。 对 于 变量 的 赋值 (或 者 定义 ) ， 就 需要 递归 地 调用 eval 去 计算 出 需要 关联 于 这 个 变量 的 
新 值 。 而 后 需要 修改 环境 ， 以 改变 (或 者 建立 ) 相应 变量 的 约束 。 
。 一 个 if 表 达 式 要 求 对 其 中 各 部 分 的 特殊 处 理 方式 ， 在 谓词 为 真 时 求 值 其 推论 部 分 ， 否 
则 就 求 值 其 替代 部 分 。 
.一 个 lambda 必 须 被 转换 成 一 个 可 以 应 用 的 过 程 ， 方 式 就 是 将 这 个 lambda 表 达 式 所 描 
ROB BRAK 与 相应 的 求 值 环境 包装 起 来 。 
。 一 个 begin 表 达 式 要 求 求 值 其 中 的 一 系列 表达 式 ， 按 照 它们 出 现 的 顺序 。 
. 分 情况 分 析 (cond) 将 被 变换 为 一 组 嵌 套 的 让 表达 式 ， 而 后 求 值 。 


组 合式 : 
。 对 于 一 个 过 程 应 用 ，eval 必须 递归 地 求 值 组 合式 的 运算 符 部 分 和 运算 对 象 部 分 。 而 后 
将 这 样 得 到 的 过 程 和 参数 送 给 apply ， 由 它 去 处 理 实际 的 过 程 应 用 。 
这 里 是 eval 的 定义 : 
(define (eval exp env) 
(cond ((self-evaluating? exp) exp) 
((variable? exp) (lookup-variable-value exp env) ) 
((quoted? exp) (text-of-quotation exp)) 
((assignment? exp) (eval-assignment exp env) ) 
( (definition? exp) (eval-definition exp env) ) 
((if? exp) (eval-if exp env)) 
( (lambda? exp) 
(make-procedure (lambda-parameters exp) 
(lambda-body exp) 
env) ) 
((begin? exp) 
(eval-sequence (begin-actions exp) env)) 
( (cond? exp) (eval (cond->if exp) env)) 
((application? exp) 
(apply (eval (operator exp) env) 
(list-of-values (operands exp) env))) 
(else 
(error "Unknown expression type -- EVAL" exp)))) 


为 了 清晰 起 见 ， 这 里 将 eval 实 现 为 一 个 采用 cond 的 分 情况 分 析 。 这 样 做 的 缺点 是 我 们 
的 过 程 只 处 理 了 若干 种 不 同类 型 的 表达 式 ， 如 果 要 加 入 新 定义 的 表达 式 类 型 ,那么 就 必须 直 
接 去 编辑 eval 的 定义 。 在 大 部 分 的 Lisp 实 现 里 ， 针 对 表达 式 类 型 的 分 派 都 梁 用 了 数据 导向 的 
方式 。 这 种 做 法 使 用 户 可 以 更 容易 增加 eval 能 分 辨 的 表达 式 类 型 ， 而 又 不 必修 改 eval 的 定 
LEF (参见 练习 4.3)。 
apply 
apply 有 两 个 参数 ， 一 个 是 过 程 ， 一 个 是 该 过 程 应 该 去 应 用 的 实际 参数 的 表 。app1ly 将 
过 程 分 为 两 类 。 它 直接 调用 apply-primitive-procedure 去 应 用 基本 过 程 ， 应 用 复合 过 
程 的 方式 是 顺序 地 求 值 组 成 该 过 程 体 的 那些 表达 式 。 在 求 值 复 合 过 程 的 体 时 需要 建立 相应 的 
环境 ， 这 个 环境 的 构造 方式 就 是 扩充 该 过 程 所 携带 的 基本 环境 ， 并 加 入 一 个 框架 ， 其 中 将 过 
程 的 各 个 形式 参数 约束 于 过 程 调 用 的 实际 参数 。 下 面 是 apply 的 定义 : 
(define (apply procedure arguments) 
(cond ((primitive-procedure? procedure) 
(apply-primitive-procedure procedure arguments) ) 
((compound-procedure? procedure) 
(eval-sequence 
(procedure~body procedure) 
(extend-environment 
(procedure-parameters procedure) 
arguments 


(procedure-environment procedure) ))) 
(else 
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(error 
"Unknown procedure type -- APPLY" procedure) ))) 


WHS & - 
eval 在 处 理 过 程 应 用 时 用 list-of-values 去 生成 实际 参数 表 ， 以 便 完成 这 一 过 程 应 用 。 
list-of~values 以 组 合式 的 运算 对 象 为 参数 ， 求 值 各 个 运算 对 象 ， 返 回 这 些 值 的 表 *”: 
(define (list-of-values exps env) 
(if (no-operands? exps) 
0) 
(cons (eval (first-operand exps) env) 
(list-of-values (rest-operands exps) env)))) 


条 件 
eval-if 在 给 定 环境 中 求 值 if 表 达 式 的 谓词 部 分 ， 如 果 得 到 的 结果 为 真 ，eval-if 就 
去 求 值 这 个 if 的 推论 部 分 ， 否 则 它 就 求 值 其 替代 部 分 : 
(define (eval-if exp env) 
(if (true? (eval (if-predicate exp) env)) 
(eval (if-consequent exp) env) 
(eval (if-alternative exp) env))) 


从 eval-if 里 对 true? 的 使 用 中 ， 可 以 清楚 地 看 到 在 被 实现 语言 与 实现 所 用 的 语言 之 间 
的 联系 。if-predicate 在 被 实现 的 语言 里 求 值 ， 产 生出 这 一 语言 里 的 一 个 值 。 解 释 器 的 谓 
词 true? 将 该 值 翻 译 为 可 以 由 实现 所 用 的 语言 里 的 i£ 检 测 的 值 。 由 此 可 见 ， 在 这 个 元 循环 
求 值 器 中 所 采用 的 真 值 表示 ， 完 全 可 以 与 作为 其 基础 的 Scheme 不 同 *"。 


序列 
eval-sequence 用 在 apPply 里 ， 用 于 求 值 过 程 体 里 的 表达 式 序 列 。 它 也 用 在 eval 里 ， 
用 于 求 值 bpegin 表 达 式 里 的 表达 式 序 列 。 这 个 过 程 以 一 个 表达 式 序 列 和 一 个 环境 为 参数 ， 按 
照 序 列 里 表达 式 出 现 的 顺序 对 它们 求 值 。 它 返回 最 后 一 个 表达 式 的 值 。 
(define (eval-sequence exps env) 
(cond ((last-exp? exps) (eval (first-exp exps) env)) 
(else (eval (first-exp exps) env) 
(eval-sequence (rest-exps exps) env)))) 


赋值 和 定义 
下 面 过 程 处 理 变 量 赋 值 。 它 调用 eval 找 出 需要 赋 的 值 ， 将 变量 和 得 到 的 值 传 给 过 程 


set-variable-value!, 将 有 关 的 值 安 置 到 指定 环境 里 : 


(define {eval-assignment exp env) 
(set-variable-value! (assignment-variable exp) 
(eval (assignment-value exp) env) 
env) 
"ok ) 


209 我 们 也 可 以 使 用 map (并 假定 operands 返 回 的 是 表 ) 简化 eval 里 的 application? 部 分 , 而 不 是 自己 另 
写 一 个 list-of-values 过 程 。 这 里 选择 不 用 map 是 为 了 强调 一 个 事实 :我们 完全 可 以 不 用 任何 高 阶 过 程 
实现 这 个 求 值 器 (这 样 就 可 以 用 不 支持 高 阶 过 程 的 语言 来 写 求 值 器 ) ， 即 使 被 实现 的 语言 里 包含 高 阶 过 程 。 

10 在 目前 情况 下 ， 被 实现 的 语言 与 实现 所 用 的 语言 一 样 。 在 这 里 仔细 考究 true? 的 意义 ， 得 到 的 是 对 情况 的 更 
深入 的 认识 ， 并 不 会 破坏 事情 的 本 质 。 


A 


REE MAR WGA: 
(define (eval-definition exp env) 
(define-variable! (definition-variable exp) 
(eval (definition-value exp) env) 
’ok) 
这 里 的 选择 是 返回 一 个 符号 ok ARE RE, 
练习 4.1 ” 注意， 我 们 没 办 法 说 循环 求 值 器 是 从 左 到 右 还 是 从 右 到 左 求 值 各 个 运算 对 象 ， 
因为 这 一 求 值 顺序 是 从 作为 其 基础 的 Lisp 那 里 继承 来 的 ， 如 果 在 list-~of-values 里 的 cons 
从 左 到 布 求 值 ， 那 么 1ist-of-values 也 将 从 左 到 右 求 值 ， 如 果 cons 的 参数 从 右 到 左 求 值 ， 
那么 list-of-values 也 将 从 右 到 左 求 值 。 
请 写 出 一 个 list~-of-values 版 本 ,使 它 总 是 从 左 到 右 求 值 其 运算 对 象 ， 无 论 作 为 其 基 
础 的 Lisp 采 用 什么 求 值 顺序 。 另 外 写 出 一 个 总 是 从 右 到 左 求 值 的 1ist-of-values 版 本 。 


4.1.2 表达 式 的 表示 


这 个 求 值 器 很 像 2.3.2 节 讨论 的 符号 微分 程序 。 这 两 个 程序 完成 的 都 是 一 些 对 符号 表达 式 
的 操作 。 在 两 个 程序 里 ， 对 于 一 个 复合 表达 式 的 操作 结果 ， 也 都 是 由 表达 式 的 片段 递归 地 确 
定 的 ， 结 果 的 组 合 也 是 按照 一 种 由 表达 式 的 类 型 确定 的 方式 。 在 这 两 个 程序 里 ， 我 们 都 采用 
了 数据 抽象 技术 ， 借 以 松 开 一 般 性 的 操作 规则 与 表达 式 特定 表示 的 细节 方式 之 间 的 联系 。 在 
微分 程序 里 ， 这 意味 着 同一 个 微分 过 程 可 以 处 理 前 缀 形式 的 、 中 缀 形式 的 ， 或 者 其 他 形式 的 
代数 表达 式 。 对 于 求 值 器 ， 这 意味 着 ， 被 求 值 语 言 的 语法 形式 可 以 仅仅 由 一 些 对 表达 式 进行 
分 类 和 提取 表达 式 片 段 的 过 程 确定 。 

这 里 是 我 们 的 语言 的 语法 规范 ， 

* 这 里 的 自 求 值 表 达 式 只 有 数 和 字符 串 : 

. (define (self-evaluating? exp) 

(cond ((number? exp) true) 
((string? exp) true) 
(else false))) 

“变量 用 符号 表示 : 

(define (variable? exp) (symbol? exp)) 

。 引 号 表达 式 的 形式 是 (quote <text-of-quotation>) 7, 


(define (quoted? exp) 
(tagged-list? exp ‘quote)) 
(define (text-of-quotation exp) (cadr exp)) 


n define 的 实现 中 忽略 了 处 理 内 部 定义 时 的 一 个 微妙 问题 ， 虽 然 这 里 的 做 法 对 于 大 部 分 情况 都 能 工作 。 我 们 


将 在 4.1.6 节 看 到 如 何 解决 有 关 问题 。 
0 正如 在 前 面 介绍 define 和 set1 时 所 说 的 ， 在 Scheme 里 这 些 值 依赖 于 具体 的 实现 一 也 就 是 说 ， 实 现 者 可 以 
选择 返回 任意 的 值 。 
213 正如 2.3.1 节 所 说 , 求 值 器 看 到 的 引号 表达 式 是 以 4uote 开 头 的 表 ， 即使 这 种 表达 式 在 输入 时 用 的 是 一 个 引号 。 
举例 来 说 ， 求 值 器 看 到 的 表达 式 'a 实 际 上 是 (quote a)， 见 练习 2.55 。 
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quoted? 借 助 于 过 程 tagged-1ist? 定 义 ， 它 确定 一 个 表 的 开始 是 不 是 某 个 给 定 符号 : 
(define (tagged-list? exp tag) 
(if (pair? exp) 
(eq? (car exp) tag) 
false) ) 


。 赋值 的 形式 是 (set! <var><value>) : 


(define (assignment? exp) 
(tagged-list? exp ’set!)) 


(define (assignment-variable exp) (cadr exp)) 


(define (assignment-value exp) (caddr exp)) 
"定义 的 形式 是 : 
(define <var> <value>) 


或 者 


(define (<var><parameter,> ... <parameter,>) 

<body>) 
后 一 形式 (标准 的 过 程 定义 ) 只 是 下 面 形式 的 一 种 语法 包装 : 
(define <var> 

(lambda (<parameter,> ... <parameter,>) 

<body>) ) 

相应 的 语法 过 程 是 
(define (definition? exp) 


(tagged-list? exp define) ) 


(define (definition-variable exp) 
(if (symbol? (cadr exp)) 
(cadr exp) 
(caadr exp))) 


(define (definition-value exp) 
(if (symbol? (cadr exp)) 
(caddr exp) 
(make-lambda (cdadr exp) ; formal parameters 
(cddr exp)))) ; body 


。 lambda 表达 式 是 由 符号 1ambdqa 开 始 的 表 : 

(define (lambda? exp) (tagged-list? exp *Lambda } ) 

(define (lambda-parameters exp) (cadr exp)) 

(define (lambda-body exp) (cddr exp) ) 

我 们 还 为 lambda 表 达 式 提供 了 一 个 构造 函数 ， 它 用 在 上 面 的 definition-value 里 : 


(define (make-lambda parameters body) 
(cons “lambda (cons parameters body))) 


。 条件 式 由 if 开 始 ， 有 一 个 谓词 部 分 、 一 个 推论 部 分 和 一 个 (可 缺 的 ) 替代 部 分 。 如 果 
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这 一 表达 式 没有 替代 部 分 ， 我 们 就 以 false 作为 其 替代 2 。 
(define (if? exp) (tagged-list? exp ’if)) 
(define (if-predicate exp) (cadr exp)) 
(define (if-consequent exp) (caddr exp)) 


(define (if-alternative exp) 
(if (not (null? (cdddr exp))) 
(cadddr exp) 
'false)) 


我 们 也 为 if 表 达 式 提供 了 一 个 构造 函数 ， 它 在 cond->if 里 使 用 ， 用 于 将 cond 表 达 式 变 


MALABAR. 


| 


(define (make-if predicate consequent alternative) 
(list ’if predicate consequent alternative) ) 


。begin 包 装 起 一 个 表达 式 序列 ， 在 这 里 提供 了 对 begin 表 达 式 的 一 组 语法 操作 ， 以 便 从 
begin 表 达 式 中 提取 出 实际 表达 式 序列 ， 还 有 选择 函数 返回 序列 中 的 第 一 个 表达 式 和 其 
RREN. 

(define (begin? exp) (tagged~list? exp *begin)) 

(define (begin-actions exp) (cdr exp)) 

(define (last-exp? seq) (null? (cdr seq))) 

(define (first-exp seq) (car seq)) 

(define (rest-exps seq) (cdr seq)) 

我 们 还 包括 了 一 个 构造 函数 sequence->exP (用 在 cond->if 里 )， 它 把 一 个 序列 变换 

个 表达 式 ， 如 果 需 要 的 话 就 加 上 begin 作 为 开头 : | 

(define (sequence->exp seq) 

(cond ((null? seq) seq) 


((last-exp? seq) (first-exp seq)) 
(else (make-begin seq)))) 


(define (make-begin seq) (cons "begin seq)) 


* 过 程 应 用 就 是 不 属于 上 述 各 种 表达 式 类 型 的 任意 复合 表达 式 。 这 种 表达 式 的 car 是 运算 
符 ， 其 cdr 是 运算 对 象 的 表 : 


{define (application? exp) (pair? exp)) 
(define (operator exp) (car exp)) 
(define (operands exp) (cdr exp)) 
(define (no-operands? ops) (null? ops)) 
(define (first-operand ops) (car ops)) 


(define (rest-operands ops) (cdr ops)) 


24 在 谓词 为 假 时 而 且 没 有 替代 部 分 时 ， 诗 表达 式 的 值 在 Scheme 里 没有 规定 。 我 们 这 里 的 选择 是 让 它 取 值 假 。 


这 里 将 通过 在 全 局 环境 里 提供 约束 的 方式 支持 对 表达 式 里 变量 Ezue 和 False 的 求 值 ， 见 4.1.4 节 。 
215 这 些 选择 函数 都 直接 对 表达 式 的 表 定 义 一 对 应 的 是 运算 对 象 的 表 一 一 而 没有 再 做 为 一 种 数据 抽象 。 引 进 它 
们 采用 了 类 似 基 本 表 操作 的 名 字 ， 以 便 使 人 更 容易 理解 5.4 节 里 的 显 式 控制 求 值 器 。 


派生 表达 式 
在 我 们 语言 里 ， 一 些 特殊 形式 可 以 基于 其 他 特殊 形式 的 表达 式 定义 出 来 ， 而 不 必 直 接 去 
实现 。 一 个 这 样 的 例子 是 cond ， 它 可 以 实现 为 一 些 嵌 套 的 i 表 达 式 。 举 例 来 说 ， 我 们 可 以 将 
对 于 下 述 表 达 式 的 求 值 问题 : 
(cond ((> x 0) x) 
((= x 0) (display ’zero) 0) 
(else (- x))) 


归 约 为 对 下 面 涉 及 if 和 begin 的 表达 式 的 求 值 问题 : 


(if (> x 0) 
x 
(if (= x 0) 
(begin (display ’zero) 


0) 
(~ Xx))) 
采用 这 种 方式 实现 对 cond 的 求 值 能 简化 求 值 器 ， 因 为 这 样 就 减少 了 需要 特别 描述 求 值 过 程 的 
特殊 形式 的 数目 。 5 
我 们 在 这 里 包括 了 提取 cond 表 达 式 中 各 个 部 分 的 语法 过 程 ， 以 及 过 程 cond->if ， 它 能 
将 cond 表 达 式 变换 为 1f 表 送 式 。 一 个 分 情况 分 析 以 cond 开 始 ， 并 包含 一 个 谓词 -动作 子 句 
的 表 。 如 果 一 个 子 名 的 符号 是 else ， 那 么 就 是 一 个 else 子 句 *'。 


(define (cond? exp) (tagged-list? exp ’cond)) 
(define (cond-clauses exp) (cdr exp)) 


(define (cond-else-clause? clause) 
(eq? (cond-predicate clause) ‘else)) 


(define (cond-predicate clause) (car clause) ) 
(define (cond-actions clause) (cdr clause) ) 


(define (cond->if exp) 
(expand-clauses (cond-clauses exp))) 


(define (expand-clauses clauses) 
(if (null? clauses) 
*false ; clause else no 
(let ((first (car clauses) ) 
(rest (cdr clauses) )) 
(if (cond-else-clause? first) 
(if (null? rest) 
(sequence->exp (cond-actions first)) 
(error "ELSE clause isn’t last ~- COND->IF" 
clauses) ) 
(make-if (cond-predicate first) 
(sequence->exp (cond-actions first)) 
{expand-clauses rest)))))) 


216 当 所 有 的 谓词 都 为 假 而 且 又 没有 else 子 名 时， 在 Scheme 里 没有 规定 cond 表 达 式 的 值 。 我 们 这 里 的 选择 是 让 
这 时 的 值 为 假 。 
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我 们 这 样 选 出 来 的 ， 采 用 语法 变换 的 方式 实现 的 表达 式 (如 cond 表 达 式 ) 称 为 派生 表达 
式 。let 表 达 式 也 被 作为 派生 表达 式 ( 见 练习 4.6) 77, 
练习 4.2 Louis Reasoner 计 划 重 新 安排 eval 里 cond 子 句 的 位 置 ， 使 得 有 关 过 程 应 用 的 子 
句 出 现在 有 关 赋 值 的 子 句 之 前 。 他 的 论断 是 ， 这 样 做 将 会 提高 求 值 器 的 效率 ， 因 为 程序 里 通 
常 包含 的 函数 应 用 比 赋值 和 定义 等 等 更 多 一 些 ， 而 经 他 的 修改 之 后 ，eval 为 确定 一 个 表达 式 
的 类 型 所 需 检 查 的 子 句 将 会 比 原来 的 eval 更 少 些 。 
a) Louis 的 计划 有 什么 错 ? (提示 : Louis 的 求 值 器 将 如 何 处 理 表达 式 (define x 3) ? ) 
b) Louis 因 为 其 计划 无 法 工作 而 感到 非常 诅 形 。 他 希望 ， 无 论 要 走 多 远 也 要 让 自己 的 求 值 
器 在 检查 大 部 分 表达 式 之 前 就 识别 出 过 程 应 用 。 请 设法 帮助 他 ， 修 改 被 求 值 语言 的 语法 ， 使 
得 每 个 过 程 应 用 都 以 call 开始 。 例 如 现在 我 们 不 是 直接 写 (factorial 3), 而 是 需要 写 
(call factorial 3) , 不 能 直接 写 (+1 2), 而 将 必须 写 (call+1 2), 
练习 4.3 ”请 重 写 eval ,使 之 能 以 一 种 数据 导向 的 方式 完成 分 派 。 请 将 这 样 做 出 的 程序 与 
练习 2.73 的 数据 导向 的 求 导 程序 做 一 个 比较 。( 你 可 以 用 一 个 复合 表达 式 的 car 作为 表达 式 的 
类 型 ， 采 用 像 这 一 节 中 所 实现 的 语法 形式 。) 
练习 4.4 回忆 第 1 章 解 释 的 特殊 形式 and 和 or 的 定义 : 
cand: 其 表达 式 从 左 到 右 求 值 。 如 果 某 个 表达 式 求 出 的 值 是 假 ， 那 么 就 返回 假 值 ， 剩 下 
的 表达 式 也 不 再 求 值 。 如 果 所 有 的 表达 式 求 出 的 值 都 是 真 ， 那 么 就 返回 最 后 一 个 表达 式 
WH. 。 如 果 没 有 可 求 值 的 表达 式 就 返回 真 。 
“or : 其 表达 式 从 左 到 右 求 值 。 如 果 某 个 表达 式 求 出 的 值 是 真 ， 那 么 就 返回 真 值 ， 剩 下 
的 表达 式 也 不 再 求 值 。 如 果 所 有 的 表达 式 求 出 的 值 都 是 假 ， 或 者 根本 就 没有 可 求 值 的 表 
达 式 ， 那 么 返回 假 值 。 l 
请 将 and 和 or 作为 新 的 特殊 形式 安装 到 求 值 器 里 ， 定 义 适 当 的 语法 过 程 和 求 值 过 程 
eval-and 和 eval-or 。 换 一 种 方式 ， 请 说 明 如 何 将 and 和 or 实现 为 派生 表达 式 。 
练习 4.5 Scheme 还 允许 另 一 种 形式 的 cond 子 旬 ，(<test> => <recipient> )。 如 果 <test> 
求 出 的 值 是 真 ， 那 么 就 对 <recipient> 求 值 。 这 样 求 出 的 值 必 须 是 一 个 单个 参数 的 过 程 ， 将 这 
一 过 程 应 用 于 <tesr> 的 值 ， 并 将 其 返回 值 作 为 这 个 cond 表 达 式 的 值 。 例 如 : 
(cond ((assoc ’b '((a 1) (b 2))) => cadr) 
(else false) ) 
返回 值 2。 请 修改 对 cond 的 处 理 ， 使 之 能 支持 这 一 语法 扩充 。 
练习 4.6 ”let 表达 式 也 是 一 种 派生 表达 式 ， 因 为 ; 


(let ((<var,><exp\>) ... (<var,> <exp,>) ) 
<body>) 
等 价 于 
((lambda (<var,> ... <var,>) 
<body>) 


27 实际 的 Lisp 系统 提供 了 一 种 机 制 ， 使 用 户 可 以 添加 新 的 派生 表达 式 并 将 它们 的 实现 描述 为 语法 变 换 , 而 又 不 
必修 改 求 值 器 。 这 种 用 户 定义 变换 称 为 宏 。 虽 然 很 容易 为 定义 宏 增加 一 种 基本 机 制 ， 但 是 这 样 做 出 的 语言 却 
会 产生 一 种 微妙 的 名字 冲突 问题 。 关 于 如 何 提供 宏 定 义 而 又 不 造成 这 些 麻 烦 ， 有 许 多 人 进行 过 研究 WE, 
例如 Kohlbecker 1986 、Clinger and Rees 1991 以 及 Hanson 1991 。 ` 
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<exp\> 


<exp,>) 
请 实现 语法 变换 过 程 Let->combination， 它 能 将 对 1et 表 达 式 的 求 值 归 约 到 对 于 上 面 类 型 
的 组 合式 的 求 值 。 请 给 eval 增 加 适当 的 子 句 以 处 理 let 表达 式 。 
练习 4.7 let* 与 let 类似, 但 其 中 对 let 变 量 的 约束 是 从 左 到 右 顺 序 进行 的 ， 每 个 约束 
都 在 同一 个 环境 中 完成 ， 已 经 做 了 的 约束 都 是 可 见 的 。 例 如 : 
(let* ((x 3) 
(y (+ x 2)) 
(z (+ x y 5))) 
(* x 2)) 
返回 39 。 请 说 明 ， 为 什么 一 个 Let* 表 达 式 可 以 重 写 为 一 些 肉 套 的 1et 表 达 式 ， 并 请 写 出 一 个 
过 程 let*->nested-lets 完 成 相应 变换 。 如 果 我 们 已 经 有 了 let 的 实现 (练习 4.6)， 并 希 
望 扩充 求 值 器 去 处 理 lLet*， 请 给 eval 加 入 一 个 其 中 的 动作 如 下 的 子 句 


(eval (let*->nested-lets exp) env) 
就 够 了 吗 ? 或 者 说 我 们 必须 显 式 地 以 非 派生 方式 来 扩充 对 Let* 的 处 理 ? 

练习 4.8 “命名 let” 是 1et 的 一 种 变形 ， 具 有 下 面 的 形式 : 

(let <var> <bindings> <body>) 
其 中 的 <bindings> 和 <body> 都 与 常规 let 完 全 一 样 ， 只 是 在 <body> 里 的 <var> 应 该 约束 到 一 个 
过 程 ， 该 过 程 的 体 就 是 <body>， 而 其 参数 就 是 <bindings> 里 的 变量 。 这 样 ， 我 们 就 可 以 通过 
调用 名 字 为 <var> 的 过 程 的 方式 ， 反 复 执 行 这 个 <body> 。 举 例 说 ， 和 挝 代 型 的 斐 波 纳 契 过 程 ( 见 
1.2.2 节 ) 可 以 用 命名 let 重 新 写 为 ; 

(define (fib n) 

(let fib-iter ((a 1) 
(b 0) 
(count n)) 
(if (= count 0) 
b 
(fib-iter (+ a b) a (- count 1))))) 

请 修改 练习 4.6 里 的 1et->combination， 使 之 能 够 支持 命名 Let。 

练习 4.9 许多 语言 都 支持 多 种 迭代 结构 ， 例 如 do 、for 、while 和 until。 在 Scheme 里 ， 
和 迭代 计算 过 程 可 以 通过 常规 过 程 调用 的 方式 表述 ， 因 此 ， 特 殊 的 和 迭代 结构 并 不 会 在 计算 能 力 
方面 带 来 任何 真正 的 收获 。 但 在 另 一 方面 ， 这 种 结构 也 确实 能 带 来 很 多 方便 。 请 设计 出 者 干 
种 迭代 结构 ， 给 出 使 用 它们 的 例子 ， 并 说 明 怎 样 将 它们 实现 为 一 些 派生 表达 式 。 

练习 4.10 ”通过 使 用 数据 抽象 技术 ,我 们 就 能 够 写 出 独立 于 被 求 值 语言 的 特定 语法 形式 
的 eval 过 程 。 为 阐释 这 一 点 ， 请 为 Scheme 设 计 和 实现 一 种 新 的 语法 形式 ， 请 仅仅 修改 本 节 的 
有 关 过 程 ， 而 不 修改 eval 或 者 apply。 


4.1.3 求 值 器 数据 结构 
除了 需要 定义 表达 式 的 外 部 语法 形式 之 外 ， 求 值 器 的 实现 还 必须 定义 好 在 其 内 部 实际 操 
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作 的 数据 结构 ， 作 为 程序 执行 的 一 部 分 。 例 如 ， 定 义 好 过 程 和 环境 的 表示 形式 ， 真 和 假 的 表 
示 方 式 等 等 。 

谓词 检测 

为 了 实现 条 件 表达 式 ， 我 们 把 除了 false 对 象 之 外 的 所 有 东西 都 接受 为 真 : 


(define (true? x) 
(not (eq? x false))) 


(define (false? x) 
(eq? x false) ) 


为 能 处 理 基 本 过 程 ， 我 们 假定 已 经 有 了 下 述 过 程 : 
* (apply-primitive-procedure <proc> <args>) 
它 能 够 将 给 定 的 过 程 应 用 于 表 <args> 里 的 参数 值 ， 并 返回 这 一 应 用 的 结果 。 
¢(primitive-procedure? <proc>) 
检查 <proc> 是 否 为 一 个 基本 过 程 。 
有 关 如 何 处 理 基本 过 程 的 机 制 将 在 4.1.4 节 里 进一步 讨论 。 
复合 过 程 是 由 形式 参数 、 过 程 体 和 环境 ， 通 过 构造 函数 make-procedure 做 出 来 的 : 


(define (make-procedure parameters body env) 
(List ’procedure parameters body env)) 


(define (compound-procedure? p) 
(tagged-list? p ’procedure) ) 


(define (procedure-parameters p) (cadr p)) 
(define (procedure-body p) (caddr p)) 
(define (procedure-environment p) (cadddr p)) 
对 环境 的 操作 
求 值 器 需要 一 些 对 环境 的 操作 。 正 如 在 3.2 节 里 所 解释 的 ， 一 个 环境 就 是 一 个 框架 的 序列 ， 
每 个 框架 都 是 一 个 约束 的 表格 ， 其 中 的 约束 关联 起 一 些 变量 和 与 之 对 应 的 值 。 我 们 提供 下 面 
这 一 组 针对 环境 的 操作 : 
* (lookup-variable-value <var> <env>) 
返回 符号 <var> 在 环境 <env> 里 的 约束 值 ， 如 果 这 一 变量 没有 约束 就 发 出 一 个 错误 信和 号。 
*(extend-environment <variables> <values> <base-env>) 
返回 一 个 新 环境 ， 这 个 环境 中 包含 了 一 个 新 的 框架 ， 其 中 的 所 有 位 于 表 <variables> 里 的 
符号 约束 到 表 <values> 里 对 应 的 元 素 ， 而 其 外 围 环境 是 环境 <base-env>。 
* (define-variable! <var> <value> <env>) | 
在 环境 <env> 的 第 一 个 框架 里 加 入 一 个 新 约束 ， 它 关联 起 变量 <var> 和 值 <value>。 
* (set-variable-value! <var> <value> <env>) 
修改 变量 <var> 在 环境 <env> 里 的 约束 ， 使 得 该 变量 现在 约束 到 值 <value>。 如 果 这 一 变 
量 没 有 约束 就 发 出 一 个 错误 信号 。 
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为 了 实现 这 些 操作 ， 我 们 将 环境 表示 为 一 个 框架 的 表 ， 一 个 环境 的 外 围 环境 就 是 这 个 表 
的 cdr ， 空 环境 则 直接 用 空 表 表示 。 
(define (enclosing-environment env) (cdr env)) 


{define (first-frame env) (car env)) 


(define the-empty-environment ’()) 


在 环境 里 的 每 个 框架 都 是 一 对 表 形 成 的 序 对 : 一 个 是 这 一 框架 中 的 所 有 变量 的 表 ， 还 有 就 是 
它们 的 约束 值 的 表 …。 


(define (make-frame variables values) 
(cons variables values) ) 


(define (frame-variables frame) (car frame)) 
(define (frame-values frame) (cdr frame) ) 


(define (add-binding-to-frame! var val frame) 
(set-car! frame (cons var (car frame))) 
(set-cdr! frame (cons val (cdr frame)))) 


为 了 能 够 用 一 个 (关联 了 一 些 变量 和 值 的 ) 新 框架 去 扩充 一 个 环境 ， 我 们 让 框架 由 一 个 
变量 的 表 和 一 个 值 的 表 组 成 ， 并 将 它 结 合 到 环境 上 。 如 果 变 量 的 个 数 与 值 的 个 数 不 匹 配 ， 我 
们 就 发 出 一 个 错误 信号 。 

(define (extend-environment vars vals base-env) 

(if (= (length vars) (length vals)) 
(cons (make-frame vars vals) base-env) 
(if (< (length vars) (length vals)) 
(error "Too many arguments supplied" vars vals) 
(error "Too few arguments supplied" vars vals)))) 


要 在 一 个 环境 中 查找 一 个 变量 ， 就 需要 扫描 第 一 个 框架 里 的 变量 表 。 如 果 在 这 里 找到 了 
所 需 的 变量 ， 那 么 就 返回 与 之 对 应 的 值 表 里 的 对 应 元 素 。 如 果 我 们 不 能 在 当前 框架 里 找到 这 
个 变量 ， 那 么 就 到 其 外 围 环境 里 去 查找 ， 并 如 此 继续 下 去 。 如 果 遇 到 了 空 环境 ， 那 么 就 发 出 
一 个 “未 约束 变量 ”的 错误 信号 。 

(define (lookup-variable-value var env) 

(define (env-loop env) 
(define (scan vars vals) 
{cond ((null? vars) 
l (env-loop (enclosing-environment env))) 
((eq? var (car vars)) 
(car vals) ) 
(else (scan (cdr vars) (cdr vals))))) 
(if (eq? env the-empty-environment ) 
(error "Unbound variable" var) 
(let ((frame (first-frame env))) 
(scan (frame-variables frame) 
(frame-values frame))))) 
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(env-loop env) ) 


在 需要 为 某 个 变量 在 给 定 环境 里 设置 一 个 新 值 时 ， 我 们 也 要 扫描 这 个 变量 ， 就 像 在 过 程 
lookup-variable-value 里 一 样 。 在 找到 这 一 变量 后 修改 它 的 值 。 


(define (set-variable-value! var val env) 
(define (env-loop env) 
(define (scan vars vals) 
(cond ((null? vars) 
(env-loop (enclosing-environment env) )) 
((eq? var (car vars)) 
(set-car! vals val)) 
(else (scan (cdr vars) (cdr vals))))) 
(if (eq? env the-empty-environment } 
(error "Unbound variable -- SET!" var) 
(let ((frame (first-frame env) )) 
(scan (frame-variables frame) 
(frame-values frame))))) 
(env-loop env) ) 


为 了 定义 一 个 变量 ， 我 们 需要 在 第 一 个 框架 里 查找 该 变量 的 约束 ， 如 果 找 到 就 修改 其 约 
束 (就 像 是 在 set-~variable-valuel 里 一 样 )。 如 果 不 存在 这 种 约束 ， 那 么 就 在 第 一 个 杠 
架 中 加 入 这 个 约束 。 


(define (define-variable! var val env) 
(let ((frame (first-frame env) )) 
(define (scan vars vals) 
(cond ((null? vars) 
(add-binding-to-frame! var val frame) ) 
((eq? var (car vars)) 
(set-car! vals val)) 
(else (scan (cdr vars) (cdr vals))))) 
(scan (frame-variables frame) 
(frame-values frame) ))) 


这 里 所 描述 的 方法 ， 只 不 过 是 表示 环境 的 许多 可 能 方法 之 一 。 由 于 前 面 采 用 了 数据 抽象 
技术 ， 将 求 值 器 的 其 他 部 分 与 这 些 表 示 细 节 隔 离开 ， 如 果 需 要 的 话 ， 我 们 也 完全 可 以 修改 环 
境 的 表示 ( 见 练习 4.11 )。 在 产品 质量 的 Lisp 系统 里 ， 求 值 器 中 环境 操作 的 速度 一 一 特别 是 查 
找 变 量 的 速度 一 -对 系统 的 性 能 有 着 重要 的 影响 。 这 里 所 描述 的 表示 方式 虽然 在 概念 上 非常 
简单 ， 但 其 工作 效率 却 很 低 ， 通 常 不 会 被 用 在 产品 系统 里 。 

练习 4.11 ”我 们 完全 可 以 不 把 框架 表示 为 表 的 序 对 ,而 是 表示 为 约束 的 表 ， 其 中 的 每 个 
约束 是 一 个 名 字 一 值 序 对 。 请 重 写 有 关 的 环境 过 程 ， 采 用 这 种 新 的 表示 方式 。 

练习 4.12 过 程 set-variable-value!.、 define-variable! fflookup- 
variable-value 可 以 基于 更 抽象 的 遍历 环境 结构 的 过 程 描述 。 请 定义 有 关 的 抽象 ， 使 之 能 
够 抓 住 其 中 的 公共 模式 ， 而 后 基于 这 些 抽象 重新 定义 上 述 的 三 个 过 程 。 


29 这 种 表示 (包括 练习 4.11 提 出 的 变形 ) 的 缺点 是 ， 求 值 器 为 了 找到 一 个 给 定 变量 的 约束 ， 可 能 需要 搜索 许多 
个 框架 。 这 样 一 种 方式 称 为 深 约 素 。 和 避免 这 一 低 效 性 的 方法 是 采用 一 种 称 为 语法 作用 域 的 策略 ，5.5.6 节 将 讨 
论 这 种 策略 。 
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练习 4.13 ”Scheme 允许 我 们 通过 define 为 变量 创建 新 的 约束 ， 但 却 没 有 提供 消除 约束 的 
方式 。 请 为 求 值 器 实现 一 个 特殊 形式 make-unboundl ， 它 能 从 make-unboundl! 表达 式 求 
值 的 哪个 环境 中 删除 给 定 符号 的 约束 。 这 一 问题 并 没有 完全 刻画 清楚 。 例 如 ， 我 们 应 该 只 删 
除 环境 中 第 一 个 框架 里 的 约束 吗 ? 请 完成 有 关 的 规范 ， 并 说 明 你 所 做 选择 的 合理 性 。 


4.1.4 作为 程序 运行 这 个 求 值 器 


有 了 一 个 求 值 器 ， 我 们 手头 上 就 有 了 一 个 有 关 Lisp 表 达 式 如 何 求 值 的 描述 (也 是 用 Lisp 描 
述 的 )。 将 求 值 器 描述 为 程序 的 一 个 优点 是 我 们 可 以 运行 这 个 程序 ， 这 样 就 给 了 我 们 一 个 能 够 
在 Lisp 里 运行 的 ， 有 关 Lisp 本 身 如 何 完 成 表达 式 求 值 的 工作 模型 。 这 一 模型 可 以 作为 一 个 工作 
框架 ， 使 人 能 够 去 试验 各 种 求 值 规则 。 这 也 是 我 们 在 本 章 后 面部 分 将 要 去 做 的 事情 。 

我 们 的 求 值 器 程序 最 终 将 把 表达 式 归 约 到 基本 过 程 的 应 用 。 因 此 ， 为 了 能 够 运行 这 一 求 
值 器 ， 现 在 需要 做 的 全 部 事情 就 是 创建 一 种 机 制 ， 通 过 它 能 够 去 调用 基础 Lisp 系 统 的 功能 ， 
去 模拟 那些 基本 过 程 的 应 用 。 

每 个 基本 过 程 名 必须 有 一 个 约束 ， 以 便当 eval 求 值 一 个 应 用 基本 过 程 的 运算 符 时 ， 可 以 
找到 相应 的 对 象 ， 并 将 这 个 对 象 传 给 apP1y 。 为 此 我 们 必须 创建 起 一 个 初始 环境 ， 在 其 中 建 
立 起 基本 过 程 的 名 字 与 一 个 唯一 对 象 的 关联 ， 在 求 值 表达 式 的 过 程 中 可 能 遇 到 这 些 名 字 。 这 
一 全 局 环境 里 还 要 包含 符号 true 和 false 的 约束 ， 这 就 使 它们 也 可 以 作为 变量 用 在 被 求 值 的 
表达 式 里 。 

(define (setup-environment) 

(let ((initial-env 
(extend-environment (primitive-procedure-names) 
(primitive-procedure-objects) 
the-empty-environment) ) ) 
(define-variable! ’true true initial-env) 


(define-variable! ’false false initial-env) 
initial-env)) 


(define the-global-environment (setup-environment ) ) 
基本 过 程 对 象 的 具体 表示 形式 并 不 重要 ， 只 要 app1ly 能 识别 它们 ， 并 能 通过 过 程 
primitive-procedure? 和 apply-primitive-procedure 去 应 用 它们 。 我 们 所 选择 的 
方式 ， 是 将 基本 过 程 都 表示 为 以 符号 primitive 开 头 的 表 ， 在 其 中 包含 着 基础 Lisp 系 统 里 实 
现 这 一 基本 过 程 的 那个 过 程 。 
(define (primitive-procedure? proc) 
(tagged-list? proc primitive) ) 


(define (primitive-implementation proc) (cadr proc)) 
setup-environment 将 从 一 个 表 里 取 得 基本 过 程 的 名 字 和 相应 的 实现 过 程 ”: 


(define primitive-procedures 


m 在 基础 Lisp 里 定义 的 所 有 过 程 ， 都 可 以 用 作 这 个 元 循环 求 值 器 的 基本 过 程 。 在 求 值 器 里 设置 的 名 字 不 必 与 它 
们 在 基础 Lisp 系 统 里 的 名 字 相同 ， 这 里 采用 同样 的 名 字 是 因为 这 个 元 循环 求 值 器 实现 的 就 是 Scheme 本 身 。 举 
例 来 说 ， 我 们 完全 可 以 将 (list first car) 或 者 (List "square (lambda (x) (* x x))) 放 进 


primitive-procedures 的 表 里 。 
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(list (list "car car) 
(list ‘cdr cdr) 
(list ’cons cons) 
(list ’null? null?) 
< 其 他 基 本 过 程 > 
)) 


(define (primitive-procedure-names ) 
P 
(map car 
primitive-procedures} ) 


(define (primitive-procedure-objects) 
(map (lambda (proc) (list ‘primitive (cadr proc) )) 
primitive-procedures ) ) 


为 了 应 用 一 个 基本 过 程 ， 我 们 上 只 需要 简单 地 利用 基础 Lisp 系统 ， 将 相应 的 实现 过 程 应 用 
于 实际 参数 ” : 


(define (apply-primitive-procedure proc args) 
(apply-in-underlying-scheme 
(primitive-implementation proc) args)) 


为 了 能 够 很 方便 地 运行 这 个 元 循环 求 值 器 ， 我 们 提供 了 一 个 驱动 循环 ， 它 模拟 基础 Lisp 
系统 里 的 读 入 ~ 求 值 ~ 打印 循环 。 这 个 循环 打印 出 一 个 提示 符 ， 读 入 输入 表达 式 ， 在 全 局 环 
境 里 求 值 这 个 表达 式 ， 而 后 打印 出 得 到 的 结果 。 我 们 在 每 个 对 应 结果 前 面 放 一 个 输出 提示 ， 
以 使 这 些 表 达 式 的 值 有 别 于 其 他 输出 一 。 


(define input-prompt ";;; M-Eval input:") 
(define output-prompt ";;; M-Eval value:") 


(define (driver-loop) 
(prompt-for-input input-prompt) 
(let ((input (read))) 
(let ((output (eval input the-global-environment) )) 
(announce-output output-prompt ) 
(user-print output) )) 
(driver-loop) ) 


(define (prompt-for-input string) 
(newline) (newline) (display string) (newline) ) 


(define (announce-output string) 
(newline) (display string) (newline) ) 


71 这 里 的 appPly~in-underlying-scheme 也 就 是 我 们 在 前 面 章节 里 已 经 使 用 过 的 aPP17 过 程 。 元 循环 求 值 
器 里 的 8pPPlY 过 程 ( 见 4.1.1 节 ) 模拟 的 就 是 这 一 过 程 的 工作 。 采 用 两 个 不 同 的 而 名 字 又 同 为 apPply 的 东西 ， 
将 会 在 元 循环 求 值 器 的 运行 中 产生 一 个 技术 问题 ， 因 为 元 循环 求 值 器 的 apP1Y 定义 会 掩盖 相应 基本 过 程 的 定 
义 。 绕 过 这 一 问题 的 一 种 方式 是 重 命名 元 循环 求 值 器 里 的 apPp1Y ， 以 避免 与 基本 过 程 的 名 字 冲 突 。 我 们 假定 
采用 另 一 方式 ， 在 定义 元 循环 的 app1Y 之 前 ,已 经 先 用 下 面 方式 保存 了 基础 aPPlY 的 一 个 引用 ;: 


(define apply-in-underlying-scheme apply) 


这 就 使 我 们 可 以 以 另 一 个 不 同 的 名 字 访 问 aPPp1Y 的 原来 版 本 了 。 

m 基本 过 程 reag 将 一 直 等 待 用 户 的 输入 ， 并 返回 键入 的 下 一 个 完整 表达 式 。 举 例 来 说 ， 如 果 用 户 的 输入 是 
(+ 23 x), read 将 返回 一 个 包含 三 个 元 素 的 表 ， 其 中 包含 符号 +、 数 23 以 及 符号 x。 如 果 用 户 键入 的 是 x ， 
返回 的 将 是 一 个 包含 两 个 元 素 的 表 ， 其 中 包含 了 符号 quote 和 符号 x。 
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这 里 使 用 了 一 个 特殊 的 打印 过 程 user-print， 以 避免 打印 出 复合 过 程 的 环境 部 分 ， 因 为 它 
可 能 是 一 个 非常 长 的 表 (而 且 还 可 能 包含 循环 )。 
(define (user-print object) 
(if (compound-procedure? object) 
(display (list ’compound-procedure 
(procedure-parameters object) 
(procedure-body object) 
*<procedure-env> ) ) 
(display object))) 


为 了 运行 这 个 求 值 器 ， 现 在 我 们 需要 着 的 全 部 事情 就 是 初始 化 这 个 全 局 环境 ， 并 启动 上 
述 的 驱动 循环 。 下 面 是 一 个 交互 过 程 实例 : 

(define the-global-environment (setup-environment) ) 

(driver-loop) 


;;; M-Eval input: 
(define (append x y) 
(if (null? x) 
Y 
(cons (car x) 
(append (cdr x) y)))) 

;;; M-Eval value: 
ok 


;;; M-Eval input: 

(append ’(a b c) "(de f)) 
;;; M-Eval value: 
(abcde f) 


练习 4.14 Eva Lu Ator 和 Louis Reasoner 各 自 实现 了 这 里 的 元 循环 求 值 器 。 Eva 键入 了 map 
的 定义 ， 并 运行 了 一 些 使 用 它 的 测试 程序 ， 它 们 都 工作 得 很 好 。 而 Louis 则 是 将 系统 的 map 版 
本 作为 基本 过 程 安装 到 自己 的 元 循环 求 值 器 中 。 当 他 去 试验 这 个 过 程 时 ， 却 出 现 了 严重 的 错 
误 。 请 解释 ， 为 什么 Eva 的 map 能 够 工作 而 Louis 的 map 却 失败 了 。 


4.1.5 将 数据 作为 程序 


在 思考 求 值 Lisp 表 达 式 的 Lisp 程 序 时 ， 有 一 个 类 比 可 能 很 有 帮助 。 关 于 程序 意义 的 一 种 操 
作 式 观点 ， 就 是 将 程序 看 成 一 种 抽象 的 (可 能 无 穷 大 的 ) 机 器 的 一 个 描述 。 例 如 ， 考 虑 下 面 


这 个 我 们 已 经 非常 熟悉 的 求 阶乘 程序 : 
(define (factorial n) 
(if (=n 1) 
1 
(* (factorial (- n 1)) n))) 


我 们 可 以 将 这 一 程序 看 成 一 部 机 器 的 描述 ， 这 部 机 器 包含 的 部 分 有 减 量 、 乘 和 相等 测试 ， 还 
有 一 个 两 位 置 的 开关 和 另 一 部 阶乘 机 器 (这样 ， 阶 乘机 器 就 是 无 穷 的 ， 因 为 其 中 包含 着 另 一 
部 阶乘 机 器 )。 图 4-2 是 这 部 阶乘 机 器 的 流程 图 ， 说 明了 有 关 的 部 分 如 何 连 接 在 一 起 。 

按照 类 似 的 方式 ， 我 们 也 可 以 把 求 值 器 看 做 是 一 部 非常 特殊 的 机 器 ， 它 要 求 以 一 部 机 器 
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的 描述 作为 输入 。 给 定 了 一 个 输入 之 后 ， 求 值 器 就 能 够 规划 自己 的 行为 ,模拟 被 描述 机 器 的 
执行 过 程 。 举 例 来 说 ， 如 果 我 们 将 factorial 的 定义 馈 人 求 值 器 ， 如 图 4-3 所 示 ， 求 值 器 就 
能 够 计算 阶乘 。 


factorial 


720 


eae 


图 4-2 阶乘 函数 ， 看 作 抽 象 机 器 


(define (factorial n) 
(if (= n 1) 
1 
(* (factorial (- n 1)) n))) 


图 4-3 模拟 一 部 阶乘 机 器 的 求 值 器 


按照 这 一 观点 ,我们 的 求 值 器 可 以 看 做 是 一 种 通用 机 器 。 它 能 够 模拟 其 他 的 任何 机 器 ， 
只 要 它们 已 经 被 描述 为 Lisp 程 序 22。 这 是 非常 惊人 的 。 请 想 想 如 何 为 电子 电路 设想 一 种 类 似 的 
求 值 器 。 这 将 会 是 一 种 电路 ， 它 能 以 另 一 个 电路 〈 例 如 某 个 过 滤器 ) 的 信号 编码 方案 作为 输 


m 有 关 将 机 器 描述 为 Lisp 程 序 的 带 情 其 实 并 不 是 最 根本 的 。 如 果 我 们 送 给 自己 的 求 值 器 一 个 Lisp 程 序 ， 其 行为 
是 另 一 种 语言 (例如 C 语言) 的 求 值 器 ， 那 么 这 个 Lisp 求 值 器 就 能 模拟 该 C 求 值 器 ， 进 而 能 够 模拟 任何 用 C 
程序 的 形式 描述 的 机 器 。 同 样 ， 在 C 里 写 出 一 个 Lisp RE 器 也 将 产生 出 一 个 能 够 执行 所 有 Lisp 程 序 的 C 程 序 。 
这 里 的 深刻 思想 是 ， 任 一 求 值 器 都 能 模拟 其 他 的 求 值 器 。 这 样 ， 有 关 “ 原 则 上 说 什么 可 以 计算 ”( 忽 略 掉 有 
关 所 需 时 间 和 空间 的 实践 性 问题 ) 的 概念 就 是 与 语言 或 者 计算 机 无 关 的 了 ， 它 反映 的 是 一 个 有 关 可 计算 性 
的 基本 概念 。 这 一 思想 第 一 次 是 由 图 灵 (Alan M. Turing, 1912-1954) 以 如 此 清晰 的 方式 阐述 的 ， 图 灵 
1936 年 的 论文 为 计算 机 科学 理论 英 定 了 基础 。 在 这 篇 论文 里 ， 图 灵 给 出 了 一 种 简单 的 计算 模型 一 -现在 被 称 
为 图 灵 机 一 并 声称 ， 任何“ 有效 过 程 ”都 可 以 描述 为 这 种 机 器 的 一 个 程序 (这 一 论断 就 是 著名 的 诺 订 一 图 
灵 论 题 )。 图 灵 而 后 实现 了 一 台 通用 机 器 ， 即 一 台 图 灵机 ， 其 行为 就 像 是 所 有 图 灵机 程序 的 求 值 器 。 他 还 用 
这 一 理论 框架 证 明了 ， 存 在 着 能 够 清晰 地 提出 的 问题 ， 而 这 种 问题 是 图 灵机 不 能 计算 的 〈 见 练习 4.15)。 图 
灵 也 为 实践 性 的 计算 机 科学 做 出 了 英 基 性 的 贡献 。 例 如 ， 他 发 明了 采用 通用 子 程序 的 结构 化 程序 的 思想 。 
有 关 图 灵 的 生平 参见 Hodges 1983, 
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入 。 在 给 了 它 这 种 输入 之 后 ， 这 一 电路 求 值 器 就 能 具有 与 这 一 描述 所 对 应 的 过 滤器 同样 的 行 
为 。 这 样 的 一 个 通用 电子 线路 将 会 难以 想象 的 复杂 。 值 得 提出 的 是 ， 程 序 的 求 值 器 还 是 一 个 
相当 简单 的 程序 ”。 

求 值 器 的 另 一 惊人 方面 ， 在 于 它 就 像 是 在 我 们 的 程序 设计 语言 所 操作 的 数据 对 象 和 这 个 
程序 设计 语言 本 身 之 间 的 一 座 桥梁 。 现 在 设想 这 个 求 值 程序 (用 Lisp 实 现 ) 正在 运行 ， 一 个 
用 户 正 在 输入 表达 式 并 观察 所 得 到 的 结果 。 从 用 户 的 观点 看 ， 他 所 输入 的 形 如 (* x x) 的 
表达 式 是 程序 设计 语言 里 的 一 个 表达 式 ， 是 求 值 器 将 要 执行 的 东西 。 而 从 求 值 器 的 观点 看 ， 
这 一 表达 式 不 过 是 一 个 表 (在 目前 情况 下 ,是 三 个 符号 *、x 和 x 的 表 )， 它 所 要 去 做 的 ， 也 就 
是 按照 一 套 良 好 定义 的 规则 去 操作 这 个 表 。 

这 种 用 户 程 序 也 就 是 求 值 器 的 数据 的 情况 ， 未 必 会 成 为 产生 混乱 的 源泉 。 事 实 上 ， 有 时 
简单 地 忽略 这 种 差异 ， 为 用 户 提供 显 式 地 将 数据 对 象 当 作 Lisp 表 达 式 求 值 的 能 力 ， 允 许 他 们 
在 程序 里 直接 使 用 eval ， 甚 至 可 能 带 来 许多 方便 。 在 许多 Lisp 方 言 里 ， 都 提供 了 一 个 基本 的 
eval 过 程 , 这 个 过 程 以 一 个 表达 式 和 一 个 环境 作为 参数 , 在 这 一 环境 中 求 出 该 表达 式 的 值 ”。 
例如 : 


(eval '(* 5 5) user-initial-environment) 


和 


(eval (cons ’* (list 5 5)) user-initial-environment) 


都 将 返回 252”。 

练习 4.15 ”给 定 一 个 单 参数 的 过 程 P 和 一 个 对 象 a48， 称 p 对 a“ 终 止 "”， 如 果 对 于 表达 式 (P 
a) 的 求 值 能 返回 一 个 值 (与 得 到 一 个 错误 信息 而 终止 或 者 永远 运行 下 去 相对 应 ) 。 请 证 明 ， 
我 们 不 可 能 写 出 一 个 过 程 halts? ,使 它 能 正确 地 对 任何 过 程 P 和 对 象 a 判 定 是 否 P 对 a 终止 。 
请 采用 如 下 推理 过 程 : 如果 你 能 有 这 样 一 个 过 程 ， 你 就 可 以 实现 下 述 程 序 : 

(define (run-forever) (run-forever)) | 


(define (try p) 
(if (halts? p p) 
(run-forever ) 

*halted) ) 


现在 考虑 求 值 表达 式 (try try)， 并 说 明 任何 可 能 的 结果 (无论 终 止 或 者 永远 运行 下 去 ) 
都 将 违背 所 确定 的 haIts? 的 行为 ”。 


24 有 人 觉得 这 样 的 求 值 器 是 违反 直觉 的 ， 因 为 它 由 一 个 相对 简单 的 过 程 实现 ， 却 能 去 模拟 可 能 比 求 值 器 本 身 还 
要 复杂 的 各 种 程序 。 通 用 求 值 器 的 存在 是 计算 的 一 种 深刻 而 美妙 的 性 质 。 着 归 论 是 数理 逻辑 的 一 个 分 支 ， 这 
一 理论 研究 计算 的 逻辑 限制 。Douglas Hofstadter ye) HE (Godel, Escher, Bach) (1979) 里 探索 了 其 中 
的 一 些 思想 。 

25 警告 ， 这 一 eval 基 本 过 程 并 不 等 同 于 我 们 在 4.1.1 节 实现 的 eval 过 程 。 因 为 它 使 用 的 是 实际 的 Scheme 环境 ， 
而 不 是 我 们 自己 .在 4.1.3 节 里 构造 的 简单 环境 结构 。 这 些 实际 环境 不 能 由 用 户 作为 常规 的 表 去 操作 ， 而 只 能 通 
过 eval 和 其 他 特殊 操作 去 访问 。 与 此 类 似 ,我们 前 面 已 经 看 到 ， 基 本 过 程 apply 也 不 等 同 于 元 循环 求 值 器 
里 的 apply ， 因 为 它 使 用 也 是 实际 的 Scheme 过 程 ， 而 不 是 我 们 在 4.1.3 节 和 4.1.4 节 构造 的 过 程 对 象 。 

26 在 MIT 的 Scheme 实现 中 包含 有 eval ， 还 有 一 个 符号 user-initial-environment ， 它 约束 到 用 户 输入 表 
达 式 的 求 值 所 用 的 那个 初始 环境 。 

27 虽然 我 们 规定 了 送 给 halts? 的 是 一 个 过 程 对 象 ， 但 也 请 注意 ,这 一 推理 同样 适用 于 halts? 能 够 访问 过 程 
的 正文 或 者 它 的 运行 环境 的 情况 。 这 就 是 图 灵 伟 大 的 停机 定理 ， 是 清晰 给 出 的 第 一 个 不 可 计算 的 问题 ， 也 就 
是 说 ， 是 一 个 良好 刻画 的 工作 ， 但 却 不 能 由 一 个 计算 过 程 完 成 。 


I] 了 


4.1.6 内 部 定义 


我 们 的 求 值 和 元 循环 求 值 器 的 环境 模型 将 按 顺 序 执行 给 它 的 定义 ， 一 次 在 环境 框架 里 扩 
充 一 个 定义 。 对 于 交互 式 的 程序 开发 ， 这 样 做 是 特别 方便 的 ， 因 为 程序 员 需 要 自由 地 混合 过 
程 应 用 和 新 过 程 的 定义 。 然 而 ， 如 果 我 们 仔细 想 一 想 用 于 实现 块 结构 的 内 部 定义 (1.1.84 
介绍 )， 就 会 发 现 ， 这 种 一 次 一 个 名 字 的 环境 扩充 方式 可 能 不 是 定义 局 部 变量 的 最 好 方式 。 

考虑 一 个 带 有 内 部 定义 的 过 程 ， 例 如 : 

(define (f x) . 

(define (even? n) 
{if (= n 0) 
true 
(odd? (- n 1)))) 
(define (odd? n) 
(if (= n 0) 
false 
(even? (- n 1)))) 
<f 体 的 其 余部 分 >) 
我 们 在 这 里 的 意图 是 ， 在 过 程 even? 的 体 里 的 名 字 odd? 应 该 引用 过 程 0dd? ， 而 它 是 在 
even? 之 后 定义 的 。 名 字 odd? 的 作用 域 是 王 的 整个 体 ， 而 不 仅 是 王 的 体 里 从 出 现 odd? 的 
define 点 开始 的 那个 部 分 。 确 实 ， 在 我 们 考虑 odd? 本 身 也 是 基于 even? 定 义 的 时 候 一 一 所 
以 even? 和 odd? 是 相互 递归 定义 的 过 程 一 -就 可 以 看 到 ， 有 关 这 两 个 define 的 最 令 人 满意 
的 解释 ， 应 该 是 认为 两 个 名 字 even? 和 odd? 被 同时 加 入 环境 中 。 更 一 般 地 说 ， 在 块 结构 里 ， 
一 个 局 部 名 字 的 作用 域 ， 应 该 是 相应 Gefine 的 求 值 所 在 的 整个 过 程 体 。 

在 出 现 这 种 情况 时 ， 我 们 的 解释 器 将 能 正确 求 值 对 f 的 调用 ， 但 却 是 由 于 一 种 “非常 偶然 
的 ”原因 : 由 于 内 部 过 程 的 定义 出 现在 前 ， 而 在 所 有 这 些 东 西 都 定义 好 之 前 不 会 对 这 些 过 程 
的 调用 求 值 。 因 此 ， 在 even? 被 执行 时 odd? 已 经 定义 好 了 。 事 实 上 ， 只 要 过 程 里 的 内 部 定 
义 出 现在 体 和 用 于 定义 变量 的 值 表 达 式 的 求 值 之 前 ， 而 这 些 值 表达 式 又 不 实际 使 用 任何 被 定 
义 的 变量 ， 我 们 的 顺序 求 值 机 制 给 出 的 结果 就 与 直接 实现 同时 定义 完全 一 样 。( 作 为 不 满足 这 
些 限 制 的 一 个 例子 ， 因 此 顺序 定义 将 不 等 价 于 同时 定义 ， 请 参见 练习 4.19。) 7 

不 过 ， 确 实 存 在 一 种 处 理 这 些 定义 的 方法 ， 可 以 使 内 部 名 字 的 定义 真正 具有 同样 的 作用 
R. 。 为 此 只 需 在 求 值 任何 值 表达 式 之 前 ， 在 当前 环境 里 建立 起 所 有 的 局 部 变量 。 完 成 这 一 工 
作 的 一 种 方式 时 通过 Lambda 表 达 式 的 语法 变换 。 在 求 值 1ambda 表 达 式 的 体 之 前 ， 首 先 扫描 
并 且 删 除 掉 这 个 过 程 体 里 的 所 有 内 部 定义 ， 并 用 一 个 let 创建 这 些 内 部 定义 的 变量 ， 而 后 通 
过 赋值 设置 它们 的 值 。 举 个 例子 ， 过 程 

(lambda <vars> 


(define u <el>) 
(define v <e2>) 


228 希望 一 个 程序 不 依赖 于 这 种 求 值 机 制 ， 就 是 第 1 章 中 脚注 28 里 提出 “管理 并 非 一 种 责任 ”的 原因 。 强调 了 内 
部 定义 应 该 出 现在 前 ， 在 这 些 定义 被 求 值 期 间 不 使 用 它们 ，IEEE 的 Scheme 标准 在 关于 求 值 这 种 定义 所 用 的 
机 制 方面 将 选择 权 留 给 了 实现 者 。 在 这 里 选择 其 种 求 值 方式 而 不 是 另 一 种 ， 看 起 来 像 是 一 个 小 问题 ， 只 会 影 
响 到 那些 “形式 不 好 的 ”程序 的 解释 。 然 而 ， 在 5.5.6 节 我 们 将 会 看 到 ， 转 变 到 内 部 定义 的 同时 作用 域 ， 将 能 
避免 一 些 很 辐 手 的 难题 ， 如 果 不 这 样 ， 这 些 问题 就 会 出 现在 编译 器 的 实现 中 。 
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<e3>) 


将 被 翻译 为 
{lambda <vars> 
(let ((u ’*unassigned*) 
(v ’*unassigned*) ) 
(set! u <el>) 
(set! v <e2>) 
<e3>) ) 
这 里 的 :unassigned* 是 一 个 特殊 符号 ， 在 查找 一 个 变量 ， 企 图 去 使 用 一 个 尚未 赋值 的 变量 
的 值 时 ， 它 将 导致 发 出 一 个 错误 信号 。 
扫描 出 所 有 内 部 定义 的 另 一 种 策略 在 练习 4.18 中 给 出 。 与 上 面 的 变换 方式 不 同 ， 它 将 强加 
一 种 限制 ， 要 求 被 定义 变量 的 值 能 在 不 用 其 他 变量 的 值 的 情况 下 进行 求 值 ”*。 
练习 4.16 ”在 这 一 练习 里 ， 我 们 要 实现 刚刚 介绍 的 解释 内 部 定义 的 方式 。 现 在 假定 求 值 
器 已 经 支持 let (练习 4.6)。 
a) 请 修改 Iookup-variable-value (第 4.1.3 节 )， 使 它 在 发 现 的 值 是 符号 *unassigned* 
时 发 出 一 个 出 错 信 号 。 
b) 请 写 出 一 个 过 程 scan-out-defines， 它 以 一 个 过 程 体 为 参数 ， 返 回 一 个 不 包括 内 
部 定义 的 等 价 表 达 式 ， 完 成 上 面 描 述 的 变换 。 
c) 请 将 scan-out~defines 安装 到 解释 器 里 ， 或 者 将 其 安 到 make~procedure 里 , 或 
者 安 到 procedure-body 里 ( 见 4.1.3 节 )。 安 装 在 哪个 位 置 更 好 些 ? 为 什么 ? 
练习 4.17 ”请 画 出 一 个 图 形 ， 说 明 在 求 值 正文 中 过 程 里 的 表达 式 <e3> 时 有 关 环 境 的 作用 。 
请 构造 出 在 按照 顺序 方式 解释 定义 时 的 情况 ， 以 及 如 果 将 内 部 定义 像 上 面 所 说 的 那样 扫描 出 
来 时 的 环境 情况 ， 对 它们 做 一 些 比较 。 为 什么 对 于 变换 之 后 的 程序 多 出 了 一 个 框架 ? 请 解释 
为 什么 环境 结构 的 这 种 差异 不 会 造 出 正确 程序 的 不 同行 为 方式 。 请 设计 一 种 方式 ， 使 解释 器 
能 实现 内 部 定义 的 “同时 性 ”作用 域 规 则 ， 而 又 不 需要 构造 额外 的 框架 。 
练习 4.18 考虑 下 面 的 另 一 种 扫描 出 定义 的 方式 ， 它 将 正文 里 的 例子 变换 为 : 
{lambda <vars> 
(let ((u ’*unassigned*) 
(v ’*unassigned*)) 
(let ((a <el>) 
(b <e2>)) 
(set! u a) 
(set! v b)) 
<e3>) ) 
这 里 的 a 和 b 表 示 的 是 新 变量 名 字 ， 它 们 由 解释 器 建立 ， 不 会 出 现在 用 户 程 序 里 。 考 虑 取 自 
3.5.4 节 的 soLIVe 过 程 ， 


(define (solve f y0 dt) 
(define y (integral (delay dy) y0 dt)) 
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求 它 。 有 些 Scheme 实现 ， 包 括 MIT 的 Scheme ， 采 用 了 上 面 所 说 的 变换 。 这 样 ， 一 些 并 不 违反 这 一 限制 的 程序 
将 能 够 在 这 种 实现 上 运行 。 


(define dy (stream-map f y)) 
yY) 、 
如 果 采 用 本 练习 所 示 的 扫描 出 内 部 定义 的 方式 ， 这 一 过 程 还 能 工作 吗 ? 如 果 采 用 正文 中 给 出 
的 扫描 方式 呢 ? 请 给 出 解释 。 
练习 4.19 Ben Bitdiddle, Alyssa P. Hacker 和 Eva Lu Ator 在 关于 下 面 表达 式 的 期 望 求 值 
结果 上 有 和 争论: 


(let ((a 1)) 

(define (f x) 
(define b (+ a x)) 
(define a 5) 

(+ a b)) 

(£ 10)) 


Ben 断 言 使 用 define 的 顺序 规则 将 能 得 到 结果 ， 那 时 b 被 定义 为 11 ， 而 后 a 定 义 为 5， 所 以 最 
后 的 结果 是 16。Alyssa 反 对 说 ， 相 互 递归 要 求 内 部 过 程 定 义 的 同时 性 作用 域 规则 ， 将 过 程 名 
字 看 做 与 其 他 名 字 不 同 是 不 合理 的 。 因 此 她 为 练习 4.16 提 出 的 机 制 辩护 ， 这 将 导致 在 需要 计 
算 b 值 的 时 候 a 还 没有 赋值 。 按 照 Alyssa 的 观点 ， 这 个 过 程 产 生 一 个 错误 。Eva 持 第 三 种 观点 ，. 
她 说 如 果 a 的 b 的 定义 真正 是 间 时 的 ， 那 么 a 的 值 5 应 该 能 用 在 b 的 求 值 中 。 这 样 ， 按 照 Eva 的 观 
点 ，a 应 该 是 5 ，b 应 该 是 15 ， 而 最 终结 果 应 该 是 20。 你 支持 哪 种 观点 ? 你 能 设计 出 一 种 实现 
内 部 定义 的 方案 ， 使 之 具有 Eva 所 喜欢 的 行为 吗 ? 全 
练习 4.20 ”由 于 内 部 定义 表面 上 看 是 顺序 的 ， 实 际 上 却 是 同时 性 的 ， 有 些 人 就 希望 完全 
避免 它们 ， 采 用 另 一 种 特殊 形式 letrec。letrec 看 起 来 像 let ， 因 此 毫 不 奇怪 ， 它 的 变量 
约束 都 是 同时 建立 的 ， 各 个 变量 都 具有 同样 的 作用 域 。 与 上 面 一 样 的 过 程 f 现 在 可 以 写成 没有 
内 部 定义 的 形式 ， 但 却 具有 相同 的 意义 : 
(define (f x) 
(letrec ((even? 
(lambda (n) 
(if (= n 0) 
true 
(odd? (~ n 1))))) 


(odd? 
(lambda (n) 
(if (=n 0) 
false 
(even? (- n 1)))))) 
<f 体 的 其 余部 分 > )) 
letrec 表 达 式 具有 如 下 形式 
(letrec ((<vari> <expi>) ... (<var,> <exp,>)) 


<body>) 


它 是 let 的 一 种 变形 ， 其 中 的 表达 式 <expt> 为 变量 <vari> 提 供 内 部 值 ， 这 些 表达 式 的 求 值 是 在 


230 MIT 的 Scheme 实现 支持 Alyssa， 基 于 如 下 基础 ， 从 原则 上 说 Eva 是 正确 的 一 一 定义 应 该 认为 是 同时 的 。 都 是 看 
起 来 很 难 有 一 种 一 般 性 的 有 效 机 制 实现 Eva 的 需求 。 既 然 缺乏 这 样 一 种 机 制 ， 那 么 最 好 就 是 在 遇 到 困难 的 同 
时 定义 时 产生 一 个 错误 (Alyssa 的 观点 ) ， 而 不 是 产生 一 个 不 正确 的 结果 (Ben 所 希望 的 ) 。 


一 个 包含 了 所 有 1Letzec 约 束 的 环境 里 完成 的 。 这 样 也 就 允许 了 约束 中 的 递归 ， 例 如 上 面 例子 
里 even? 和 odd? 的 相互 递归 ， 或 者 采用 下 面 方式 求 10 的 阶乘 : 
(letrec ((fact 
(lambda (n) 
(if (= n 1) 
1 
(* n (fact (- n 1))))))) 
(fact 10)) 


a) 请 将 letrec 实 现 为 一 种 派生 表达 式 ， 将 这 种 表达 式 变 换 为 如 上 面 正 文中 所 描述 的 ， 或 
者 如 练习 4.18 所 述 的 Let 表 达 式 。 也 就 是 说 ， 用 一 个 let 创 建 的 Letrec 变 量 ， 而 后 用 set! 给 


它们 赋值 。 
b) Louis Reasoner 对 于 所 有 这 些 有 关内 部 定义 的 大 惊 小 怪 感到 很 困惑 。 他 看 这 些 问 题 的 方 


式 是 ， 如 果 你 不 喜欢 在 一 个 过 程 里 用 define ,你 就 可 以 只 用 let 。 请 画 出 一 个 环境 图 ， 说 明 
在 求 值 表达 式 (£ 5) 的 过 程 中 ， 求 值 到 <rest of body of £> 时 的 环境 情况 ， 以 此 说 明 为 什么 
Louis 的 推理 是 不 严谨 的 。 这 里 的 f 如 本 练习 中 的 定义 。 再 为 同一 个 求 值 画 出 一 个 环境 图 ， 将 f 
定义 中 的 Letrec 换 成 Jet 。 
练习 4.21 ”非常 有 趣 ，Louis 在 练习 4.20 里 的 直觉 是 正确 的 。 确 实 有 可 能 不 用 Letrec mii 
述 出 递归 过 程 (甚至 也 不 需要 用 define ) ， 虽 然 完成 此 事 的 方式 远 比 Louis 的 设想 微妙 得 多 。 
下 面 表达 式 能 通过 应 用 一 个 递归 的 阶乘 过 程 计算 出 10 的 阶乘 3! ， 
((lambda (n) 
((lambda (fact) 
(fact fact n)) 
(lambda (ft k) 
(if (= k 1) 
1 
(* k (ft ft (- k 1))))))) 
10) 


a) 请 仔细 检查 〈 通 过 求 值 这 个 表达 式 ) ， 以 确定 这 个 表达 式 确实 能 算出 阶乘 。 设 计 一 个 计 


算 斐 波 纳 契 数 的 类 似 表达 式 。 
b 考虑 下 面 过 程 ， 其 中 包含 相互 递归 的 内 部 定义 : 


(define (f x) 
(define (even? n) 
(if (= n 0) 
true 
(odd? (- n 1)))) 
(define (odd? n) 
(if (= n 0) 
false 
(even? (= n 1)))) 
(even? x)) 


231 这 个 例子 说 明了 一 种 不 用 define 构 造 递归 过 程 的 程序 设计 诡计 。 这 类 诡计 中 最 一 般 的 是 Y 运算 符 ， 可 以 用 它 
给 出 递归 的 一 个 “ 纯 & 演 算 ”实现 。( 参 见 Stoy 1977 有 关 lambda 演 算 的 细节 ， 以 及 Gabriel 1988 有 关 在 Scheme 
里 Y 运 算 并 的 展示 。) i 


请 填充 下 面 上 的 定义 中 空缺 的 表达 式 ， 完 成 它 ， 其 中 不 使 用 内 部 定义 也 不 用 letrec : 
(define (f x) 

((lambda (even? odd?) 
(even? even? odd? x)) 

(lambda (ev? od? n) 
(if (= n 0) true (od? <??> <??> <??>))) 

(lambda (ev? od? n) 
(if (= n 0) false (ev? <??> <??> <?2?>))))) 


4.1.7 将 语法 分 析 与 执行 分 离 


上 面 实现 的 求 值 器 确实 很 简单 ， 但 却 也 非常 低 效 ， 因 为 有 关 表 达 式 的 语法 分 析 与 它们 的 
执行 交织 在 一 起 。 如 果 一 个 程序 要 执行 许多 次 ， 对 于 它 的 语法 分 析 也 就 需要 做 许多 次 。 举 例 
来 说 ， 考 虑 采用 下 面 的 factorial 定 义 求 值 (factorial 4): 


(define (factorial n) 
(if (=n 1) 
1 
(* (factorial (- n 1)) n))) 
在 每 次 调用 factorial 时 ， 求 值 器 就 需要 确定 它 的 体 是 一 个 if 表 达 式 ,而 后 提取 出 其 中 
的 谓词 。 只 有 到 了 此 时 ， 它 才能 去 求 值 这 个 谓词 并 基于 它 的 值 完 成 分 派 。 每 次 去 求 值 表达 式 
(* (factorial (- n 1)) n), 或 者 子 表达 式 (factorial (- n 1)) 和 (- n 1) 时 ， 
求 值 器 都 必须 执行 eval 里 的 分 情况 分 析 ， 以 便 确 定 相应 的 表达 式 是 过 程 应 用 ， 而 且 必 须 提 取 
出 有 关 的 运算 符 和 运算 对 象 。 这 种 分 析 是 代价 高 昂 的 ， 反 复 执行 它们 是 一 种 浪费 。 
我 们 可 以 对 这 个 求 值 器 做 一 些 变换 ， 使 它 的 效率 大 大 提高 ， 采 用 的 方法 就 是 重新 安排 其 
中 的 工作 ， 使 有 关 的 语法 分 析 只 进行 一 次 2 所。 我 们 要 将 以 一 个 表达 式 和 一 个 环境 为 参数 的 
eval 分 割 为 两 个 部 分 。 过 程 analyze 只 取 表 达 式 作为 参数 ， 它 执行 语法 分 析 ， 并 返回 一 个 
新 的 过 程 ， 执 行 过 程 ， 其 中 封装 起 在 分 析 表 达 式 的 过 程 中 已 经 完成 的 工作 。 这 个 执行 过 程 以 
一 个 环境 作为 参数 ， 并 完成 实际 的 求 值 工作 。 这 样 就 会 节省 需要 做 的 工作 ， 因 为 对 一 个 表达 
式 只 需要 调用 一 次 analyze ， 而 执行 过 程 却 可 能 被 调用 许多 次 。 
将 语法 分 析 和 执行 分 开 之 后 ，eval 现 在 就 变 成 了 


(define (eval exp env) 
( (analyze exp) env)) 


调用 analyze 的 结果 得 到 了 一 个 执行 过 程 ， 而 后 将 它 应 用 于 环境 。 analyze 过 程 完成 像 
4.1.1 节 里 原来 eval 那 样 的 分 情况 分 析 ， 除 了 其 中 的 分 派 过 程 只 执行 分 析 工 作 ， 不 进行 完全 的 
求 值 之 外 : 


(define (analyze exp) 
(cond ((self-evaluating? exp) 
(analyze-self-evaluating exp) ) 
((quoted? exp) (analyze-quoted exp)) 


232 这 一 技术 是 编译 过 程 中 的 一 个 内 在 组 成 部 分 ， 有 关 编译 的 问题 将 在 第 5 章 讨论 。Jonathan Rees 为 T 项 目 写 了 一 
个 类 似 这 里 的 Scheme 编译 器 (Rees and Adams 1982), Marc Feeley (1986) ( 见 Feeley and Lapalme 1987 ) 


在 其 硕士 论文 里 独立 地 发 明了 这 一 技术 。 
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((variable? exp) (analyze-variable exp) ) 
((assignment? exp) (analyze-assignment exp) ) 

( (definition? exp) (analyze-definition exp) ) 

((if? exp) (analyze-if exp)) 

( (lambda? exp) (analyze-lambda exp) ) 

((begin? exp) (analyze~sequence (begin-actions exp))) 
((cond? exp) (analyze (cond->if exp))) 

( (application? exp) (analyze-application exp) ) 

(else 

(error "Unknown expression type -- ANALYZE" exp)))) 


下 面 是 一 个 处 理 自 求 值 表 达 式 的 简单 分 析 过 程 ， 它 返回 一 个 忽略 环境 参数 的 执行 过 程 ， 
直接 返回 相应 的 表达 式 ， 


(define (analyze-self-evaluating exp) 
(lambda (env) exp)) 


对 于 引号 表达 式 ， 我 们 可 以 通过 在 分 析 时 提取 出 被 引 表达 式 ， 而 不 是 在 执行 中 去 做 的 方 
式 ， 使 这 项 工作 只 需要 做 一 次 ， 从 而 提高 一 点 效率 。 
(define (analyze-quoted exp) 


(let ((qval (text-of-quotation exp))) 
(lambda (env) qval))) 


查看 变量 的 值 仍然 需要 在 执行 过 程 中 做 ， 因 为 这 个 值 依赖 于 所 用 的 环境 。 


(define (analyze-variable exp) 
(lambda (env) (lookup~variable-value exp env))) 


analyze-assignment 也 必须 推迟 到 执行 时 才能 去 实际 设置 变量 的 值 ， 因 为 那 时 才 提 
供 了 操作 的 环境 。 然 而 ， 在 分 析 阶段 已 经 (递归 地 ) 完成 了 对 assignment-value 表 达 式 
的 分 析 ， 这 一 事实 还 是 可 以 大 大 提高 效率 ， 因 为 现在 对 assignment-value 表 达 式 的 分 析 

只 需要 进行 一 次 。 这 种 说 法 对 于 定义 也 是 对 的 。 


(define (analyze-assignment exp) 
(let ((var (assignment-variable exp)) 
(vproc (analyze (assignment-value exp)))) 
(lambda (env) 
(set-variable-value! var (vproc env) env) 
*ok))) 


(define (analyze-definition exp) 
(let ((var (definition-variable exp) ) 
(vproc (analyze (definition-value exp)))) 
(lambda (env) 
(define-variable! var (vproc env) env) 
*ok))) 


对 于 if 表达 式 ， 我 们 在 分 析 过 程 中 提取 并 分 析 其 谓词 、 推 理 和 替代 部 分 。 


(define (analyze-if exp) 
(let ((pproc (analyze (if-predicate exp) ) ) 


3 然而 ， 变 量 搜索 中 的 很 大 一 部 分 工作 也 可 以 在 语法 分 析 阶段 完成 。 正 如 将 在 5.5.6 节 看 到 的 ， 我 们 可 以 在 环境 
结构 中 确定 能 找到 变量 的 值 的 位 置 ， 这 样 就 免除 了 查找 整个 环境 去 确定 变量 匹配 的 需要 。 
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(cproc (analyze (if-consequent exp))) 
(aproc (analyze (if-alternative exp)))) 
{lambda (env) 
(if (true? (pproc env)) 
(cproc env) 
(aproc env))))) 


分 析 Iambda 表 达 式 也 能 得 到 很 大 的 效率 收获 ， 因 为 只 要 分 析 Iambda 体 一 次 ， 即 使 作为 
这 一 lambda 的 求 值 结果 的 过 程 可 能 应 用 许多 次 。 
(define (analyze-lambda exp) 
{let ((vars (lambda-parameters exp)) 
(bproc (analyze-sequence (lambda-body exp) ))) 
(lambda (env) (make-procedure vars bproc env)))) 


对 于 表达 式 序 列 的 分 析 (如 一 个 begin 或 者 一 个 lambda 表 达 式 的 体 ) 是 更 加 深入 的 ”4。 
序列 中 的 每 个 表达 式 都 将 被 分 析 ， 产 生出 一 个 执行 过 程 。 这 些 执行 过 程 被 组 合 起 来 形成 一 个 
执行 过 程 ， 该 执行 过 程 以 一 个 环境 为 参数 。 它 以 这 个 环境 作为 参数 ， 顺 序 地 调用 各 个 独立 的 
执行 过 程 。 i 

(define (analyze-sequence exps) 

(define (sequentially procl proc2) 
(lambda (env) (procl env) (proc2 env))) 
(define (loop first-proc rest-procs) 
(if (null? rest-procs) 
first-proc 
(loop (sequentially first-proc (car rest-procs)) © 
(cdr rest-procs)))) . 
(let ((procs (map analyze exps))) 
(if (null? procs) 
(error "Empty sequence -- ANALYZE") ) 
(loop (car procs) (cdr procs)))) 


为 了 分 析 一 个 过 程 应 用 ， 我 们 就 需要 分 析 其 中 的 运算 符 和 运算 对 象 ， 并 构造 出 一 个 执行 
过 程 ， 它 能 调用 运算 符 的 执行 过 程 (获得 实际 需要 应 用 的 哪个 过 程 ) 和 运算 对 象 的 执行 过 程 
(获得 实际 参数 )}。 而 后 我 们 将 这 些 送 给 execute-application， 这 一 过 程 与 4.1.1 节 的 
apply 类 似 。execute-~application 与 apply 的 不 同 之 处 ,在 于 这 里 作为 复合 过 程 的 过 
程 体 已 经 过 分 析 ， 因 此 不 再 需要 做 进一步 的 分 析 了。 此 时 只 需要 在 扩充 的 环境 里 调用 过 程 体 
的 执行 过 程 。 E 

(define (analyze-application exp) 

(let ((fproc (analyze (operator exp))) 
(aprocs (map analyze (operands exp)))) 
(lambda (env) 
(execute-application (fproc env) 
(map (lambda (aproc) (aproc env) ) 
aprocs))))) 


(define (execute-application proc args) 
(cond ((primitive-procedure? proc) 


734 参见 练 区 .23 有 关 序列 处 理 的 某 些 见解 。 


(apply-primitive-procedure proc args)) 
( (compound-procedure? proc) 
((procedure-body proc) 
(extend-environment (procedure-parameters proc) 
args 
(procedure-environment proc)))) 
(else 
(error 
"Unknown procedure type -- EXECUTE-APPLICATION" 
proc)))) 


我 们 的 新 求 值 器 所 使 用 的 数据 结构 、 语 靶 过 程 和 运行 支持 过 程 与 4.1.2 节 、4.1.3 节 和 4.1.4 
节 中 的 完全 一 样 。 

练习 4.22 请 扩充 本 节 的 求 值 器 ， 使 之 能 支持 特殊 形式 let (参见 练习 4.6)。 

练习 4.23 Alyssa P. Hacker 不 能 理解 为 什么 analyze-sequence 需 要 如 此 复杂 ， 而 所 有 
其 他 的 分 析 过 程 都 是 4.1.1 节 里 的 对 应 求 值 过 程 (或 者 eval 子 句 ) 的 直接 变换 。 她 所 想象 的 
analyze-sequence 大 致 具有 下 面 的 样子 : 


(define (analyze-sequence exps) 
(define (execute-sequence procs env) 
(cond ((null? (cdr procs)) ((car procs) env)) 
(else ((car procs) env) 
(execute-sequence (cdr procs) env)))) 
(let ((procs (map analyze exps))) 
(if (null? procs) 
(error "Empty sequence -- ANALYZE") ) 
(lambda (env) (execute-sequence procs env)))) 


Eva Lu Ator 给 Alyssa 解 释 说 ， 正 文中 给 出 的 版 本 在 分 析 阶 段 完成 了 序列 求 值 中 更 多 的 工作 。 
Alyssa 的 序列 求 值 过 程 并 没有 去 调用 内 部 建立 的 各 个 求 值 过 程 ， 而 是 循环 地 通过 一 个 过 程 去 调 
用 它们 。 从 效果 看 ， 虽 然 序 列 中 各 个 表达 式 都 经 过 了 分 析 ， 但 整个 序列 本 身 却 没有 分 析 。 

请 对 这 两 个 analyze-sequence 版 本 做 一 个 比较 。 例 如 ， 考 虑 一 种 常见 的 情况 〈 典 型 
的 过 程 体 )， 其 中 的 序列 只 有 一 个 表达 式 。 由 Alyssa 的 程序 产生 的 执行 过 程 将 会 做 些 什么 ? 由 
上 面 正文 中 的 程序 产生 的 执行 过 程 又 怎么 样 呢 ? 两 个 版 本 在 一 个 包含 两 个 表达 式 的 序列 上 的 
工作 比较 如 何 ? 

练习 4.24 ”请 设计 并 完成 一 些 试验 ， 比 较 原来 的 元 循环 求 值 器 和 本 节 的 这 个 版 本 的 速度 。 
用 你 的 结果 评估 各 种 过 程 在 分 析 阶 段 和 执行 阶段 所 花费 的 时 间 的 比例 。 


4.2 Scheme 的 变形 一 一 惰性 求 值 


有 了 一 个 以 Lisp 程 序 形式 描述 的 求 值 器 ， 我 们 现在 就 可 以 通过 简单 地 修改 这 一 求 值 器 ， 
试验 一 些 语言 设计 的 选择 和 变化 。 确 实 ， 发 明 新 的 语言 ， 常 常 就 是 先 用 一 种 现 有 的 高 级 程序 
设计 语言 写 出 一 个 嵌入 了 这 个 新 语言 的 求 值 器 。 举 例 来 说 ， 如 果 我 们 希望 与 Lisp 社 团 的 其 他 
成 员 讨 论 对 Lisp 提 出 的 某 些 修 改 ， 那 么 就 可 以 提供 一 个 体现 了 这 些 修 改 的 求 值 器 。 接 收 者 可 
以 用 这 个 新 求 值 器 做 一 些 试验 ， 而 后 送 回 一 些 评论 意见 供 进一步 修改 。 高 层次 的 实现 基础 不 
仅 使 我 们 更 容易 测试 求 值 器 ， 排 除 其 中 的 错误 ， 进 一 步 说 ， 这 种 戏 入 也 使 设计 者 能 从 基础 语 
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言 抄录 ”一 些 特征， 就 像 我们 的 嵌入 式 Lisp 求 值 器 中 使 用 了 取 自 基础 Lisp 的 基本 过 程 和 控制 结 
构 那样 。 只 有 到 了 后 来 〈 如 果 需 要 的 话 ) ， 设 计 者 才 需 要 进一步 去 面 对 在 某 个 低级 语言 或 者 硬 
件 中 做 出 一 个 完整 实现 的 麻烦 事情 。 在 本 节 和 后 面 儿 节 里 ， 我 们 将 探究 Scheme 的 几 种 变形 ， 
它们 都 提供 了 明显 的 额外 描述 能 力 。 


4.2.1 正则 序 和 应 用 序 


.在 1.1 节 里 开始 讨论 求 值 模型 时 ， 我 们 就 说 Scheme 是 一 个 采用 应 用 上 序 的 语言 ， 也 就 是 说 ， 
在 过 程 应 用 的 时 候 ， 提 供给 Scheme 过 程 的 所 有 参数 都 需要 完成 求 值 。 与 此 相反 ， 采 用 正则 
序 的 语言 将 把 对 过 程 参数 的 求 值 延 后 到 需要 这 些 实际 参数 的 值 的 时 候 。 将 过 程 参 数 的 求 值 拖 
延 到 最 后 的 可 能 时 刻 〈( 也 就 是 说 ， 直 至 某 些 基本 操作 实际 需要 它们 的 时 刻 ) 也 被 称 为 惰性 求 
io, BE: 

(define (try a b) 

(if (= a 0) 1 b)) 
对 于 (try 0 (/ 1 0)) 的 求 值 将 在 Scheme 里 产生 一 个 错误 ， 而 对 于 惰性 求 值 就 不 会 出 错 。 
在 那里 对 这 个 表达 式 求 值 将 返回 1 ， 因 为 参数 (/ 1 0) 根本 不 会 被 求 值 。 
下 面 过 程 unless 的 定义 是 另 一 个 利用 情 性 求 值 的 例子 ， 
(define (unless condition usual-value exceptional-value) 
(if condition exceptional-value usual-value) ) 
它 可 以 用 在 下 面 这 样 的 表达 式 里 : 
(unless (= b 0) 
(/ a b) 
(begin (display "exception: returning 0") 
0)) 
在 采用 应 用 序 的 语言 里 ， 这 样 做 就 不 行 了 ， 因 为 在 unless 被 调用 之 前 ,这 里 的 正常 值 和 异 
常 值 都 会 被 求 值 (请 与 练习 1.6 比 较 一 下 )。 情 性 求 值 的 一 个 优点 就 是 使 某 些 过 程 (例如 
unless) 能 够 完成 有 用 的 计算 ， 即 使 对 它们 的 某 些 参数 的 求 值 将 产生 错误 甚至 根本 不 能 终 
ik. 

如 果 在 某 个 参数 还 没有 完成 求 值 之 前 就 进入 一 个 过 程 的 体 ， 我 们 就 说 这 一 过 程 相 对 于 该 
参数 是 非 严格 的 。 如 果 在 进入 过 程 体 之 前 某 个 参数 已 经 完成 求 值 ， 我 们 就 说 该 过 程 相 对 于 这 
个 参数 为 严格 的 27。 在 一 个 纯 的 应 用 序 语 言 里 ， 所 有 的 过 程 相 对 于 每 个 参数 都 是 严格 的 。 而 
在 一 个 纯 的 正则 序 语言 里 ， 所 有 的 复合 过 程 对 每 个 参数 都 是 非 严格 的 ， 而 基本 过 程 可 以 是 严 
格 的 ， 也 可 以 是 非 严 格 的 。 也 存在 一 些 语言 (参见 练习 4.31)， 它 们 允许 程序 员 对 自己 定义 的 


25 抄录 :“ 抄 取 ， 特 别 是 对 很 大 的 文档 或 者 材料 ， 目 的 就 是 使 用 它 ， 无 论 是 得 到 或 者 没有 得 到 其 拥有 者 的 允许 。” 
摘录 : “抄录 ， 有 时 还 包含 着 吸收 、 处 理 的 理解 之 意 。 ” (这 些 定义 抄录 自 Steele et al. 1983 ， 也 见 Raymond 
“1993, ) 

6 术语 “ 情 性 ”和 “正则 序 ” 之 间 的 差异 有 时 会 使 人 感到 有 些 困惑 。 一 般 说 ,“ 情 性 ” 指 的 是 特定 求 值 器 里 的 
有 关机 制 ， 而 “正则 序 ” 指 的 是 语言 的 语义 ， 与 特定 的 求 值 策略 无 关 。 当然， 这 并 不 是 黑白 分 明 的 划分 ， 两 
种 说 法 也 常常 被 相互 替代 地 使 用。 

27 “严格 ”和 “ 非 严格 ”的 术语 基本 上 表示 了 与 “应 用 序 ” 和 “正则 序 ” 同样 的 意思 ， 但 是 它们 针对 的 是 个 别 
的 过 程 和 参数 ， 而 不 是 针对 整个 语言 。 在 一 个 有 关 程 序 设计 语言 的 会 议 上 ， 你 可 能 会 听 到 某 人 说 , “EMF 
语言 Hassle 包含 了 一 些 严格 的 基本 过 程 。 其 他 过 程 以 情 性 求 值 的 方式 处 理 其 参数 。 
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过 程 的 严格 性 做 细节 的 控制 。 

将 过 程 做 成 非 严 格 的 也 可 能 很 有 用 ， 一 个 特别 使 人 印象 深刻 的 例子 就 是 cons (或 者 一 般 
地 说 ， 任 何 数据 结构 的 构造 函数 )。 这 样 ， 我 们 就 可 以 在 甚至 还 不 知道 元 素 的 值 的 情况 下 ， 就 
去 完成 一 些 有 用 的 计算 ， 将 元 素 组 合 起 来 形成 数据 结构 ， 并 对 得 到 的 数据 结构 做 各 种 操作 。 
这 确实 非常 有 意义 。 举 例 来 说 ， 这 样 就 可 以 在 不 知道 一 个 表 里 的 元 素 值 的 情况 下 计算 表 的 长 
度 。 我 们 将 在 4.2.3 节 利用 这 一 思想 ， 把 第 3 章 的 流 实 现 为 由 非 严格 的 cons 序 对 构成 的 表 。 


练习 4.25 ”假定 (在 常规 的 应 用 序 的 Scheme 里 ) 定义 了 如 上 所 示 的 abn1ess ， 而 后 基于 
unless 将 factorial 定 义 为 : 
(define (factorial n) 
(unless (= n 1) 
(* n (factorial (- n 1))) 
1)) 
在 企图 计算 (factorial 5) 时 会 出 现 什么 问题 ?上述 定义 在 正则 序 语 言 里 能 够 工作 
吗 ? 
练习 4.26 Ben Bitdiddle 和 Alyssa P. Hacker 对 于 在 实现 诸如 unless 一 类 东 西 中 情 性 求 值 
的 重要 性 有 不 同意 见 。Ben 指 出 ， 有 可 能 在 应 用 序 语言 里 将 unless 实现 为 一 个 特殊 形式 。 
Alyssa 则 反对 这 一 说 法 ， 认 为 如 果真 的 那样 做 ，unless 就 将 只 是 一 种 语法 形式 而 不 是 一 个 过 
程 了 ， 因 而 就 不 能 与 高 阶 过 程 结合 在 一 起 工作 。 请 为 这 两 种 论述 填充 一 些 细节 : 证 明 可 以 如 
何 将 unless 实 现 为 一 种 派生 表达 式 (就 像 cond 或 者 let) ， 再 给 出 一 种 情况 作为 实例 ， 说 
明 如 果 unless 可 以 用 作 一 个 过 程 而 不 是 特殊 形式 ， 在 这 一 情况 里 就 可 以 使 用 。 


4.2.2 一 个 采用 情 性 求 值 的 解释 器 


在 这 一 节 里 ， 我 们 将 要 实现 一 种 正则 序 语言 ， 它 与 Scheme 完 全 相同 ， 但 是 其 中 的 复合 过 
程 对 任何 参数 都 是 非 严格 的 。 基 本 过 程 将 仍然 是 严格 的 。 修 改 4.1.1 节 的 求 值 器 ， 使 它 能 按照 
这 种 方式 解释 程序 ， 这 一 工作 并 不 困难 。 需 要 完成 的 所 有 修改 都 围绕 着 过 程 应 用 。 

这 里 的 基本 想法 就 是 ， 在 应 用 一 个 过 程 时 ， 解 释 器 必须 确定 哪些 参数 需要 求 值 ， 哪 些 应 
该 延 时 求 值 。 对 于 这 些 延 时 的 参数 都 不 进行 求 值 ， 相 反 ， 这 里 将 它们 变换 为 一 种 称 为 档 
(thunk) 的 对 象 28。 在 槽 里 必须 包含 着 为 了 产生 这 一 参数 的 值 (在 需要 这 个 值 的 时 候 ) 所 需 
要 的 全 部 信息 ， 就 像 它 已 经 在 应 用 时 求 出 值 一 样 。 为 此 ， 槽 中 就 必须 包括 参数 表达 式 ， 以 及 
这 一 过 程 应 用 的 求 值 所 在 的 那个 环境 。 

对 槽 中 的 表达 式 求 值 的 过 程 称 为 强迫 29。 一 般 而 言 ， 只 有 在 需要 一 个 槽 的 值 时 才 会 去 强 
迫 它 ， 这 包括 : 在 将 它 送 给 一 个 基本 过 程 ， 而 基本 过 程 需要 用 这 个 值 时 ， 当 它 是 某 个 条 件 表 
达 式 的 谓词 的 值 时 ， 当 它 是 某 个 运算 符 的 值 ， 而 现在 需要 将 它 作为 一 个 过 程 去 应 用 时 。 现 在 
要 处 理 的 一 个 选择 是 采用 或 者 不 采用 记忆 性 的 槽 ， 就 像 前 面 在 3.5.1 节 对 延 时 对 象 所 做 的 那样 。 
有 了 记忆 之 后 ， 一 旦 某 个 槽 第 一 次 被 强迫 ， 它 就 保存 起 计算 出 的 值 。 随 后 的 强迫 只 需要 简单 


zs 术语 槽 是 一 个 非 正 式 的 工作 组 在 讨论 Algol 60 中 命名 调用 机 制 的 实现 时 发 明 的 。 他 们 大 到， 有关 表达 式 的 大 
部 分 分 析 (“思考 ”) 都 能 在 编译 时 完成 ， 这 样 到 运行 时 ， 表 达 式 已 经 被 上 权 了 (Ingerman etal. 1960) 。 

23 这 与 对 于 延 时 对 象 的 force 的 用 法 类 似 ,第 3 章 引 进 了 这 种 对 象 ， 用 于 表示 流 。 我 们 在 这 里 所 做 的 与 在 第 3 章 
所 做 的 之 间 的 根本 差异 ， 就 在 于 现在 是 要 把 延 时 和 强迫 构筑 到 求 值 器 里 ， 这 将 使 我 们 能 在 整个 语言 里 统一 地 
使 用 这 些 机 制 。 
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地 返回 其 中 保存 的 值 ， 不 必 重 复 去 做 计算 。 我 们 将 把 这 个 解释 器 做 出 带 记忆 的 ， 因 为 对 于 大 
部 分 应 用 而 言 ， 这 种 方式 更 加 高 效 。 当 然 ， 这 里 也 存在 着 一 些 很 难处 理 的 问题 ” 。 


修改 求 值 器 

情 性 求 值 器 与 4.1.1 节 中 的 求 值 器 之 间 的 最 重要 不 同 点 ， 就 在 于 eval 和 apP1y 里 对 过 程 应 
用 的 处 理 。 

eval 里 的 application? 子 句 现 在 变 成 了 


((application? exp) 

(apply (actual-value (operator exp) env) 
(operands exp) 
env)) 


这 几乎 与 4.1.1 节 里 eval 的 application? 子 名 一 模 一 样 。 不 过 ， 对 于 情 性 求 值 ， 我 们 是 用 
运算 对 象 表达 式 去 调用 apply ,而 不 是 用 对 它们 求 值 产生 出 的 实际 参数 。 因 为 现在 参数 求 值 
已 经 延 时 进行 了 ， 而 且 构 造 槽 的 时 候 需 要 用 到 环境 ， 因 此 也 必须 传递 它 。 这 里 还 是 要 对 运算 
TRE, ， 因 为 app1Y 需 要 被 实际 应 用 的 那个 过 程 ， 以 便 根据 其 类 型 去 分 派 并 应 用 它 。 

无 论 何 时 ， 只 要 我 们 需要 某 个 表达 式 的 实际 值 ， 就 用 


(define (actual-value exp env) 
(force-it (eval exp env))) 
而 不 能 只 用 eval ， 这 样 ， 如 果 这 个 表达 式 的 值 是 一 个 槽 ， 它 就 会 被 强迫 求 出 值 来 。 
我 们 新 版 本 的 apP1y 也 几乎 与 4.1.1 节 里 的 一 样 。 不 同 之 处 在 于 送 给 eval 的 是 未 经 求 值 的 
运算 对 象 表达 式 ， 对 于 基本 过 程 (它们 是 严格 的 ) ， 我 们 需要 在 应 用 这 些 过 程 之 前 求 值 有 关 的 
参数 ， 对 于 揽 合 过 程 (它们 非 严格 ) ， 就 在 应 用 这 些 过 程 时 拖延 对 所 有 参数 的 求 值 。 
(define (apply procedure arguments env) 
(cond ((primitive-procedure? procedure) 
(apply-primitive-procedure 
procedure 
(list-of-arg-values arguments env))) ; changed 
((compound-procedure? procedure) 
(eval-sequence 
(procedure-body procedure) 
(extend-environment 
(procedure-parameters procedure) 
(list-of-delayed-args arguments env) ; changed 
(procedure-environment procedure) ))) 
(else 
(error 
"Unknown procedure type -- APPLY" procedure) ))) 


处 理 参 数 的 过 程 就 像 4.1.1 节 里 的 1ist-of-values， 但 List-of-delayed-args 也 延 时 
有 关 的 参数 而 不 是 求 值 它们 ， 而 且 1ist-of-arg-values 用 的 是 actual-value 而 不 是 


240 情 性 求 值 与 记忆 性 的 组 合 有 时 被 称 为 按 壳 调用 的 参数 传递 ， 与 扶 名 调用 相对 应 〈( 按 名 调用 由 Algol 60 引 进 ， 
类 似 于 不 带 记忆 的 情 性 求 值 )。 作 为 语言 设计 者 ， 我 们 可 以 构造 自己 的 求 值 器 ， 使 之 带 有 记忆 ， 或 者 不 带 记 
亿 ， 或 者 将 这 一 问题 留 给 程序 员 (练习 4.31)。 正 如 你 根据 第 3 章 可 以 想到 的 ， 如 果 在 这 里 出 现 赋值 ， 这 些 选 
择 将 会 引出 一 些微 妙 而 且 迷 惑 人 的 问题 (参见 练习 4.27 和 4.29)。 有 一 篇 极 好 的 文章 (Clinger 1982) 曾 试 图 
证 清 这 里 产生 的 混乱 ， 理 出 其 中 的 头绪 。 
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eval; 


(define (list-of-arg-values exps env) 
(if (no-operands? exps) 
0) 
(cons (actual-value (first-operand exps) env) 
(list-of-arg-values (rest-operands exps) 
env)))) 


(define (list-of-delayed-args exps env) 
(if (no-operands? exps) 
0) 
(cons (delay-it (first-operand exps) env) 
(list-of-delayed-args (rest-operands exps) 
env)))) 


求 值 器 里 另 一 个 必须 修改 的 地 方 是 对 if 的 处 理 ， 在 这 里 我 们 必须 用 actual-value 取 代 
eval ， 以 便 在 测试 真 或 者 假 之 前 取得 谓词 表达 式 的 值 : 
(define (eval-if exp env) 
(if (true? (actual-value (if-predicate exp) env)) 
(eval (if-consequent exp) env) - 
(eval (if-alternative exp) env))) 


最 后 ， 我 们 还 必须 修改 driver-loop 过 程 ( 见 4.1.4 节 ) ， 在 其 中 用 actual-value 代 替 
eval， 这 就 使 得 当 延 时 的 值 传播 回 到 读 和 人 一 求 值 一 打印 循环 时 ， 在 打印 之 前 将 强迫 对 它们 求 
值 。 我 们 还 修改 了 提示 符 ， 以 表明 这 是 一 个 惰性 求 值 器 : 


(define input-prompt ";;; L-Eval input:") 
(define output-prompt ";;; L-Eval value:") 


(define (driver-loop) 
(prompt-—for-input input-prompt) 
(let ((input (read))) 
{let ( (output 
(actual-value input the-global-environment) )) 

(announce-output output-prompt ) 
(user-print output) ) ) 

(driver-loop) ) 


做 完了 这 些 修改 之 后 ， 就 可 以 启动 这 个 求 值 器 并 测试 它 了 。 对 4.2.1 节 里 讨论 的 trzy 表 达 
式 的 成 功 求 值 表明 这 个 解释 器 确实 是 在 做 惰性 求 值 : 


(define the-global-environment (setup-environment)) 
(driver-loop) 


3743 L-Eval input: 
(define (try a b) 

(if (= a 0) 1 b)) 
i323 L-Eval value: 
ok 


;;; L-Eval input: 
(try 0 (/ 1 0)) 
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;;} L-Eval value: 
1 
槽 的 表示 
我 们 必须 设法 对 这 个 求 值 器 做 一 些 安排 ， 使 它 能 在 将 过 程 应 用 于 参数 时 创建 有 关 的 槽 ， 
并 能 在 以 后 强迫 这 些 槽 的 求 值 。 一 个 槽 必须 包装 起 一 个 表达 式 和 一 个 环境 ， 以 便 在 后 来 可 以 
生成 相应 的 实际 参数 。 在 强迫 一 个 槽 求 值 时 ， 只 需 简 单 从 槽 中 提取 出 表达 式 和 环境 ， 并 在 此 
环境 里 对 表达 式 求 值 。 这 里 也 应 该 用 actual-value 而 不 是 eval ， 如 果 表 达 式 的 值 本 身 仍 
然 是 一 个 槽 ， 那 么 就 还 需要 强迫 它 ， 并 这 样 继续 下 去 ， 直 到 得 到 某 个 不 是 槽 的 东西 为 止 : 
(define (force-it obj) 
(if (thunk? obj) 
(actual-value (thunk-exp obj) (thunk-env obj)) 
obj)) 
包装 起 一 个 表达 式 和 一 个 环境 的 最 简单 方式 是 做 出 一 个 表 ， 其 中 包含 着 这 个 表达 式 和 对 
应 的 环境 。 这 样 ， 我 们 可 以 用 如 下 方式 创建 槽 : 
(define (delay-it exp env) 


(list ’thunk exp env)) 


(define (thunk? obj) 
(tagged-list? obj *thunk)) 


(define (thunk-exp thunk) (cadr thunk) ) 


(define (thunk-env thunk) (caddr thunk) ) 


eb, BASS BCAA aE A HE, EB cil. BT ee 
RAN, 我们 就 将 它 转变 为 一 个 已 求 值 的 模 ， 将 其 中 的 表达 式 用 相应 的 值 取 代 ， 并 改变 其 
thunk 标 志 ， 以 便 能 识别 出 它 是 已 经 求 过 值 的 ”， 


(define (evaluated-thunk? obj) 
(tagged-list? obj ’evaluated-thunk) ) 


(define (thunk-value evaluated-thunk) (cadr evaluated-thunk) ) ) 


(define (force-it obj) 
(cond ((thunk? obj) 
(let ((result (actual-value 
(thunk-exp obj) 
(thunk-env obj)))) 
(set-car! obj ’evaluated-thunk) 


(set-car! (cdr obj) result) ; replace exp with its value 
(set-cdr! (cdr obj) '()) ; forget unneeded env 
result) ) 


((evaluated-thunk? obj) 


2 注意 : 一 旦 在 一 个 槽 里 的 表达 式 已 经 计算 过 ， 在 这 里 就 从 该 槽 中 删除 snv 。 这 样 做 对 于 由 解释 器 返回 的 值 没 
有 任何 影响 ， 只 是 有 助 于 节约 空间 ， 因 为 从 槽 中 删除 对 env 的 引用 ， 一 旦 这 一 对 象 不 再 需要 ， 有 关 的 结构 就 
可 以 被 废料 收集 ， 其 空间 就 能 回收 ， 如 我 们 在 5.3 节 将 要 讨论 的 。 

与 此 类 似 ， 在 3.5.1 节 里 ， 也 可 以 对 记忆 了 的 延 时 对 象 中 不 再 需要 用 的 环境 做 废料 收集 ， 方 法 就 是 让 
memo-proc 在 保存 了 自己 的 值 之 后 ， 做 某 种 像 (set! proc “0) 一 类 的 事情 ， 抛 弃 其 中 的 过 程 Proc (E 
包含 了 一 个 环境 以便 delay 在 那里 求 值 )。 
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(thunk-value obj)) 
(else obj))) 


请 注意 ,同一 个 delay-it 过 程 对 于 有 记忆 或 者 没有 记忆 的 情况 都 能 工作 。 
练习 4.27 ”假定 我 们 将 下 面 定义 送 给 惰性 求 值 器 ; 
(define count 0) 


(define (id x) 
(set! count (+ count 1)) 
x) 
请 给 出 下 面 交 互 序列 中 空缺 的 值 ， 并 解释 你 的 回答 汪 。 
(define w (id (id 10))) 
;;; L-Eval input: 
count 
j; L-Eval value: 
<response> 
x}; L-Eval input: 
w 
333 L-Eval value: 
<response> 
;;} L-Eval input: 
count 
373 L-Eval value: 
<response> 
练习 4.28 ”eval 在 把 运算 符 送 给 applyY 之 前 ， 是 采用 actual-value 而 不 是 eval 去 求 
值 它 ， 以 便 强 迫 得 到 运算 符 的 值 。 请 给 出 一 个 例子 ， 说 明 在 这 里 必须 这 样 强迫 求 值 。 
练习 4.29 ”请 展示 一 个 程序 ， 按 照 你 的 预期 ， 如 果 没 有 记忆 功能 ， 它 的 运行 会 比 有 记忆 功 
能 时 慢 得 多 。 此 外 ， 请 考虑 下 面 的 交互 ， 其 中 的 id 过 程 在 练习 4.27 里 定义 ，count 从 0 开始 : 
(define (square x) 
(* x x)) 
$73 L-Eval input: 
(square (id 10)) 
;;; L-Eval value: 
<response> 
?37 L-Eval input: 
count 
333 L-Eval value: 
<response> 
请 给 出 在 有 或 者 没有 记忆 功能 时 求 值 器 的 反应 。 
练习 4.30 Cy D. Fect 以 前 是 个 C 程 序 员 ， 他 担心 程序 的 某 些 副作用 根本 就 不 能 实现 ， 因 
为 惰性 求 值 器 并 不 强迫 一 个 序列 里 的 某 些 表达 式 求 值 。 这 是 因为 在 一 个 序列 里 ， 除了 最 后 一 


242 这 个 练习 说 明 ， 在 惰性 求 值 和 副作用 之 间 的 相互 作用 是 非常 迷惑 人 的 。 这 也 应 该 是 你 根据 第 3 章 的 讨论 可 以 
想到 的 情况 。 
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个 表达 式 之 外 ， 其 他 表达 式 的 值 都 没有 用 到 (这 些 表达 式 仅仅 提供 自己 的 效果 ， 例 如 给 某 个 
变量 赋值 或 者 打印 输出 ) ， 随 后 也 完全 可 能 因为 不 会 用 到 这 些 值 (例如 ， 将 它们 用 作 某 个 基本 
过 程 的 参数 ) 而 不 会 强迫 对 它们 求 值 。 因 此 Cy 就 想 ， 在 求 值 一 个 序列 时 ， 我 们 必须 强迫 序列 
中 除了 最 后 表达 式 之 外 的 所 有 表达 式 求 值 。 他 为 此 提议 修改 取 自 4.1.1 节 的 eval-sequence， 
.其 中 采用 actual-value 而 不 是 eval : 
(define (eval-sequencé exps env) 
(cond ((last-exp? exps) (eval (first-exp exps) env)) 
(else (actual-value (first-exp exps) env) 
(eval-sequence (rest-exps exps) env)))) 
a) Ben Bitdiddle 认 为 Cy 的 看 法 不 对 。 他 给 Cy 演示 了 2.23 节 中 描述 的 for~each 过 程 ， 这 
是 一 个 重要 的 带 有 副作用 的 序列 的 例子 : 
(define (for-each proc items) 
(if (null? items) 
*done 
(begin (proc (car items) ) 
(for-each proc (cdr items))))) 


他 断言 说 ， 本 节 正 文中 的 求 值 器 (采用 原来 的 eval-sequence) 能 够 正确 处 理 : 


3733 L-Eval input: 
(for-each (lambda (x) (newline) (display x)) 
(list 57 321 88)) 


337 L-Eval value: 

done 
请 解释 为 什么 Ben 关 于 for-each 行 为 的 说 法 是 正确 的 。 

b) Cy 同音 Ben 关于 for-each 实 例 的 看 靶 ， 但 是 他 说 ， 这 并 不 是 他 在 提议 修改 eval- 
sequence 时 所 考虑 的 那 一 类 程序 。 他 在 情 性 求 值 器 里 定义 了 下 面 两 个 过 程 : 

(define (pl x) - 


(set! x (cons x (2))) 
x) 


(define (p2 x) 
(define (p e) 
e 
x) 
(p (set! x (cons x (2))))) 


对 于 原来 的 eval-sequence,， (pl 1) 和 (p2 1) 的 值 将 会 是 什么 ?对 于 按照 Cy 的 建议 修 
改 后 的 eval-sequence ， 这 两 个 表达 式 的 值 又 爹 是 什么 ? 

c) Cy 还 指出 ， 在 像 他 建议 的 那样 修改 了 eval-sequence 之 后 ， 对 于 a 中 那 种 实例 的 行 
为 不 会 有 影响 。 请 解释 为 什么 这 一 说 法 是 正确 的 。 

d) 你 认为 在 惰性 求 值 器 里 应 该 如 何 处 理 序列 的 问题 ?你 喜欢 Cy 的 方法 ， 还 是 喜欢 正文 中 
的 方法 ， 或 者 其 他 什么 方法 ? 

练习 4.31 ”本 节 所 采取 的 途径 有 些 令 人 不 快 ， 因 为 它 对 Scheme 做 了 一 种 不 兼容 的 修改 。 
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将 情 性 求 值 实现 为 一 种 向 上 兼容 的 扩充 可 能 更 好 一 些 ， 也 就 是 说 ， 使 常规 的 Scheme 还 能 像 原 
来 一 样 工作 。 我 们 可 以 通过 扩充 过 程 定 义 的 语法 的 方式 达到 这 种 目的 ， 使 用 户 可 以 控制 是 否 
让 参数 延 时 。 在 考虑 这 种 做 法 时 ， 我 们 还 可 以 进一步 允许 用 户 在 延 时 参数 是 否 记忆 方面 做 出 
选择 。 举 例 来 说 ， 定 义 : 


(define (f a (b lazy) c (d lazy-memo)) 
..) 


将 f 定 义 为 一 个 包含 4 个 参数 的 过 程 ， 其 中 的 第 一 个 和 第 三 个 参数 在 过 程 调用 时 求 值 ， 第 二 个 
参数 延 时 求 值 ， 第 四 个 参数 延 时 并 记忆 。 这 样 ， 常 规 的 过 程 定义 将 产生 与 常规 Scheme 完全 一 
样 的 行为 ， 而 如 果 给 每 个 复合 过 程 的 各 个 参数 都 加 上 1lazy-memo 声明， 就 能 产生 出 与 本 节 定 
义 的 惰性 求 值 器 一 样 的 行为 。 请 设计 并 实现 上 述 修 改 ， 做 出 一 个 这 样 的 Scheme 扩 充 。 你 将 需 
要 去 实现 新 的 语法 过 程 ， 以 处 理 define 的 新 语法 形式 。 你 还 必须 重新 安排 eval 或 者 apPly， 
以 确定 什么 时 候 参数 是 被 延 时 的 ， 并 根据 情况 强迫 或 者 延 时 有 关 的 参数 。 你 也 必须 对 记忆 与 
否 做 出 适当 的 安排 。 


4.2.3 ”将 流 作为 情 性 的 表 


在 3.5.1 节 里 ， 我 们 说 明了 如 何 将 流 实现 为 一 种 延 时 的 表 。 当 时 引进 了 特殊 形式 delay 和 
cons-stream, 它们 能 用 于 构造 出 一 个 能 用 于 计算 流 的 car 的 “允诺 ”， 在 实际 需要 之 前 不 
必 去 落实 这 种 允诺。 如果 我 们 需要 对 求 值 过 程 的 更 多 控制 ， 那 么 就 可 以 利用 这 种 引进 特殊 形 
式 的 一 般 性 技术 ,但 这 种 做 法 并 不 令 人 满意 。 从 一 个 方面 看 ， 特 殊 形 式 并 不 像 过 程 ， 它 们 不 
是 一 阶 的 对 象 ， 因 此 我 们 无 兴 将 它们 与 高 阶 过 程 一 起 使 用 »。 此 外 ， 我 们 还 不 得 不 把 流 创 建 
为 一 类 新 的 对 象 ， 与 表 类 似 但 又 不 一 样 ， 这 也 就 要 求 我 们 去 重新 实现 许多 常规 的 表 操作 (如 
map、append 等 等 )， 以 便 能 将 它们 用 于 流 。 

有 了 情 性 求 值 之 后 ， 流 和 表 就 完全 一 样 了 ， 所 以 也 就 不 再 需要 任何 特殊 形式 ， 也 不 再 需 
要 区 分 表 操作 和 流 操 作 。 我 们 需要 做 的 全 部 事情 就 是 做 好 一 些 安排 ， 设 法 使 cons 成 为 非 严格 
的 。 完 成 这 件 事 的 一 种 方式 是 扩充 情 性 求 值 器 ， 人 允许 非 严格 的 基本 过 程 cons 实现 为 它们 
中 的 一 个 。 另 一 更 简单 的 方式 是 回忆 前 面 讨 论 过 的 一 个 事实 〈 见 2.1.3 节 ) ， 完 全 可 以 不 把 
cons 实现 为 基本 过 程 。 换 种 方式 ， 我 们 可 以 把 序 对 表示 为 过 程 ”“: 

(define (cons x y) 

(lambda (m) (m x y))) 

(define (car z) 

(z (lambda (p q) P))) 


(define (cdr z) 
(z (lambda (p q) 4))) 


利用 这 些 基本 操作 ， 各 种 表 操 作 的 标准 定义 也 将 同样 适用 于 无 穷 的 表 〈 流 )， 就 像 它 们 可 
以 用 于 有 穷 的 表 一 样 。 流 操作 也 都 可 以 实现 为 表 操 作 。 下 面 是 一 些 例子 ; 


”3 这 也 就 是 练习 4.26 里 unless 过 程 的 问题 。 

24 这 正 是 练习 2.4 中 所 描述 的 过 程 性 表示 。 从 本 质 上 说 ,任何 过 程 性 表示 都 可 以 用 例如， 消息 传递 实现 ) 。 请 
注意 ， 我 们 可 以 简单 地 把 这 些 定 义 放 进 了 驱动 循环 里 ,以 此 将 它们 安装 到 惰性 求 值 器 里 。 如 果 原 来 已 将 Cons、 
car 和 cdr 作 为 全 局 环境 里 的 基本 过 程 ， 这 样 就 重新 定义 了 它们 ( 另 见 练习 4.33 和 练习 4.34)。 
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(define (list-ref items n) 
(if (= n 0) 
(car items) 
(list-ref (cdr items) (- n 1)))) 


(define (map proc items) 
(if (null? items) 
ae) . 
(cons (proc (car items) ) 
(map proc (cdr items))))) 


(define (scale+list items factor) 
(map (lambda (x) (* x factor)) 
items) ) 


(define (add-lists listl list2) 
(cond ((null? listl) list2) 
((mull? list2) listi) 
(else (cons (+ (car listl) (car list2)) 
(add-lists (cdr listl) (cdr list2)))))) 


(define ones (cons 1 ones)) 
(define integers (cons 1 (add-lists ones integers) )) 


377 L-Eval input: 

(list-ref integers 17) 

;;; L-Eval value: 

18 

请 注意 ， 这 种 情 性 的 表 甚至 比 第 3 章 里 的 流 更 加 情 性 ;这 种 表 里 的 car 也 是 延 时 的 ， 与 其 
cdr 一 样 25。 事 实 上 ， 甚 至 在 访问 一 个 惰性 序 对 的 cazr 或 者 cdz 时 ， 也 不 会 去 强迫 得 出 表 元 素 
的 值 。 只 有 在 真正 需要 的 时 候 才 会 强迫 得 到 它们 一 也 就 是 说 ， 在 被 用 作 基 本 过 程 的 参数 ， 
或 者 需要 作为 结果 打印 时 。 

情 性 序 对 对 于 3.5.4 节 中 由 于 流 而 引起 的 问题 也 很 有 帮助 ， 在 那里 我 们 看 到 ， 当 需要 用 一 
个 循环 做 出 系统 的 流 模型 时 ， 除 了 使 用 由 cons-stream 提 供 的 delay 操 作 外 ， 我 们 还 不 得 
不 在 程序 中 某 些 地 方 点 级 一 些 显 式 的 delay 操 作 。 有 了 人 情 性 求 值 之 后 ， 所 有 的 过 程 参数 就 无 
一 例外 都 是 延 时 的 了 。 举 例 说 ， 我 们 现在 可 以 按 3.5.4 节 原来 所 希望 的 方式 去 做 表 的 积分 ， 去 
求解 微分 方程 : 

(define (integral integrand initial-value dt) 

(define int 

(cons initial-value 
(add-lists (scale-list integrand dt) 
int))) 

int) 
(define (solve f y0 dt) 

(define y (integral dy y0 dt)) 

(define dy (map f y)) 

Y) : 


24 这 将 使 我 们 能 够 创建 更 具 一 般 性 的 表 结构 的 延 时 版 本 ， 而 不 仅仅 是 序列 。Hughes 1990 中 讨论 了 “惰性 树 “ 
的 某 些 应 用 。 
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3743 L-Eval input: 

(list-ref (solve (lambda (x) x) 1 0.001) 1000) 
';;} L-Eval value: 

2.716924 


练习 4.32 ”请 给 出 一 些 例 子 ， 显 示 在 第 3 章 的 流 与 本 节 描 述 的 “更 情 性 ”的 惰性 表 之 间 的 
不 同 。 你 可 能 怎样 利用 这 种 多 出 来 的 惰性 ? 
练习 4.33 Ben Bitdiddle 用 下 面 的 表达 式 测 试 了 上 面 给 出 的 惰性 表 实现 : 


(car ’(a b c)) 


令 他 吃惊 的 是 ， 这 却 产 生出 一 个 错误 。 经 过 一 些 思考 之 后 ， 他 认识 到 ， 由 读 入 一 个 引号 
表达 式 而 得 到 的 “ 表 ” 与 Cons 、car 和 cdr 的 新 定义 操作 的 那 种 表 是 不 同 的 。 请 修改 求 值 器 
里 对 引号 表达 式 的 处 理 ， 使 得 驱动 循环 读 和 人 的 加 引号 的 表 能 够 产生 出 惰性 表 。 

练习 4.34 ”请 修改 求 值 器 的 驱动 循环 ， 使 得 情 性 序 对 和 表 能 以 某 种 合理 的 形式 打印 出 来 。 
(你 将 如 何 对付 无 穷 表 ? ) 你 可 能 还 需要 修改 惰性 序 对 的 表示 ， 使 求 值 器 能 够 识别 它们 ， 以 便 
完成 打印 工作 。 


4.3 Scheme 的 变形 一 一 非 确定 性 计算 


在 这 一 节 里 ， 我 们 将 扩展 Scheme 求 值 器 ， 以 便 支 持 另 一 种 称 为 非 确 定性 计算 的 程序 设计 
范 型 。 这 里 采用 的 方式 是 将 一 种 支持 自动 搜索 的 功能 做 进 求 值 器 里 。 与 4.2 节 引进 惰性 求 值 相 
比 ， 对 语言 的 这 种 修改 的 意义 更 加 深远 。 

非 确定 性 计算 与 流 处 理 类 似 ， 对 于 “生成 和 检测 式 ” 的 应 用 特别 有 价值 。 作 为 开始 ， 现 
在 考 虚 下 面 工作 : 有 一 对 正 整 数 的 表 ， 我 们 要 从 中 造 出 一 对 整数 一 一 其 中 一 个 取 自 第 一 个 表 ， 
另 一 个 取 自 第 二 个 表 一 一 它们 之 和 是 素数 。 在 2.2.3 节 里 我 们 已 经 看 过 如 何 通过 有 限 序 列 操作 
的 方式 解决 这 一 问题 ， 在 3.5.3 节 看 过 如 何 用 无 穷 流 。 所 采用 的 方式 都 是 生成 所 有 可 能 的 数 对 ， 
而 后 过 滤 出 那些 和 为 素数 的 数 对 。 无 论 我 们 是 像 在 第 2 章 里 那样 首先 实际 生成 出 数 对 的 序列 ， 
还 是 像 第 3 章 那 样 换 一 种 方式 ， 交 错 式 地 生成 和 过 滤 ， 对 于 如 何 组 织 这 一 计算 过 程 的 基本 图景 
都 没有 产生 任何 影响 。 

非 确 定性 的 方式 则 召唤 着 另 一 种 图 景 。 简 单 设想 我 们 需要 (按照 某 种 方式 ) 从 第 一 个 表 
中 取 一 个 数 ， 并 (采用 同样 方式 ) 从 第 二 个 表 里 取 一 个 数 ， 使 它们 之 和 是 素数 。 这 件 事 可 以 
采用 下 面 过 程 描 述 : 

(define (prime-sum-pair listli list2) 

(let ((a (an-element-of list1)) 
(b (an-element-of list2))) 
(require (prime? (+ a b))) 
(list a b))) 
看 起 来 这 个 过 程 就 像 是 问题 的 另 一 个 重新 陈述 ， 而 没有 描述 出 一 种 解决 它 的 方法 。 但 无 论 如 
何 ， 这 就 是 一 个 合法 的 非 确定 性 程序 “。 


w 我 们 假定 已 定义 了 过 程 Prime? ， 它 能 检测 一 个 数 是 否 为 素数 。 即 使 有 了 Prime? 的 定义 ,Prime-sum- 
pair 过 程 看 起 来 也 非常 可 疑 ， 就 像 是 用 毫 无 帮助 的 “ 伪 Lisp” 企 图 去 定义 平方 根 过 程 ， 如 我 们 在 1.1.7 节 开 
始 时 所 说 的 那样 。 事 实 上 ， 求 平方 根 的 过 程 也 可 以 按照 这 条 路 线 ， 实 际 描述 为 一 个 非 确定 性 的 程序 。 通 过 将 
某 种 搜索 机 制 结合 进 求 值 器 里 ， 我 们 将 逐步 侵蚀 位 于 纯 的 说 明 性 描述 ， 和 有 关 计 算 机 将 如 何 给 出 回答 的 过 程 
性 描述 之 间 的 清晰 界限 。 在 4.4 节 里 ， 我 们 将 在 这 个 方向 上 深入 讨论 。 
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这 里 的 关键 想法 是 ， 在 一 个 非 确定 性 语言 里 ， 表 达 式 可 以 有 多 于 一 个 可 能 的 值 。 例 如 ， 
an-element-of 可 能 返回 一 个 给 定 表 里 的 任何 一 个 元 素 。 我 们 的 非 确定 性 程序 求 值 器 将 进 
行 有 关 的 工作 ， 从 中 自动 选 出 一 个 可 能 的 值 ， 并 维持 有 关 选 择 的 轨迹 。 如 果 随 后 的 要 求 无 法 
满足 ， 求 值 器 就 会 尝试 另 一 种 不 同 的 选择 ， 而 且 它 会 不 断 地 做 出 新 的 选择 ， 直 至 求 值 成 功 ， 
或 者 已 经 用 光 了 所 有 的 选择 。 正 如 惰性 求 值 器 可 以 使 程序 员 摆脱 有 关 值 如 何 延 时 或 者 强迫 的 
细节 一 样 ， 非 确定 性 的 求 值 器 将 使 程序 员 摆脱 如 何 做 出 这 些 选择 的 细节 。 

有 一 件 很 有 教 益 的 事情 ， 那 就 是 将 非 确 定性 求 值 和 流 处 理 中 引起 的 不 同时 间 图 景 做 一 个 
”比较 。 流 处 理 中 利用 了 惰性 求 值 ， 设 法 去 松 驰 装配 出 可 能 回答 的 流 的 时 间 与 实际 的 流 元 素 产 
生出 来 的 时 间 之 间 的 关系 。 这 种 求 值 器 支持 这 样 一 种 错觉 ， 好 像 所 有 可 能 的 结果 都 以 一 种 无 
时 间 硕 序 的 方式 摆 在 我 们 面前 。 对 于 非 确 定性 的 求 值 ， 一 个 表达 式 表 示 的 是 对 于 一 集 可 能 世 
界 的 探索 ， 其 中 的 每 一 个 都 由 一 集 选 择 所 确定 。 某 些 可 能 世界 将 走 入 死胡同 ,而 另 一 些 里 则 
保存 着 有 用 的 值 。 非 确定 性 程序 求 值 器 支持 另 一 种 假 相 : 时 间 是 有 分 支 的 ， 而 我 们 的 程序 里 
保存 着 所 有 可 能 的 不 同 执行 历史 。 在 遇 到 一 个 死胡同 时 ， 我们 总 可 以 回 到 以 前 的 某 个 选择 点 ， 
并 沿 着 另 一 个 分 支 继续 下 去 。 

下 面 将 要 实现 的 非 确 定性 程序 求 值 器 称 为 amb 求 值 器 ， 因 为 它 基于 一 个 称 为 amb 的 新 特殊 
形式 。 我 们 可 以 将 上 面 那样 的 prime-sum-paiz 定 义 送 给 这 一 求 值 器 的 驱动 循环 (还 需要 送 
上 prime?、an-element-of 和 reqguire 的 定义 ) ， 并 得 到 下 面 这 样 的 过 程 运行 : 

;;; Amb-Eval input: 

(prime-sum-pair "(1 3 5 8) °(20 35 110)) 

;;; Starting a new problem 

;;; Amb-Eval value: 

{3 20) 

能 够 得 到 这 里 的 返回 值 ， 是 由 于 求 值 器 将 会 反复 地 从 两 个 表 里 选 出 一 对 一 对 元 素 ， 直 至 做 出 
了 一 次 成 功 的 选择 。 

4.3.1 节 将 介绍 amb ， 并 解释 它 如 何 通过 求 值 器 的 自动 搜索 机 制 支持 非 确定 性 。4.3.2 节 给 

出 了 一 个 非 确定 性 程序 的 例子 ，4.3.3 节 给 出 了 如 何 通过 修改 常规 的 Scheme 求 值 器 ， 实 现 amb 


求 值 器 的 细节 。 
4.3.1 amb 和 搜索 
为 了 扩充 Scheme 以 支持 非 确定 性 ， 我 们 要 引进 一 种 称 为 amb 的 新 特殊 形式 ”' 。 表 达 式 
(amb <el> <e> … <e> )“ 有 歧义 性 地 ”返回 4 个 表达 式 <e> 之 一 的 值 。 举 例 说 ， 表 达 式 
(list (amb 1 2 3) (amb ’a ’b)) 
可 以 有 如 下 六 个 可 能 的 值 : 
(1 a) (1 b) (2 a) (2 b) (3 a) (3 b) 


只 有 一 个 选择 的 amb 将 产生 常规 的 (一 个 ) 值 。 
没有 选择 的 amb 一 一 表达 式 (amb) 一 一 是 一 个 没有 可 接受 值 的 表达 式 。 按 照 操 作 的 观点 ， 


w 实现 非 确 定性 程序 设计 的 amb 思想 是 John McCarthy 在 1961 年 第 一 次 提出 的 ( 见 McCarthy 1967 )。 


288 FA ABrMR 


我 们 可 以 认为 (amb) 就 是 这 样 的 一 个 表达 式 ， 对 它 的 求 值 将 导致 计算 “失败 ": 这 一 计算 将 
会 流产 ， 而 且 不 会 产生 任何 值 。 利 用 这 一 思想 ， 我 们 可 以 将 某 个 特定 谓词 必须 为 真 的 要 求 表 
RAP MNES: 
(define (require p) 
(if (not p) (amb))) 
有 了 amb 和 require， 我 们 就 可 以 实现 上 面 的 an-element-of 过 程 了 : 


(define (an-element-of items) 
(require (not (null? items) )) 
(amb (car items) (an-element-of (cdr items)))) 


4# ABShtan-element-of kM, GMERA (具有 歧义 性 地 ) 或 者 返回 表 里 的 第 一 个 元 
素 ， 或 者 返回 选 自 表 中 其 余部 分 的 某 个 元 素 。 

我 们 还 可 以 表述 无 穷 的 选择 。 下 面 过 程 可 能 返回 任何 一 个 大 于 或 者 等 于 某 个 给 定 的 n 值 的 
整数 ， 


(define (an-integer-starting-from n) 
(amb n (an-integer-starting-from (+ n 1)))) 


这 就 像 是 在 3.5.2 节 里 描述 的 流 过 程 integers-starting-from， 但 这 里 有 一 点 重要 不 
lal: 流 过 程 返 回 的 是 一 个 对 象 ， 它 表示 的 是 从 2 开始 的 所 有 整数 的 序列 ， 而 amb 过 程 返 回 的 就 
是 一 个 整数 。 

抽象 地 看 ， 我 们 可 以 认为 ， 求 值 一 个 amb 表 达 式 将 导致 时 间 分 裂 为 不 同 的 分 支 ， 而 计算 
将 在 每 一 个 分 支 (其 中 取 定 了 该 表达 式 的 一 个 值 ) 里 进行 。 我 们 说 一 个 amb 表 示 了 一 个 非 确 
定性 的 选择 点 。 如 果 有 一 台 机 器 ， 它 有 是 够 多 的 可 以 动态 分 配 的 处 理 器 ， 我 们 就 能 以 一 种 直 
截 了 当 的 方式 实现 这 种 搜索 。 这 里 的 执行 就 像 在 一 台 上 顺序 机 器 上 那样 进行 ， 直 至 遇 到 了 一 个 
amb 表 达 式 。 在 这 个 点 上 ， 需 要 分 配 并 初始 化 更 多 的 处 理 器 ， 并 继续 进行 这 一 选择 所 蕴含 的 
所 有 并 行 执行 。 每 个 处 理 器 又 将 顺序 地 进行 下 去 ， 就 像 它 只 有 一 种 选择 那样 ， 直 至 或 者 因为 
遇 到 失败 而 结束 ， 或 者 需要 进一步 分 支 ， 或 者 成 功 结束 。 

在 另 一 方面 ， 如 果 我 们 有 一 台 机 器 ， 它 只 能 执行 一 个 进程 (或 者 若干 个 并 发 的 进程 ) ， 
我 们 就 必须 换 一 种 实现 顺序 性 的 方式 。 我 们 可 以 设想 去 修改 求 值 器 ， 使 之 在 遇 到 一 个 选择 
点 时 随机 地 选取 一 个 分 支 走 下 去 。 当 然 ， 随 机 选取 很 可 能 导向 失败 的 值 。 这 样 就 需要 一 次 
次 重新 运行 求 值 器 ， 再 做 随机 选择 ， 以 期 找到 一 个 不 失败 的 值 。 一 种 更 好 的 方式 是 系统 化 
地 搜索 所 有 可 能 的 执行 路 径 。 我 们 将 要 开发 的 ， 并 在 本 节 中 使 用 的 amb 求 值 器 实现 了 如 下 
的 一 种 系统 化 搜索 方式 ， 当 这 个 求 值 器 遇 到 一 个 amb 应 用 时 ， 它 一 开始 总 是 选择 第 一 个 可 
能 性 。 这 一 选择 又 可 能 导致 随后 的 选择 。 在 每 个 选择 点 ， 这 一 求 值 器 在 开始 时 总 是 选择 第 


24 实际 上 ， 在 非 确定 性 地 返回 一 个 选择 与 返回 所 有 选择 之 间 的 差异 ， 在 某 种 意义 上 看 ， 依 赖 于 我 们 的 看 法 。 从 
使 用 有 关 值 的 代码 的 角度 看 ， 非 确定 性 选择 返回 的 是 一 个 值 。 从 设计 代码 的 程序 员 的 角度 看 ， 非 确定 性 选择 
是 潜在 地 返回 了 所 有 可 能 的 值 ， 而 计算 是 分 支 的 ， 所 以 各 个 值 将 被 分 别 探查 。 

249 有 人 可 能 反对 这 种 极端 无 效 的 机 制 ， 它 可 能 需要 数 以 百 万 计 的 处 理 器 去 求解 某 个 以 这 种 方式 可 以 简单 陈述 的 
问题 ， 而 且 在 其 中 大 部 分 的 时 间 里 ， 大 部 分 处 理 器 都 在 闲置 着 。 对 于 这 种 反对 意见 ， 我 们 应 该 在 历史 的 环境 
中 去 分 析 。 过 去 ， 存 储 器 曾 被 认为 是 一 种 及 其 吊 贵 的 设备 。 在 1964 年 ， 一 兆 容量 的 RAM 贵 到 400 000 美 元 。 
而 现在 每 台 个 人 计算 机 都 有 许多 兆 的 RAM ， 而 其 中 的 大 部 分 RAM 都 没有 使 用 。 我 们 决 不 应 该 低估 电子 学 的 
大 规模 生产 的 价值 。 
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一 个 可 能 性 。 如 何 选 择 的 结果 导致 失败 ， 那么 这 个 求 值 器 就 自动 魔法 般 地 ”回溯 到 最 近 的 
选择 点 ， 并 去 试验 下 一 个 可 能 性 。 如 果 它 在 任何 选择 点 用 完了 所 有 的 可 能 性 ， 该 求 值 器 就 
将 退回 到 前 一 选择 点 ， 并 从 那里 继续 下 去 。 这 个 过 程 产生 的 是 一 种 称 为 深度 优先 的 搜索 策 
略 ， 或 称 为 按照 历史 回溯 ”1。 

驱动 循环 

amb 求 值 器 的 驱动 循环 有 一 些 很 不 寻常 的 性 质 。 它 读 入 一 个 表达 式 ， 并 且 打 印 出 第 一 个 
不 失败 的 执行 得 到 的 值 ， 就 像 在 上 面 的 Prime-sum-pair 例 子 里 所 示 的 那样 。 如 果 我 们 希望 
看 到 下 一 个 成 功 执行 的 值 ， 那 就 可 以 要 求解 释 器 回潮 ， 让 它 试 着 去 产生 第 二 个 没有 失败 的 运 
行 。 我 们 可 以 通过 键入 符号 try-again 的 方式 发 出 这 一 信号 。 如 果 给 的 是 除了 try-again 
之 外 的 任何 表达 式 ， 解 释 器 都 会 开始 一 个 新 间 题 ， 丢 掉 前 面 问题 中 尚未 探索 的 那些 可 能 性 。 
下 面 是 一 个 交互 执行 示例 : 

377 Amb-Eval input: 

(prime-sum-pair °(1 3 5 8) ’(20 35 110)) 

373 Starting a new problem 


;;; Amb-Eval value: 
{3 20) 


+73 Amb-Eval input: 
try-again 

;;; Amb-Eval value: 
(3 110) 


;;; Amb-Eval input: 
try-again 

;;; Amb-Eval value: 
(8 35) 


373 Amb-Eval input: 

try-again 

;;; There are no more values of 

25 自动 魔法 般 地 ;:“ 自 动 地 ， 但 是 以 一 种 由 于 某 些 原因 (典型 的 情况 是 它 太 复杂 ， 或 者 太 丑陋 ， 或 者 甚至 太 简 
A), 而 使 说 话 者 并 不 喜欢 去 解释 的 方式 。” (Steele 1983, Raymond 1993) 

251 将 自动 搜索 策略 结合 到 程序 设计 语言 的 历史 曲折 而 复杂 。Robert Floyd (1967) 第 一 次 提出 可 能 通过 搜索 和 
自动 回 湖 ， 把 非 确定 性 算法 很 优雅 地 做 进程 序 设计 语言 里 。Carl Hewitt (1969) 发 明了 称 为 Planner 的 程序 
设计 语言 ， 它 显 式 地 支持 自动 按 历史 回 淹 ， 提 供 了 内 部 的 深度 优先 搜索 策略 Sussman, Winograd 和 
Charniak (1971) 实现 了 这 一 语言 的 一 个 子 集 ， 称 为 MicroPlanner ， 用 于 支持 问题 求解 和 机 器 人 规划 工作 。 
类 似 的 想法 也 出 现在 逻辑 和 定理 证 明 的 领域 里 ， 导 致 优美 的 Prolog 语 言 在 爱丁堡 和 马赛 诞生 (我 们 将 在 4.4 
节 讨论 它 )。 在 自动 搜索 遇 到 极 大 的 挫折 之 后 ，McDermott and Sussman (1972) 开发 出 一 种 名 为 Conniver 
的 语言 ， 它 包含 了 程序 员 的 控制 下 搜索 策略 的 安排 机 制 。 然 而 这 种 方式 被 证 明 是 非常 难 使 用 的 。 后 来 ， 
Sussman 和 Stallman (1975 ) 在 研究 电子 线路 的 符号 分 析 的 过 程 中 创建 了 一 种 更 容易 控制 的 方法 ， 他 们 开发 
出 一 种 基于 相互 关联 的 事实 之 间 的 依赖 关系 的 非 历史 的 回溯 模式 ， 这 种 技术 现在 已 经 被 称 为 依赖 导向 的 回 
湖 。 虽 然 他 们 的 方法 比较 复杂 ， 但 却 能 产生 出 具有 合理 效率 的 程序 ， 因 为 工作 中 很 少 做 多 余 的 搜索 。Doyle 
(1979) 和 McAllester (1978, 1980) 推广 并 进一步 澄清 了 Stallman 和 Sussman 的 方法 ， 开 发 了 一 种 新 的 构造 
搜索 的 形式 ， 现 在 被 称 为 真 值 保持 。 新 型 问题 求解 系统 都 用 了 某 种 形式 的 真 值 保持 ， 作 为 其 中 的 一 种 基本 
技术 。 参 看 Forbus 和 deKleer 1993 关 于 构造 真 值 保 持 系统 方法 的 讨论 。2Zabh、McAllester 和 Chapman 1987 
描述 了 Scheme 的 一 种 基于 amb 的 非 确 定性 扩充 ， 与 本 节 所 描述 的 解释 器 很 类 似 ， 但 是 更 复杂 一 些 ， 因 为 其 
中 使 用 的 是 依赖 导向 的 回溯 ， 而 不 是 历史 回溯 。Winston 1992 介 绍 了 这 两 种 回溯 。 
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(prime-sum-pair (quote (1 3 5 8)) (quote (20 35 110))) 
77% Amb-Eval input: 
(prime-sum-pair °(19 27 30) ’(11 36 58)) 
+73 Starting a new problem 
373 Amb-Eval value: 
(30 11) 
练习 4.35 ”请 写 出 一 个 过 程 an~integer-between， 它 返回 两 个 限界 之 间 的 一 个 整数 。 
它 可 以 用 于 实现 一 种 寻找 毕 达 哥 拉 斯 三 元 组 的 过 程 ， 也 就 是 说 ， 找 出 在 给 定 界 限 内 〈 例 如) 
(define (a-pythagorean-triple-between low high) 
(let ((i (an-integer-between low high))) 
(let ((j (an-integer-between i high))) 
(let ((k (an-integer-between j high))) 
(require (= (+ (* i i) (* j j)) (* k K))) 
(list i j k))))) 
练习 4.36 ”练习 3.69 讨 论 了 如 何 产生 出 所 有 毕 达 哥 拉 斯 三 元 组 的 流 ， 对 于 搜索 的 整数 大 小 
没有 上 界 。 请 解释 为 什么 简单 地 用 an-integer-starting-from 代 替 练 习 4.35 中 的 过 程 
an-integer-between ， 并 不 是 生成 任意 毕 达 哥 拉 斯 三 元 组 的 合适 办 靶 。 请 写 出 一 个 确实 
能 完成 这 一 工作 的 过 程 。( 也 就 是 说 ， 写 出 一 个 过 程 ， 对 它 反 复 键入 try-again，, 原则 上 ， 
将 能 最 终生 成 出 所 有 的 毕 达 哥 拉 斯 三 元 组 。) 
练习 4.37 Ben Bitdiddle 断 言 下面 生 成 毕 达 痛 拉 斯 三 元 组 的 方法 比 练习 4.35 中 的 方法 效率 
更 高 。 他 说 得 对 吗 ? (提示 ， 请 考虑 几 个 必须 研究 的 可 能 性 。) 
(define (a-pythagorean-triple-between low high) 
(let ((i (an-integer-between low high) ) 
(hsq (* high high))) 
(let ((j (an-integer-between i high))) 
(let ((ksq (+ (* i i) (* j j)))) 
(require (>= hsq ksq)) 
(let ((k (sqrt ksq))) 
(require (integer? k)) 
(list i j k)))))) 


43.2 非 确定 性 程序 的 实例 


4.3.3 节 里 将 要 描述 amb 求 值 器 的 实现 ,我 们 在 这 里 先 给 出 几 个 可 能 怎样 使 用 它 的 例子 。 
非 确定 性 程序 设计 的 优点 ， 就 在 于 使 我 们 可 以 忽略 有 关 搜索 将 如 何 进行 的 细节 ， 因 此 就 可 以 
在 更 高 的 层次 上 表述 所 需要 的 程序 。 

逻辑 谜 题 

下 面 的 迹 题 ( 取 自 Dinesman 1968) 是 一 大 类 简单 遇 辑 迹 题 的 典型 代表 : 

贝克 、 库 伯 、 弗 莱 含 、 米 勒 和 斯 麦 尔 住 在 一 个 五 层 公 寓 楼 的 不 同 层 ， 贝 克 不 住 

在 顶层 ， 库 伯 不 住 在 底层 ， 弗 莱 舍 不 住 在 顶层 也 不 住 在 底层 。 米 勒 住 的 比 库 伯 高 一 

层 ， 斯 麦 尔 不 住 在 弗 菜 舍 相 邻 的 层 ， 弗 菜 含 不 住 在 库 伯 相 邻 的 层 。 请 问 他 们 各 住 在 

BE. 
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我 们 可 以 通过 简单 地 枚 举 出 所 有 可 能 性 ， 并 加 上 给 定 约束 条 件 的 方式 ， 来 确定 这 几 个 人 
EA RR” ， 
(define (multiple-dwelling) 
(let ((baker (amb 1 2 3 4 5)) 
(cooper (amb 1 2 3 4 5)) 
(fletcher (amb 1 2 3 4 5)) 
(miller (amb 1 2 3 4 5)) 
(smith (amb 1 2 3 4 5))) 
(require 
(distinct? (list baker cooper fletcher miller smith))) 
(require (not (= baker 5))) 
(require (not (= cooper 1))) 
(require (not (= fletcher 5))) 
(require (not (= fletcher 1))) 
(require (> miller cooper)) 
(require (not (= (abs (- smith fletcher)) 1))) 
(require (not (= (abs (- fletcher cooper)) 1))) 
(list (list "baker baker) 
(list ‘cooper cooper) 
(list ’fletcher fletcher) 
(list ’miller miller) 
(list ’smith smith)))) 


求 值 表达 式 (multiple-dwelling) 将 产生 下 面 结果 : 


((baker 3) (cooper 2) (fletcher 4) (miller 5) (smith 1)) 


虽然 这 个 简单 过 程 能 工作 ， 但 它 却 非常 慢 。 练 习 4.39 和 4.40 讨 论 了 一 些 改进 。 

练习 4.38 ”请 修改 上 述 多 层 住 宅 过 程 ， 增 加 斯 麦 尔 和 弗 菜 舍 不 住 相 邻 层 的 要 求 。 这 个 新 
谜 题 有 多 少 个 解 ? 

练习 4.39 “在 上 述 多 层 住宅 过 程 中 ， 约 束 条 件 的 顺序 会 影响 答案 吗 ? 它 会 影响 找到 答案 
的 时 间 吗 ? 如 果 你 认为 会 ， 那 么 请 通过 重新 排列 上 面 定义 中 约束 条 件 的 顺序 ， 展 示 出 你 得 到 
的 更 快 的 程序 。 如 果 你 认为 没关系 ， 请 论证 你 的 观点 。 

练习 4.40 ”在 上 述 多 层 住 宅 问 题 里 ， 在 各 种 需求 和 楼 层 指 派 必 须 完 成 的 不 同 检 查 之 前 和 
之 后 ， 存 在 着 多 少 给 人 指定 楼 层 的 指派 集合 ?首先 生成 出 所 有 的 人 到 楼 层 的 指派 ， 而 后 通过 
回溯 删除 它们 是 很 低 效 的 方法 。 举 例 来 说 ， 大 部 分 约束 条 件 都 只 依赖 于 一 个 或 者 两 个 个 人 -楼 
层 变量 ， 因 此 可 以 在 为 所 有 人 选择 楼 层 之 前 安排 好 。 请 为 解决 这 一 问题 写 出 一 个 更 加 高 效 得 
多 的 非 确定 性 过 程 ， 其 中 只 产生 出 通过 限制 排除 了 不 可 能 情况 之 后 的 那些 可 能 性 ， 并 请 用 试 
验证 明 你 的 方案 有 效 。 (提示 :这 将 需要 写 出 典 套 的 et 表达 式 。) 


2? 我 们 的 程序 用 下 面 过 程 确定 一 个 表 里 的 各 个 元 素 是 否 互 不 相同 ， 


(define (distinct? items) 
(cond ((null? items) true) 
((null? (cdr items)) true) 
((member (car items) (cdr items)) false) 
(else (distinct? (cdr items))))) 


member Smemq 类 似 ， 只 是 用 equal? 做 相等 判断 ， 而 不 是 用 eq? 。 


练习 4.41 请 写 出 一 个 常规 的 Scheme 程序 ， 解 决 这 一 多 楼 层 问 题 。 

练习 4.42 ”请 解决 下 面 的 “说 谎 者 ” 谜 题 ( 取 自 Phillips 1934). 五 个 女生 参加 一 个 考试 ， 
她 们 的 家 长 对 考试 结果 过 分 关注 。 为 此 她 们 约定 ， 在 给 家 里 写 信 谈 到 考试 时 ， 每 个 姑娘 都 要 
写 一句 真 话 和 一 句 假 话 。 下 面 是 从 她 们 的 信里 摘出 的 句子 : 

贝蒂 :“ 遍 蒂 考 第 二 ， 我 只 考 了 第 三 。” 

艾 赛 尔 :“ 你 们 应 很 高 兴 地 了 听 到 我 考 了 第 一 ， 琼 第 二 。” 

琼 :“ 我 考 第 三 ， 可 怜 的 艾 赛 尔 考 得 最 差 。 

凯 蒂 :“ 我 第 二 ， 玛 丽 只 考 了 第 四 。” 

玛丽 :“ 我 是 第 四 ， 贝 蒂 的 成 绩 最 高 。” 

这 五 个 姑娘 实际 的 排名 是 什么 ? 

练习 4.43 ”请 用 求 值 器 解决 下 面 谜 题 ” : 

Mary Ann Moore 的 父亲 有 一 条 游艇 ， 他 的 四 个 朋友 Colonel Downing, Mr. Hall, Sir 
Barnacle Hood 和 Dr. Parker 也 各 有 一 条 。 这 五 个 人 各 有 一 个 女儿 ， 每 个 人 都 用 另 一 个 人 的 女儿 
的 名 字 为 自己 的 游艇 命名 。Sir Barnacle 的 游艇 叫 Gabrielle ，Mr. Moore 拥有 Lorna Mr. Hall 的 
是 Rosalind ，Melissa 属 于 Colonel Downing ( 取 自 Sir Barnacle 的 女儿 的 名 字 )，Gabrielle 的 父亲 
的 游艇 取 的 是 Dr. Parker 的 女儿 的 名 字 。 请 问 谁 是 Lorna 的 父亲 。 

请 设法 写 出 一 个 能 高 效 运行 的 程序 (参见 练习 4.40)。 另 请 设法 确定 ， 如 果 没 有 告诉 我 们 
Mary Ann 姓 Moore ， 那 么 将 会 有 多 少 个 解 。 

练习 4.44 ”练习 2.42 描 述 了 “ 八 皇 后 谜 题 ”， 将 八 个 皇后 安放 到 国际 象棋 盘 上 使 她 们 相互 
都 不 攻击 。 请 写 出 一 个 非 确 定性 的 程序 求解 这 一 谜 题 。 

自然 语言 的 语法 分 析 

接受 自然 语言 作为 输入 的 程序 ， 通 常 都 以 对 输入 的 语法 分 析 开 始 ， 也 就 是 说 ， 设 法 将 输 
和 与 一 些 语法 结构 匹配 。 举 例 说 ， 我 们 可 能 试图 去 识别 由 一 个 冠 词 ， 后 跟 一 个 名 词 和 一 个 动 
词 的 简单 句子 ， 比 如 说 “The cat eats"。 为 了 完成 这 种 分 析 ， 我 们 必须 能 辩 明 各 个 单词 的 词类 ， 
这 可 以 从 下 面 这 种 对 各 种 单词 的 分 类 表 开 始 ” : 

(define nouns ’(noun student professor cat class)) 

(define verbs ’(verb studies lectures eats sleeps) ) 

(define articles ‘(article the a)) 

我 们 还 需要 一 个 语法 ， 即 一 组 描述 如 何 从 更 简单 的 元 素 组 合 产生 语法 元 素 的 规则 。 一 个 非常 
简单 的 语法 ， 可 能 就 是 规定 每 个 句子 都 由 两 个 部 分 组 成 一 -一 个 名 词 短语 后 面 跟着 一 个 动词 ， 
而 名 字 短 语 是 由 一 个 冠 词 后 跟 一 个 名 词组 成 。 根 据 这 个 语法 ， 句 子 “The cat eats ”就 可 以 分 
析 为 : 


(sentence (noun-phrase (article the) (noun cat)) 
{verb eats)) 


我 们 可 以 用 一 个 简单 的 程序 生成 这 样 的 分 析 ， 其 中 对 应 于 每 条 语法 规则 有 一 个 独立 的 过 


253 这 个 这 题 取 自 一 本 名 为 《Problematical Recreations) (问题 娱乐 ) 的 小 册子 ，1960 年 代 由 Litton Industries 出 版 ， 
上 面 标明 作者 为 Kansas State Engineer ( 肯 萨 斯 州 工程 师 协会 ) 。 
254 这 里 我 们 采用 了 一 个 约定 ， 用 每 个 表 的 第 一 个 元 素 指 明了 表 中 其 他 单词 的 词类 。 


程 。 为 了 分 析 一 个 句子 ,我们 需要 辩 明 它 的 两 个 组 成 部 分 ， 并 返回 一 个 两 元 素 的 表 ， 用 符号 
sentence 作 为 标记 : 


(define (parse-sentence) 
(list "Sentence 
(parse-noun-phrase) 
(parse-word verbs))) 


名 词 短语 的 情况 与 此 类 似 ， 对 它 的 分 析 就 是 要 找 出 其 中 的 冠 词 和 名 词 : 
(define (parse-noun-~phrase) 
(list ’noun-phrase 
(parse-word articles) 
(parse-word nouns) )) 


在 最 下 面 一 层 ， 分 析 过 程 被 归结 到 反复 检查 下 一 个 尚未 分 析 的 单词 ， 看 它 是 不 是 某 个 对 
应 于 所 和 需 词类 的 单词 表 的 成 员 。 为 了 实现 这 一 工作 ， 我 们 要 维护 一 个 全 局 变量 *unparsed*， 
其 中 包含 着 尚未 分 析 的 输入 。 每 当 程 序 去 检查 一 个 单词 时 ， 我 们 都 要 求 *unparsed* 必须 不 
空 ， 而 且 它 应 该 以 指定 的 表 里 的 单词 开始 。 如 果真 是 这 样 ， 我 们 就 从 *unparsed* 里 删除 这 
第 一 个 单词 ， 并 返回 这 个 单词 和 它 的 词类 (这 可 以 从 该 表 的 头 部 找 出 ) >: 
(define (parse-word word-list) 
(require (not (null? *unparsed*))) 
(require (memq {car *unparsed*) (cdr word-list))) 
(let ((found-word (car *unparsed*) )) 
(set! *unparsed* (cdr *unparsed*)) 
(list (car word-list) found-word) )) 
为 了 能 开始 做 语法 分 析 ， 我 们 需要 的 就 是 将 *unparsed* 设置 为 整个 输入 ， 试 着 去 分 析 
出 一 个 句子 来 ， 最 后 还 要 检查 没有 剩 下 任何 东西 : 
(define *unparsed* °()) 
(define (parse input) 
(set! *unparsed* input) 
(let ((sent (parse-sentence) ) ) 
(require (null? *unparsed*)) 
sent) ) 


现在 我 们 可 以 试验 这 个 分 析 器 ， 检 查 它 是 否 能 处 理 简单 的 测试 句子 : 

;;; Amb-Eval input: 

(parse ’(the cat eats)) 

377 Starting a new problem 

;;; Amb-Eval value: 

(sentence (noun-phrase (article the) (noun cat)) (verb eats) ) 

amb 求 值 器 在 这 里 很 有 用 ， 因 为 它 使 我 们 可 以 通过 require 的 帮助 ， 很 方便 地 描述 分 析 
中 的 种 种 约束 条 件 。 当 然 ， 如 果 进 一 步 考 虑 更 复杂 的 语法 ， 其 中 存在 有 关 某 些 单元 如 何 分 解 
的 选择 时 ， 自 动 搜索 和 回潮 也 将 发 挥 重 要 作用 。 

现在 让 我 们 在 语法 中 增加 一 个 介词 表 : 

25 请 注意 ，Parse-~word 用 set 1! 修改 了 未 分 析 的 输入 表 。 为 使 这 种 做 法 能 够 工作 ， 我 们 的 amb 求 值 器 就 必须 

在 回溯 时 撤销 set! 的 作用 。 
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(define prepositions "(prep for to in by with)) 


并 将 介词 短语 (例如 ，“for the cat”) 定义 为 一 个 介词 后 跟 一 个 名 词 短语 : 


(define (parse-prepositional-phrase) 
(list ’'prep-phrase 
(parse-word prepositions) 
(parse-noun-phrase) )) 


现在 我 们 可 以 将 句子 定义 为 一 个 名 词 短语 后 跟 一 个 动词 短语 ， 其 中 的 动词 短语 可 以 是 一 个 动 
词 ， 也 可 以 是 一 个 动词 短语 加 上 一 个 介词 短语 2 : 
(define (parse-sentence) 
(list ‘sentence 


(parse-noun~phrase) 
(parse-verb~phrase) ) ) 


(define (parse-verb-phrase) 
(define (maybe-extend verb-phrase) 
(amb verb-phrase 
(maybe-extend (list ’verb-phrase 
verb-phrase 
(parse-prepositional-phrase))))) 
(maybe-extend (parse-word verbs))) 


有 了 这 些 之 后 ， 我 们 还 可 以 细 化 名 词 短语 的 定义 ， 允 许 诸 如 “a cat in the class” ZRH 
形式 。 前 面 称 为 名 词 短语 的 片段 ， 现 在 将 被 称 为 简单 名 词 短 语 ， 而 现在 的 名 词 短语 则 或 者 是 
一 个 简单 名 词 短语 ， 或 者 是 一 个 名 词 短 语 后 跟 一 个 介词 短语 : 

(define (parse-simple-noun-phrase) 

(list ‘simple-noun-phrase 
(parse-word articles) 


(parse-word nouns))) 


(define (parse-noun-phrase) 
(define (maybe-extend noun-phrase) 
(amb noun-phrase 
(maybe-extend (list ’noun-phrase 
noun-phrase 
; (parse-prepositional-phrase)})})) 
(maybe-extend (parse-simple-noun-phrase) ) ) 


现在 的 新 语法 使 得 程序 可 以 分 析 更 复杂 的 句子 了 。 例 如 ; 


(parse ’(the student with the cat sleeps in the class) ) 


将 产生 出 : 


(sentence 
(noun-phrase 
(simple-noun-phrase (article the) (noun student)) 
(prep~phrase (prep with) 
(simple-noun-phrase 
(article the) (noun cat)))) 


24 应 该 看 到 这 一 定义 是 递归 的 ， 动 词 之 后 可 以 有 任意 多 个 介词 短语 。 
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(verb-pHrase 
(verb sleeps) 
(prep-phrase (prep in) 
(simple-noun-phrase 
(article the) (noun class))))) 


请 注意 ， 一 个 给 定 输入 可 能 存在 多 于 一 种 合法 的 分 析 结 果 。 对 于 句子 “The professor 
lectures to the student with the cat?， 可 以 理解 为 教授 带 着 猫 去 上 课 ， 也 可 以 理解 为 该 学 生 有 那 
只 猫 。 我 们 的 非 确定 性 程序 将 能 找 出 这 两 种 可 能 性 : 


(parse '(the professor lectures to the student with the cat)) 


将 产生 出 : 


(sentence 
(simple-noun-phrase (article the) (noun professor) ) 
(verb-phrase 
(verb-phrase 
(verb lectures) 
(prep-phrase (prep to) 
(simple-noun-phrase 
(article the) (noun student)))) 
(prep-phrase (prep with) 
(simple-noun-phrase 
(article the) (noun cat))))) 


让 求 值 器 再 次 尝试 ， 将 会 产生 出 : 
(sentence 
(simple-noun-phrase (article the) (noun professor) ) 
(verb-phrase 
(verb lectures) 
(prep-phrase (prep to) 
(noun-phrase 
(simple~noun-phrase 
(article the) (noun student)) 
(prep-phrase (prep with) 
(simple-noun-phrase 
(article the) (noun cat))))))) 


654.45 ”采用 上 面 给 出 的 语法 ， 下 面 的 句子 可 以 有 5 种 不 同 的 分 析 方 式 : “The professor 
lectures to the student in the class with the cat” 。 请 给 出 这 5 种 分 析 ， 并 解释 这 些 分 析 之 间 的 微 
妙 差异 。 

练习 4.46 ”4.1 节 和 4.2 节 的 求 值 器 并 没有 明确 规定 运算 对 象 的 求 值 顺 序 。 我 们 将 看 到 amb 
求 值 器 从 左 到 右 进行 求 值 WER, ， 如 果 运 算 对 象 采用 其 他 求 值 顺序 ， 为 什 么 我 们 的 分 析 程 
序 就 没有 办 法 工作 了 。 

练习 4.47 Louis Reasoner 建 议 说 ， 由 于 动词 短语 或 者 是 一 个 动词 ， 或 者 是 一 个 动词 短语 
后 跟 - 一 个 介词 短语 ， 直 接 用 下 面 方式 定义 一 个 parse-verb-phrase 过 程 将 更 加 方便 (对 于 
名 词 短语 也 同样 可 以 这 样 做 ): 

(define (parse-verb-phrase) 

(amb (parse-word verbs) 


{list ’verb-phrase 
(parse-verb-phrase) 
(parse-prepositional-phrase})))) 


这 样 做 能 行 吗 ? 如 果 改变 了 amb 求 值 器 里 表达 式 的 顺序 ， 程 序 的 行为 也 会 改变 吗 ? 

练习 4.48 ”请 扩充 上 面 给 出 的 语法 ， 以 处 理 更 加 复杂 的 句子 。 例 如 ， 你 可 以 扩充 名 词 短 
语 和 动词 短语 ， 加 进 形容 词 和 副词 ， 或 者 可 以 设法 处 理 复 合 句 汪 。. 

练习 4.49 Alyssa P. Hacker 更 感 兴趣 的 是 生成 有 趣 的 句子 而 不 是 分 析 它 们 。 她 说 ， 简 单 修 
改过 程 parse-word， 使 它 忽略 “输入 的 句子 ”并 总 是 成 功 产 生出 适当 的 单词 ， 就 可 以 为 语 
法 分 析 程 序 去 做 句子 生成 。 请 实现 Alyssa 的 想法 ， 并 给 出 这 个 程序 所 产生 的 前 十 来 个 句子 *”。 


43.3 实现 amb 求 值 器 


对 于 常规 Scheme 表达 式 的 求 值 可 能 返回 一 个 值 ， 也 可 能 永远 不 终止 ， 或 者 发 出 一 个 错误 
信号 。 对 于 非 确定 性 的 Scheme ， 表 达 式 的 求 值 还 可 能 遇 到 死胡同 ， 在 这 种 情况 下 求 值 必 须 回 
湖 到 前 面 的 选择 点 。 由 于 多 出 这 一 种 情况 ， 非 确定 性 Scheme 的 解释 将 变 得 更 复杂 。 

我 们 为 非 确 定性 的 Scheme 构造 amb 求 值 器 的 方法 ， 是 修改 4.1.7 节 的 分 析 式 求 值 器 ”。 就 
像 在 那个 分 析 求 值 器 里 一 样 ， 完 成 对 这 里 的 表达 式 求 值 ， 也 是 通过 调用 对 于 该 表达 式 的 分 析 
所 产生 出 的 执行 过 程 。 对 于 常规 Scheme 的 解释 和 对 非 确定 性 Scieme 的 解释 之 间 的 差异 完全 在 
于 有 关 的 执行 过 程 。 

执行 过 程 和 继续 

读者 应 记得 ， 在 常规 求 值 器 的 执行 过 程 里 有 一 个 参数 : 执行 环境 。 与 此 不 同 ，amb 求 值 
器 的 执行 过 程 将 取 三 个 参数 : 执行 环境 ， 和 两 个 称 为 继续 过 程 的 过 程 。 对 于 一 个 表达 式 的 求 
值 ， 结 束 时 就 会 调用 这 两 个 继续 过 程 之 一 : 如 果 该 求 值 得 到 了 一 个 结果 ， 那 么 就 用 这 个 值 去 
调用 那个 成 功 继续 ， 如 果 结 果 是 遇 到 了 一 个 死胡同 ， 那 么 就 调用 那个 失败 继续 。 构 造 和 调用 
适当 的 继续 ， 就 是 这 个 非 确定 性 求 值 器 里 实现 回溯 的 机 制 。 

成 功 继续 过 程 的 工作 是 接受 一 个 值 并 将 计算 进行 下 去 。 与 这 个 值 一 起 ， 成 功 继续 过 程 还 
将 得 到 了 另 一 个 失败 继续 过 程 ， 如 果 在 使 用 这 个 值 时 遇 到 了 死胡同 ， 就 会 去 调用 它 。 

失败 继续 过 程 的 工作 是 试探 非 确定 性 过 程 中 的 另 一 分 支 。 非 确定 性 语言 的 最 关键 特征 ， 
就 在 于 表达 式 可 以 表示 在 不 同 可 能 性 之 间 的 选择 。 对 于 这 样 一 个 表达 式 的 求 值 ， 必 须 按 给 定 
的 可 能 选择 进行 下 去 ， 即 使 谁 也 不 知道 哪 一 个 选择 会 导向 可 以 接受 的 结果 。 为 了 处 理 好 这 件 
事 ， 求 值 器 取出 一 个 可 能 性 ， 并 将 其 值 送 给 成 功 继续 过 程 。 与 这 个 值 一 起 ， 求 值 器 还 构造 并 
送 去 一 个 失败 继续 过 程 ， 以 便 在 后 来 需要 另 一 不 同 选择 时 能 去 调用 它 。 


29 这 种 语法 可 以 变 得 任意 的 复杂 ， 但 如 果 考 虑 真实 的 语言 理解 问题 ， 这 些 仍然 只 是 一 种 玩具 。 要 用 计算 机 去 理 
解 真实 世界 中 的 自然 语言 ， 将 需要 语法 分 析 和 意义 解释 之 间 细 致 的 混合 作用 。 从 另 一 角度 看 ， 即 使 是 玩具 式 
的 语法 分 析 ， 对 于 支持 某 些 需要 比较 灵活 的 查询 语言 的 程序 也 非常 有 用 ， 例 如 那些 信息 检索 系统。Winston 
1992 讨 论 了 真实 语言 理解 的 计算 途径 ， 也 讨论 了 简单 语法 在 命令 语言 方面 的 应 用 。 

258 虽然 Alyssa 的 想法 完全 可 行 (而且 极 其 简单 )， 但 它 产生 出 的 句子 则 非常 无 聊 一 -根本 不 能 以 某 种 很 有 价值 的 
方式 说 明 这 一 语言 中 的 句子 的 范例 。 事 实 上 ， 由 于 语法 在 许多 地 方 都 是 高 度 递归 的 ，Alyssa 的 技术 将 会 落 人 
这 种 递归 并 陷 在 那里 。 参 看 练习 4.50 有关 解 决 这 个 问题 的 一 种 方法 。 

259 我 们 的 选择 是 通过 修改 4.1.1 节 的 元 循环 求 值 器 的 方式 实现 4.2 节 的 情 性 求 值 器 ， 这 次 却 要 基于 4.1.7 节 的 分 析 
求 值 器 实现 amb 求 值 器 。 这 是 因为 该 求 值 器 的 执行 过 程 为 实现 回溯 提供 了 一 种 方便 框架 。 
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在 求 值 过 程 中 ， 当 一 个 用 户 程序 明确 拒绝 了 当前 进攻 的 目标 (例如 ， 一 个 require 调 用 
里 最 终 可 能 执行 到 (amb), ， 这 是 一 个 永远 失败 的 表达 式 一 一 见 4.3.1 节 ) ， 就 将 触发 一 次 失败 
(也 就 是 说 ， 调 用 一 个 失败 继续 过 程 ) 。 在 这 一 点 ， 手 头 上 的 失败 继续 过 程 将 导致 在 最 近 的 选 
择 点 上 做 另 一 种 选择 。 如 果 在 被 考虑 的 选择 点 上 已 经 没有 更 多 的 选择 了 ， 那 么 就 会 触发 在 前 
一 选择 点 的 失败 ， 并 如 此 继续 下 去 。 驱 动 循环 也 可 能 直接 调用 失败 继续 过 程 ， 以 响应 一 个 
try-again 请 求 ， 去 找 出 表达 式 的 另 一 个 值 。 

此 外 ， 如 果 在 由 一 个 选择 导致 的 分 支 处 理 中 出 现 了 具有 副作用 的 操作 〈 例 如 做 了 给 某 个 
变量 的 赋值 ) ， 在 这 种 情况 下 ， 当 处 理 过 程 遇 到 死胡同 时 ， 可 能 就 需要 在 做 出 新 选择 之 前 撤销 
这 一 副作用 。 完 成 这 一 工作 的 方式 ， 就 是 让 产生 副作用 的 操作 生成 一 个 能 够 撤销 其 副作用 并 
传播 这 一 失败 的 失败 继续 过 程 。 

总 结 一 下 ， 失 败 继续 过 程 的 构造 来 自 : 

。amb 表 达 式 一 一 提供 一 种 机 制 ， 以 便 在 amb 表 达 式 做 出 的 当前 选择 遇 到 了 和 死胡同 时 ， 能 

够 做 另 一 种 选择 ， 

。 最 高 层 驱动 循环 一 一 提供 一 种 机 制 ， 在 选择 耗 尽 时 报告 失败 

。 赋 值 一 一 拦截 失败 并 在 回溯 之 前 撤销 赋值 的 效果 。 

失败 的 初始 原因 就 是 遇 到 了 死胡同 ， 这 种 情况 出 现在 : 

。 用 户 程序 执行 (amb) 时 ， 

。 用 户 键入 try-again 给 最 高 层 驱 动 程序 时 。 

失败 继续 过 程 会 在 处 理 失败 的 过 程 中 被 调用 : 

。 当 由 一 个 赋值 构造 出 的 失败 继续 过 程 完成 了 撤销 自己 副作用 的 工作 之 后 ， 它 将 调用 所 拦 

截 的 失败 继续 过 程 ， 以 便 将 这 一 失败 传播 到 导致 这 次 赋值 的 选择 点， 或 者 传 到 最 高 层 。 

。 当 某 个 amb 的 失败 继续 过 程 用 完了 所 有 选择 时 ， 它 将 调用 原来 给 这 个 amb 的 失败 继续 过 

程 ， 以 便 将 这 一 失败 传播 到 前 一 个 选择 点 ， 或 者 传播 到 最 高 层 。 

求 值 器 的 结构 

amb 求 值 器 的 语法 和 数据 表示 过 程 ， 以 及 基本 的 analyze 过 程 ， 都 与 4.1.7 节 的 求 值 器 里 
的 这 些 过 程 完全 一 样 ， 当 然 ， 我 们 还 需要 增加 几 个 语法 过 程 ， 以 便 识别 amb 特 殊 形式 2% 。 


(define (amb? exp) (tagged-list? exp ’amb)) 


(define (amb-choices exp) (cdr exp)) 
我 们 必须 在 analyze 里 增加 一 个 分 派 子 句 ， 识 别 这 一 特殊 形式 并 生成 一 个 适当 的 执行 过 程 : 
((amb? exp) (analyze-amb exp)) 
最 高 层 过 程 ambeval (与 在 4.1.7 节 里 给 出 的 eval 版 本 类 似 ) 分 析 给 定 的 表达 式 ， 并 将 
得 到 的 执行 过 程 应 用 到 给 定 的 环境 和 两 个 给 定 的 继续 过 程 上 : 


(define (ambeval exp env succeed fail) 


((analyze exp) env succeed fail)) 
成 功 继续 是 一 个 带 有 两 个 参数 的 过 程 ， 刚刚 得 到 的 值 以 及 另 一 个 失败 过 程 ， 如 果 这 个 值 
随后 导致 失败 的 话 ， 它 就 去 调用 该 失败 继续 过 程 。 失 败 继续 是 一 个 无 参 过 程 Ak, Ao 


?6 我 们 假定 求 值 器 支持 Let 〈 见 练习 4.22) ， 因 为 在 非 确定 性 程序 里 需要 用 E 
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程 的 一 般 形 式 是 : 
(lambda (env succeed fail) 
;; succeed is (lambda (value fail) ...) 
;; fail is (lambda () ...) 
..) 


举例 说 ， 执 行 
(ambeval <exp> 
the-global-environment 
(lambda (value fail) value) 
(lambda () ’failed)) 
将 企图 去 求 值 给 定 的 表达 式 ， 最 后 或 者 是 返回 表达 式 的 值 (如 果 这 一 求 值 成 功 ) ， 或 者 返回 符 
Stailed (如 果 求 值 失 败 )。 在 下 面 所 示 的 驱动 循环 中 ， 对 于 ambeval 的 调用 里 使 用 了 更 复 
杂 的 继续 过 程 ， 它 们 继续 进行 循环 以 支持 try-again 请 求 。 
amb 求 值 器 中 最 复杂 的 问题 ， 也 就 是 那些 将 继续 过 程 在 相互 调用 的 执行 过 程 之 间 传 来 传 
去 的 机 制 。 在 阅读 下 面 给 出 的 代码 时 ， 你 应 该 将 每 一 个 执行 过 程 与 4.1.7 节 里 常规 求 值 嚣 中 相 
应 的 执行 过 程 比较 一 下 。 l 


简单 表达 式 

简单 表达 式 的 执行 过 程 与 常规 求 值 器 中 的 相应 过 程 基本 一 样 ， 只 是 它们 还 需要 管理 继续 
过 程 。 这 些 执行 过 程 以 有 关 表 达 式 的 值 直接 成 功 返 回 ， 同 时 传递 送 给 它们 的 失败 继续 过 程 : 

(define (analyze-seli--valuating exp) 


(lambda (env succeed fail) 
(succeed exp fail))) 


(define (analyze-quoted exp) 
(let ((qval (text-of-quotation exp) )) 
(lambda (env succeed fail) 


(succeed qval fail)))) 


(define (analyze-variable exp) 
(lambda (env succeed fail) 
(succeed (lookup-variable-value exp env) 
fail))) 


(define (analyze-lambda exp) 
(let ((vars (lambda-parameters exp) ) 
(bproc (analyze-sequence (lambda-body exp)))) 
(lambda (env succeed fail) 
(succeed (make-procedure vars bproc env) 
fail)))) 


注意 ， 查 找 变量 值 总 是 “成 功 *”。 如 果 Iookup-variable-value 无 法 找到 这 个 变量 ， 
它 像 平 常 一 样 发 出 错误 信号 ， 这 种 “失败 ”表明 了 一 个 程序 错误 一 -引用 了 无 约束 的 变量 ， 
而 并 不 表示 我 们 应 该 在 当前 所 试 的 选择 之 外 再 去 试探 另 一 个 非 确定 性 的 选择 。 


条 件 和 序列 
条 件 表 达 式 的 处 理 方式 也 与 常规 求 值 器 中 类 似 。 由 analyze-if 生 成 的 执行 过 程 去 调用 


谓词 执行 过 程 pproc ， 过 程 pproc 的 成 功 继续 过 程 检查 谓词 的 值 是 否 为 真 ， 并 根据 情况 去 执 
行 条 件 表达 式 的 推论 部 分 或 者 替代 部 分 。 如 果 pproc 的 执行 失败 ， 那 么 就 调用 这 个 1f 表 达 式 
原来 的 失败 继续 过 程 : 


(define (analyze-if exp) 

(let ((pproc (analyze (if-predicate exp))) 
{cproc (analyze (if-consequent exp))) 
(aproc (analyze (if-alternative exp)))) 

(lambda (env succeed fail) 
(pproc env 

z success continuation for evaluating the predicate 

3; to obtain pred-value 

(lambda (pred-value fail2) 

(if (true? pred~value) 

(cproc env succeed fail2) 
(aproc env succeed fail2))) 

;; failure continuation for evaluating the predicate 

fail)))) 


序列 也 按照 与 前 面 求 值 器 同样 的 方式 处 理 ， 除 了 子 过 程 seGuentially 里 的 那些 机 制 外 。 
在 那里 需要 传递 继续 过 程 。 如 果 要 顺序 地 先 执 行 a 而 后 执行 b ， 我 们 就 用 一 个 成 功 继续 过 程 调 
用 a ， 而 这 个 成 功 继续 过 程 将 调用 b。 


(define (analyze-sequence exps) 
(define (sequentially a b) 
(lambda (env succeed fail) 
(a env 
z; success continuation for calling a 
(lambda (a-value fail2) 
(b env succeed fail2)) 
;; failure continuation for calling a 
fail))) 
(define (loop first-proc rest-procs) 
(if (mull? rest-procs) 
first-proc 
(loop (sequentially first-proc (car rest-procs)) 
(cdr rest-procs)))) 
(let ((procs (map analyze exps))) 
(if (null? procs) 
(error "Empty sequence -- ANALYZE") ) 


(loop (car procs) (cdr procs)))) 


定义 和 赋值 

在 对 定义 的 处 理 中 ， 继 续 过 程 的 管理 问题 比较 麻烦 ， 因 为 这 里 必须 在 实际 定义 新 变量 之 
前 对 定义 值 的 表达 式 求 值 。 为 了 完成 这 一 工作 ， 在 这 里 需要 用 当时 的 环境 、 一 个 成 功 继续 和 
一 个 失败 继续 过 程 作为 参数 ， 去 调用 定义 值 的 执行 过 程 YProc 。 如 果 vproc 的 执行 成 功 ， 那 
么 就 得 到 了 定义 变量 所 需 的 值 val， 这 时 就 定义 有 关 的 变量 并 传播 这 一 成 功 : 


(define (analyze-definition exp) 
(let ((var (definition-variable exp) ) 
(vproc (analyze (definition-value exp)))) 
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(lambda (env succeed fail) 
(vproc env 
{lambda (val fail2) 
(define-variable! var val env) 
(succeed ’ok fail2)) 
fail)))) 


赋值 的 情况 更 加 有 趣 。 这 是 我 们 实际 使 用 继续 过 程 的 第 一 个 地 方 ， 而 不 仅仅 是 将 它们 传 
来 传 去 。 针 对 赋值 的 执行 过 程 的 开始 部 分 与 定义 类 似 ， 首 先 企 图 求 得 需要 赋 给 变量 的 新 值 。 
如 果 对 vproc 的 求 值 失败 ， 这 个 赋值 也 就 失败 了 。 

如 果 vVproc 成 功 ， 当 然 就 要 去 做 实际 的 赋值 。 但 在 这 时 必须 考虑 计算 的 这 一 分 支 以 后 出 
现 失 败 的 可 能 性 ， 而 到 那 时 就 需要 对 这 个 赋值 做 回 湖 了。 如 果 要 完成 回 湖 ， 我 们 就 必须 把 撤 
销 这 个 赋值 的 工作 作为 回溯 过 程 的 一 部 分 。 

完成 这 一 工作 的 方式 是 给 出 一 个 成 功 继续 过 程 (下 面 标 有 注释 “*1* ”的 部 分 ) ， 它 在 给 
这 个 变量 赋 新 值 之 前 保存 变量 原来 的 值 ， 而 后 才 实 际 做 赋值 。 与 这 一 赋值 的 值 一 起 传递 的 失 
败 继续 过 程 (下 面 标 有 注释 “*2* ”的 部 分 ) 将 在 继续 传播 有 关 的 失败 之 前 恢复 变量 的 原 值 。 
这 样 ， 一 个 成 功 的 赋值 就 提供 了 一 个 失败 继续 过 程 ， 这 一 过 程 将 拦截 随后 的 失败 ， 无 论 出 现 
什么 失败 ， 只 要 其 原本 需要 调用 fail2， 现 在 都 会 转 来 调用 这 个 过 程 ， 在 实际 调用 fai1l2 之 
前 撤销 所 做 的 赋值 。 


(define (analyze-assignment exp) 
(let ((var (assignment-variable exp) ) 
(vproc (analyze (assignment-value exp)))) 
(lambda (env succeed fail) 
(vproc env 
(lambda (val fail2) ; *1* 
(let ((old-value 
(lookup-variable-value var env))) 
(set-variable-value! var val env) 
(succeed "ok 
(lambda () s *2* 
(set-variable-value! var 
old-value 
env) 
(fail2))))) 
fail)))) 


过 程 应 用 

针对 应 用 的 执行 过 程 里 并 不 包含 什么 新 思想 ， 只 有 一 些 为 了 管理 各 种 继续 过 程 而 带 来 的 
复杂 情况 。 这 里 的 复杂 性 出 自 analyze-application， 这 是 由 于 在 对 运算 对 象 的 求 值 过 程 
中 ， 需 要 维护 成 功 和 失败 继续 过 程 的 轨迹 。 我 们 用 一 个 过 程 get-args 去 求 值 运 算 对 象 的 表 ， 
而 不 是 像 常规 求 值 器 中 那样 直接 使 用 nap : l 


(define (analyze-application exp) 
(let ((fproc (analyze (operator exp))) 
(aprocs (map analyze (operands exp)))) 


6 我 们 无 需 为 撤销 定义 费心 ， 因 为 可 以 假定 内 部 的 定义 都 已 经 扫描 出 来 了 〈 见 4.1.6 节 )。 
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(lambda (env succeed fail) 
(fproc env 
(lambda (proc fail2) 
(get-args aprocs 
env 
(lambda (args fail3) 
(execute-application 
proc args succeed fail3)) 
fail2)) 
fail)))) 


请 注意 在 get-args 里 ， 我 们 怎样 通过 car 穿 过 aproc 执 行 过 程 的 表 ， 并 用 cons 构造 起 
args 的 结果 表 ， 其 中 用 一 个 成 功 继续 过 程 作为 参数 去 调用 表 里 的 各 个 apzoc ， 这 种 调用 里 中 
又 递归 地 调用 了 get-azrgs 。 这 里 对 于 get-args 的 每 个 递归 调用 都 有 一 个 成 功 继续 ， 其 值 
是 将 新 得 到 的 实际 参数 cons 到 已 经 积累 起 来 的 实际 参数 表 上 : 


(define (get-args aprocs env succeed fail) 
(if (null? aprocs) 
(succeed ’() fail) 
((car aprocs) env 
;; success continuation for this aproc 
(lambda (arg fail2) 
(get-args (cdr aprocs) 
env 
六 success continuation for recursive 
;; callto get-args 
(lambda (args fail3) 
(succeed (cons arg args) 
fail3)) 
fail2)) 
fail))) 


实际 过 程 应 用 由 execute-application 执 行 ， 它 完成 工作 的 方式 与 常规 求 值 器 一 样 ， 
除了 其 中 需要 管理 一 些 继续 过 程 之 外 : 


(define (execute-application proc args succeed fail) 
(cond ((primitive-procedure? proc) 
(succeed (apply-primitive-procedure proc args) 
fail)) 
( (compound-procedure? proc) 
( (procedure-body proc) 
{extend-environment (procedure-parameters proc) 
args 
(procedure-environment proc) ) 
succeed 
fail)) 
(else 
(error 
"Unknown procedure type -- EXECUTE-APPLICATION" 


proc)))) 


amb 表 达 式 的 求 值 
特殊 形式 amb 是 这 一 非 确定 性 语言 中 的 核心 元 素 。 我 们 可 以 从 这 里 看 到 解释 过 程 的 基本 


A HR 


情况 ， 以 及 维护 继续 过 程 轨迹 的 原因 。amb 的 执行 过 程 定义 了 一 个 循环 try-next ， 它 周 而 
复 始 地 去 做 针对 表达 式 中 所 有 可 能 值 的 执行 过 程 。 对 于 每 个 执行 过 程 的 调用 都 带 有 一 个 失败 
继续 ， 这 一 失败 过 程 将 导致 我 们 去 试探 下 一 个 可 能 性 。 当 不 再 存在 更 多 可 试探 的 可 能 性 时 ， 
整个 amb 表 达 式 失败 。 
(define (analyze-amb exp) 
(let ((cprocs (map analyze (amb-choices exp)))) 
(lambda (env succeed fail) 
(define (try-next choices) 
(if (null? choices) 
(fail) 
((car choices) env 
succeed 
(lambda () 
(try-next (cdr choices)))))) 


{try-next cprocs)))) 
/ 


驱动 循环 

由 于 需要 有 人 允许 用 户 重 试 表达 式 求 值 (try-again) 的 机 制 ， 这 就 使 amb 求 值 器 的 驱动 
循环 变 得 非常 复杂 。 这 一 驱动 程序 里 用 了 一 个 称 为 internal-lIoop 的 过 程 ， 该 过 程 以 过 程 
try-again 作 为 参数 ， 这 里 的 意图 就 是 ， 调 用 try-again 将 导致 在 非 确定 性 求 值 中 走 进 下 
一 个 未 经 试探 的 分 支 。 这 个 internal-1loop 或 者 是 调用 try-again， 以 响应 用 户 在 驱动 循 
环 中 输入 的 try-again 请 求 ， 或 者 是 调用 ambeval 去 开始 一 次 新 的 求 值 。 

对 于 ambeval 调 用 的 失败 继续 过 程 将 通知 用 户 ， 现 在 已 经 没有 更 多 的 值 了 。 而 后 它 会 重 
新 调用 驱动 循环 。 

对 于 ambeval 调 用 的 成 功 继续 过 程 则 更 加 精细 而 微妙 。 它 将 打印 出 当时 得 到 的 值 ， 并 用 
一 个 try-again 过 程 去 再 次 调用 内 部 循环 ， 以 便 去 试探 下 一 可 能 性 。 这 里 的 next- 
alternative 过 程 被 作为 第 二 个 参数 传递 给 相应 的 成 功 继续 过 程 。 按 照常 规 ， 我 们 应 该 认 
为 这 第 二 个 参数 是 一 个 失败 继续 过 程 ， 是 在 当前 的 求 值 分 支 在 后 面 失败 时 被 调用 的 。 而 在 目 
前 的 这 种 情况 里 ， 我 们 刚刚 完成 了 一 次 成 功 求 值 ， 所 以 应 该 调用 这 个 “失败 ”可 能 性 的 分 支 ， 


以 便 去 搜索 出 其 他 更 多 的 成 功 求 值 。 
(define input-prompt ";;; Amb-Eval input:") 
(define output-prompt ";;; Amb-Eval value:") 


(define (driver-loop) 
(define (internal-loop try~again) 
(prompt-for-input input-prompt) 
(let ((input (read))) 
(if (eq? input *try-again) 
(try-again) 
(begin 
(newline) 
(display ";;; Starting a new problem ") 
(ambeval input 
the-global-environment 


js; ambeval success 
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(lambda (val next-alternative) 
(announce-output output-prompt) 
(user-print val) 
(internal-loop next-alternative) ) 
3; ambeval failure 
(lambda () 
(announce-output 
"333 There are no more values of") 
(user-print input) 
(driver-loop))})))} 
(internal-loop 
(lambda () 
(newline) 
(display ";;; There is no current problem") 
(driver-loop)))) 


对 internal-1loop 的 初始 调用 里 用 了 一 个 zy-again 过 程 ， 它 将 抱怨 说 设 有 当前 的 问题 ， 
并 重新 开始 驱动 循环 。 当 用 户 在 尚未 求 值 的 情况 下 输入 Fry-again 时 ， 就 会 出 现 这 种 情况 。 

练习 4.50 ”请 实现 一 种 新 的 特殊 形式 ramb， 它 应 该 与 amb 类 似 ， 但 是 以 一 种 随机 的 方式 
搜索 各 种 可 能 性 ， 而 不 是 严格 地 从 左 到 右 。 请 说 明 这 一 机 制 可 能 怎样 对 练习 4.49 中 Alyssa 遇 到 
的 问题 有 所 帮助 。 

练习 4.51 请 实现 一 种 新 的 赋值 permanent-set!, 在 遇 到 失败 时 ， 这 种 赋值 并 不 撤销 。 
举例 来 说 ， 我 们 可 能 需要 从 一 个 表 里 选 出 两 个 不 同 元 素 ， 并 统计 在 完成 一 个 成 功 选择 的 过 程 
中 做 这 种 试验 的 次 数 ， 这 可 以 写成 : ` 

(define count 0) 


(let ((x (an-element-of '{a b c))) 
(y (an-element-of ’(a b c)))) 

(permanent-set! count (+ count 1)) 
(require (not (eq? x y))) 
(list x y count)) 

7 Starting a new problem 

7; Amb-Eval value: 

(a b 2) 


777 Amb-Eval input: 
try-again 

:+ Amb-Eval value: 
fa c 3) 


如 果 在 这 里 用 的 是 set ! 而 不 是 permanent-set!， 那 么 这 时 会 显示 出 什么 ? 

练习 4.52 ”请 实现 一 种 新 的 称 为 L£-fail 的 结构 ， 它 允许 用 户 去 捕 握 一 个 表达 式 里 的 失 
败 。if-fail 有 两 个 参数 。 它 像 平常 一 样 求 值 第 一 个 表达 式 ， 如 果 求 值 成 功 就 像 平常 一 样 返 
同 。 然 而 如 果 这 一 求 值 失败 ， 那 么 它 就 返回 第 二 个 表达 式 的 值 。 看 下 面 的 例子 : 


277 Amb-Eval input: 
(if-fail (let ((x (an-element-of "(1 3 5)))) 
(require (even? x)) 
x) 
’all-odd) 
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77 Starting a new problem 
777 Amb-Eval value: 
all-odd 


777 Amb-Eval input: 
(if-fail (let ((x (an-element-of ’(1 3 5 8)))) 
(require (even? x)) 
x) 
’all-odd) 
77， Starting a new problem 
373 Amb-Eval value: 
8 


练习 4.53 ”如 果 采 用 了 练习 4.51 的 pezmanent-set! 和 练习 4.52 的 if-fail， 下 面 求 值 
”的 结果 是 什么 ? 
(let ((pairs ’())) 
(if-fail (let ((p (prime-sum-pair ’(1 3 5 8) (20 35 110)))) 
(permanent-set! pairs (cons p pairs)) 
(amb) ) 
pairs) ) 
练习 4.54 ”如 果 我 们 原来 没有 认识 到 require 可 以 用 amb 实 现 为 一 个 常规 过 程 ， 可 以 由 
用 户 作为 非 确定 性 程序 的 一 部 分 来 定义 ， 那 么 ， 我 们 可 能 就 不 得 不 将 它 实现 为 一 个 特殊 形式 。 
这 可 能 需要 下 面 的 语法 过 程 : 
(define p@quire? exp) (tagged-list? exp ’require)) 


(define (require-predicate exp) (cadr exp)) 


以 及 analyze 里 完成 分 派 的 一 个 新 子 句 : 


((require? exp) (analyze-require exp) ) 


还 要 用 过 程 analyze-require 去 处 理 表 达 式 require。 请 完成 下 面 的 定义 analyze- 
require; 
(define (analyze-require exp) 
(let ((pproc (analyze (require-predicate exp)))) 
(lambda (env succeed fail) 
(pproc env 
(lambda (pred-value fail2) 
(if <??> 
<??> 
(succeed ’ok fail2))) 
fail)))) 


44 逻辑 程序 设计 


在 第 1 章 里 我 们 强调 说 ， 计 算 机 科学 处 理 的 是 命令 式 〈 怎 样 做 ) 的 知识 ， 而 数学 处 理 的 是 
说 明 式 (是 什么 ) 的 知识 。 确 实 是 这 样 ， 程 序 设计 语言 要 求 程序 员 以 一 种 形式 去 表述 有 关 的 
知识 ， 其 中 需要 指明 一 种 为 解决 某 一 特定 问题 的 一 步 一 步 的 方法 。 但 在 另 一 方面 ， 作 为 语言 
实现 的 一 部 分 ， 高 级 语言 也 提供 了 很 大 量 的 方法 论 知识 ， 使 用 户 可 以 不 必 关 心 具体 计算 如 何 


进行 的 许多 细节 。 

大 部 分 程序 设计 语言 ， 包括 Lisp， 都 是 围绕 着 数学 函数 值 的 计算 组 织 起 来 的 。 面 向 表达 
式 的 语言 (例如 Lisp 、Fortran 和 Algol) 利用 了 表达 式 的 “一 语 双 关 ”; 一 个 描述 了 某 个 函数 值 
的 表达 式 也 可 以 解释 为 一 种 计算 该 值 的 方法 。 正 由 于 此 ， 大 部 分 程序 设计 语言 都 强烈 地 倾向 
于 单一 方向 的 计算 〈 计 算 中 有 着 定义 清晰 的 输入 和 输出 )。 然 而 ， 也 确实 存在 一 些 与 此 有 着 根 
本 性 不 同 的 程序 设计 语言 ， 其 中 减轻 了 这 种 倾向 性 。 在 3.3.5 节 里 我 们 已 经 看 到 过 一 个 这 方面 
的 例子 ， 那 里 的 计算 对 象 是 一 些 算术 约束 条 件 。 在 一 个 约束 系统 里 ， 计 算 的 方向 和 顺序 都 没 
有 明确 定义 ;在 执行 这 种 计算 的 过 程 中 ， 系 统 必 须 为 “怎样 做 ”提供 许多 细节 ， 比 常规 的 算 
术 计 算 更 多 一 些 。 当 然 ， 这 并 不 意味 着 用 户 可 以 完全 摆脱 提供 命令 式 知识 的 责任 。 存 在 着 许 
多 能 够 实现 同一 集约 束 关 系 的 约束 网 络 ， 用 户 必 须 从 这 些 数学 上 等 价 的 网 络 中 ， 选 出 一 个 适 
合 于 某 一 特定 计算 的 网 络 。 

4.3 节 展示 的 非 确定 性 程序 求 值 器 也 偏离 了 常规 的 观点 ， 即 那 种 认为 程序 设计 就 是 关于 如 
何 构造 出 计算 单 向 函数 的 算法 的 观点 。 在 一 个 非 确定 性 的 语言 里 ， 表 达 式 可 以 有 多 个 值 ， 而 
作为 这 种 性 质 的 结果 ， 计 算 中 需要 处 理 的 就 是 关系 ， 而 不 是 单一 值 的 函数 。 逻 辑 程序 设计 扩 
展 了 这 一 思想 ， 提 出 了 一 种 程序 设计 的 关系 模型 ， 其 中 加 入 了 一 类 功能 强大 的 称 为 合 一 的 符 
号 模式 匹配 他。 

在 这 一 方法 可 以 用 的 那些 地 方 ， 它 能 成 为 一 种 威力 强大 的 写 程序 方式 。 这 种 威力 部 分 来 
自 于 下 面 的 事实 : 一 个 有 关 “ 是 什么 ”的 事实 可 能 被 用 于 解决 多 个 不 同 的 问题 ， 其 中 可 能 包 
含 着 不 同 的 “怎样 做 ”部 分 。 作 为 一 个 例子 ， 下 面 考虑 简单 的 apPend 操 作 ， 它 以 两 个 表 作 为 
参数 ， 组 合 起 它们 的 元 素 ， 形 成 一 个 作为 结果 的 表 。 在 一 种 过 程 性 语言 里 ， 如 Lisp ， 我 们 可 
以 基于 基本 的 表 构 造 函 数 cons 定 义 出 apPena ， 正 如 前 面 2.2.1 节 所 和 做 的 那样 ; 

(define (append x y) 

(if (mull? x) 
Y 
{cons (car x) (append (cdr x) y)))) 
这 个 过 程 可 以 看 作 是 把 下 面 的 两 条 规则 翻译 到 Lisp 语 言 里 ， 其 中 的 第 一 条 规则 涵盖 了 所 有 第 
- -个 表 为 空 的 情况 ， 而 第 二 条 处 理 非 空 表 的 情况 ， 这 种 表 是 两 个 部 分 的 cons ; 
。 对 于 任何 一 个 表 y， 对 空 表 与 y 进 行 append 形 成 的 就 是 y 。 


202 罗 辑 程序 设计 是 从 有 关 自 动 定理 证 明 的 长 期 研究 中 产生 出 来 的 。 早 期 有 关 定 理 证 明 程序 的 建树 很 少 ， 因 为 它 
们 都 是 在 穷尽 地 搜索 可 能 证 明 的 空间 。 使 这 种 搜索 成 为 可 能 的 最 重要 突破 是 在 20 世纪 60 年 代 前 期 被 发 现 的 合 
一 算法 和 归结 原理 (Robinson 1965 )。 举 例 来 说 ， 归 结 被 Green 和 Raphael (1968 ) ( 另 见 Green 1969) 用 作 
他 们 的 演绎 式 问 题 回 答 系统 的 基础 。 在 此 期 间 ， 研究 者 们 主要 关注 的 是 保证 能 找到 证 明 (如 果 存 在 的 话 ) 的 
算法 。 控 制 这 种 算法 ， 使 之 导向 一 个 证 明 是 很 困难 的 。Hewitt (1969) WRR, 我 们 有 可 能 将 程序 设计 语言 
的 控制 结构 和 完成 逻辑 操作 的 系统 中 的 运算 结合 起 来 ， 由 此 导致 了 4.3.1 节 提 到 的 自动 搜索 方面 的 工作 ( 见 肢 
注 251 )。 在 这 同一 时 期 ，Colmerauer 在 马赛 为 处 理 自然 语言 而 开发 了 一 些 基于 规则 的 系统 ( 见 Colmerauer et 
al. 1973), 为 了 表示 这 些 规 则 , 他 发 明了 一 种 称 为 Prolog 的 语言 。 在 爱丁堡 的 Kowalski (1973; 1979) 认识 到 ， 
Prolog 程序 的 执行 过 程 可 以 解释 为 是 在 证 明定 理 (采用 的 是 一 种 称 为 线性 Horn 子 句 的 证 明 技 术 )。 后 面 这 两 
股 力量 的 融合 最 后 产生 出 逻辑 程序 设计 运动 。 正 因为 这 样 ， 在 分 配 逻 辑 程序 设计 开 发 的 荣誉 时 ， 法 国人 可 以 
指出 Prolog 在 马赛 大 学 的 诞生 ， 而 英国 人 则 可 以 强调 爱丁堡 大 学 的 工作 。 而 根 据 MIT 人 士 的 看 法 ， 逻 辑 程 序 
设计 的 开发 ， 不 过 是 这 些 研究 组 在 试图 弄 清楚 Hewitt 在 其 才华 横 洲 而 又 深 不 可 测 的 博士 论文 中 到 底 说 了 些 什 
么 的 过 程 中 搞 出 来 的 。 有 关 浸 辑 程 序 设 计 的 历史 可 参见 Robinson 1983 。 


。 对 于 任何 的 、v、y 和 z, 将 (cons u v) 与 y 做 append 将 形成 (cons u z)， 条 件 
是 V 与 y 的 append 形 成 z* 3。 

利用 这 一 append 过 程 ， 我 们 可 以 回答 诸如 下 面 这 一 类 的 问题 : 

找 出 (a b) 和 (c d) append, 

但 是 ， 同 样 的 两 条 规则 也 是 以 回答 下 面 这 类 问题 ， 而 上 述 过 程 却 无 法 回答 : 

找 出 一 个 表 Y， 使 它 与 (a b) 的 append 产 生出 (a bec dq), 

找 出 所 有 的 X 和 y， 它 们 的 append 形 成 (a bc d), 

在 逻辑 式 程序 设计 语言 里 ， 程 序 员 写 append “过 程 ”的 方式 也 就 是 陈述 出 上 面 给 出 的 有 
关 append 的 两 条 规则 。 相 应 的 “怎样 做 ”的 知识 由 解释 器 自动 提供 ， 这 将 使 这 一 对 规则 能 够 
回答 上 面 的 三 类 有 关 append 的 问题 2 。 

当代 的 逻辑 程序 设计 语言 (包括 我 们 在 这 里 将 要 实现 的 这 个 ) 都 有 一 些 实质 性 的 缺陷 ， 
它们 里 面 有 关 “ 怎样 做 ”的 通用 方法 ， 有 可 能 使 它们 陷入 廖 误 性 的 无 穷 循环 或 者 其 他 并 非 我 
们 期 望 的 行为 之 中 。 逻 辑 程序 设计 是 计算 机 科学 研究 的 一 个 活跃 领域 *。 

在 本 章 的 前 面部 分 里 ， 我 们 探索 了 一 些 实现 解释 器 的 技术 ， 也 描述 了 针对 类 Lisp 语 言 能 
解释 器 的 基本 元 素 〈 实 际 上 ， 也 就 是 针对 任何 常规 语言 的 解释 器 ) 。 现 在 我 们 将 要 应 用 这 些 思 
想 ， 讨 论 一 个 逻辑 程序 设计 语言 的 解释 器 。 我 们 称 这 种 语言 为 查询 语言 ， 因 为 在 描述 提取 数 
据 库 信息 的 查询 或 称 提 问 时 ， 这 种 语言 非常 有 用 。 虽 然 这 种 查询 语言 与 Lisp 差 异 巨大 ， 但 我 
们 会 发 现 ， 基 于 前 面 一 直 在 使 用 的 一 般 性 框架 描述 这 个 语言 也 是 很 方便 的 : 一 组 基本 元 素 ， 
加 上 一 些 组 合 手段 ， 使 我 们 能 将 简单 元 素 组 合 起 来 构造 更 复杂 的 元 素 ， 还 有 抽象 的 手段 ， 使 
我 们 能 将 复杂 的 元 素 看 作 单 个 的 概念 单元 。 逻 辑 程序 设计 的 解释 器 比 像 Lisp 那 类 语言 的 解释 
器 复杂 许多 ， 然 而 ， 正 如 我 们 将 要 看 到 的 ， 这 个 查询 语言 解释 器 里 也 包含 了 许多 可 以 在 4.1.1 
节 的 解释 器 里 找到 的 同样 元 素 。 特 别 是 这 里 也 存在 着 一 个 “ 求 值 ”部 分 ， 它 基于 表达 式 类 型 
做 分 类 ， 还 有 一 个 “应 用 ”部 分 ， 实 现 语言 里 的 抽象 机 制 ( 在 Lisp 里 是 过 程 ， 在 逻辑 程序 设 
计 中 是 规则 )。 还 有 ， 在 这 一 实现 中 扮演 着 核心 角色 的 是 一 种 框架 数据 结构 ， 它 确定 了 符号 与 
它们 的 关联 值 之 间 的 对 应 。 这 一 查询 语言 中 另 一 个 有 趣 的 地 方 是 我 们 实质 性 地 使 用 了 流 ， 那 
是 在 第 3 章 里 介绍 的 。 


4.4.1 演绎 信息 检索 
逻辑 程序 设计 特别 适合 为 数据 库 提供 界面 ， 用 于 完成 各 种 信息 检索 。 我 们 在 本 章 将 要 实 


w 为 了 看 到 在 这 些 规则 与 过 程 之 间 的 对 应 ， 令 过 程 中 的 x (这 里 的 x 非 空 ) 对 应 于 规则 里 的 (cons u v), 这 
样 z 就 对 应 于 (car x) 和 y 的 append。 

264 这 当然 还 不 可 能 使 用 户 摆 脱 有 关 如 何 计算 出 答案 的 所 有 问题 。 存 在 许多 数学 上 等 价 的 描述 append 关 系 的 不 
同 规则 集合 ， 其 中 只 有 一 些 可 以 转化 为 能 在 任意 方向 上 有 效 地 计算 的 设施 。 此 外 ， 有 时 “是 什么 ”的 信息 对 
于 并 没有 给 出 有 关 “ 怎 样 做 ”的 任何 线索 。 例 如 ， 请 考虑 下 面 问题 ， 计 算出 y 使 得 =X。 

265 对 逻辑 程序 设计 的 兴趣 在 20 世 纪 80 年 代 前 期 达到 高 潮 ， 其 时 日 本 政府 开始 了 一 个 野心 勃勃 的 计划 ， 目 标 是 构 
造 出 一 种 能 够 优化 运行 逻辑 式 程序 设计 语言 的 超 高 速 计算 机 。 这 种 计算 机 的 速度 采用 LIPS (每 秒 完成 逻辑 推 
理 次 数 ，Logical Inferences Per Second) 来 衡量 ， 而 不 是 用 通常 的 FLOPS (每 秒 浮 点 运算 次 数 ，FLoating- 
point Operations Per Second) 。 虽 然 这 一 项 目 中 成 功 地 开发 出 了 开始 计划 的 有 关 硬 件 和 软件 ， 但 国际 计算 机 
工业 却 走向 了 不 同 的 方向 。 参 见 Feigenbaum and Shrobe 1993 有 关 日 本 项 目的 综合 评价 。 逻 辑 程序 设计 社团 也 
转向 考 虚 那些 不 是 基于 简单 模式 匹配 技术 的 关系 式 程序 设计 ， 例 如 处 理 数值 约束 的 能 力 ， 类 似 于 我 们 在 3.3.5 
节 展 示 的 约束 传播 系统 。 
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现 的 查询 语言 就 是 为 了 这 种 使 用 方式 而 设计 的 。 
为 了 说 明 一 人 我 们 要 在 这 里 展示 一 下 如 何 将 它 用 于 管理 


Microshaft 公 司 的 人 事 记 录 数 据 库 ， 这 是 一 个 位 于 波士顿 地 区 的 成 功 的 高 科技 公司 。 我 们 的 语 
言 提供 了 模式 导向 的 人 事 信 息 访问 ， ‘Er 利用 一 般 性 规则 去 做 逻辑 推理 。 
一 个 实例 数据 库 


Microshaft 的 人 事 数据 库 里 包含 了 一 些 有 关公 司 人 事 的 断言 ， 这 里 是 有 关 Ben Bitdiddle 的 
(address (Bitdiddle Ben) (Slumerville (Ridge Road) 10)) 


(job (Bitdiddle Ben) (computer wizard) ) 
(salary (Bitdiddle Ben) 60000) 


每 个 断言 是 一 个 表 (这 里 是 个 三 元 组 )， 其 元 素 本 身 也 可 以 是 表 。 
作为 这 里 的 大 师 ，Ben 管 理 着 公司 的 计算 机 分 部 ， 他 的 属 下 有 两 个 程序 员 和 一 个 技师 。 下 
面 是 有 关 他 们 的 信息 : 


(address (Hacker Alyssa P) (Cambridge (Mass Ave) 78)) 
{job (Hacker Alyssa P) (compute: programmer) ) 

(salary (Hacker Alyssa P) 40000) 

(supervisor (Hacker Alyssa P) (Bitdiddle Ben)) 


(address (Fect Cy D) (Cambridge (Ames Street) 3)) 
(job (Fect Cy D) (computer programmer) )} 

(salary (Fect Cy D) 35000) 

(supervisor (Fect Cy D) (Bitdiddle Ben)) 


(address (Tweakit Lem E) (Boston (Bay State Road) 22)) 
(job (Tweakit Lem E) (computer technician) ) 

(salary (Tweakit Lem E) 25000) 

(supervisor (Tweakit Lem E) (Bitdiddle Ben)) 


在 这 里 还 有 -- 个 实习 程序 员 ， 由 Alyssa 指 导 : 
(address (Reasoner Louis) (Slumerville (Pine Tree Road) 80)) 
(job (Reasoner Louis) (computer programmer trainee)) 
(salary (Reasoner Louis) 30000) 


(supervisor (Reasoner Louis) (Hacker Alyssa P)) 


所 有 这 些 人 都 属于 计算 机 分 部 ， 这 由 他 们 的 工作 描述 中 的 第 一 个 词 computer 表 明 。 
Ben 是 公司 的 高 级 雇员 ， 他 的 上 司 就 是 公司 的 大 老板 本 人 : 
(supervisor (Bitdiddle Ben) (Warbucks Oliver)) 
(address (Warbucks Oliver) (Swellesley (Top Heap Road) ) ) 


(job (Warbucks Oliver) (administration big wheel)) 


(salary (Warbucks Oliver) 150000) 


除了 计算 机 分 部 外 ， 这 个 公司 里 还 有 一 个 会 计 分 部 ， 由 一 位 主管 会 计 和 他 的 助手 组 成 : 
(address (Scrooge Eben) (Weston (Shady Lane) 10)) 

(job (Scrooge Eben) (accounting chief accountant)) 

(salary (Scrooge Eben) 75000) l 

(supervisor (Scrooge Eben) (Warbucks Oliver). 
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(address (Cratchet Robert) (Allston (N Harvard Street) 16)) 
(job (Cratchet Robert) (accounting scrivener) ) 

(salary (Cratchet Robert) 18000) 

(supervisor (Cratchet Robert) (Scrooge Eben) ) 


大 老板 还 有 一 个 秘书 : 

(address (Aull DeWitt) (Slumerville (Onion Square) 5)) 

(job (Aull DeWitt) (administration secretary) ) 

(salary (Aull DeWitt) 25000) 

(supervisor (Aull DeWitt) (Warbucks Oliver) ) 

这 个 数据 库 里 还 包含 另外 一 些 断 言 ， 描 述 了 从 事 某 些 工作 的 人 还 可 以 做 另外 一 些 种 类 的 
工作 。 比 如 说 ， 计 算 机 大 师 还 可 以 做 计算 机 程序 员 和 计算 机 技师 ; 


(can-do-job (computer wizard) (computer programmer) ) 


(can-do-job (computer wizard) (computer technician) ) 


计算 机 程序 员 还 可 以 做 实习 程序 员 的 工作 : 
(can-do-job (computer programmer) 


(computer programmer trainee)) 


还 有 ， 就 像 我 们 都 知道 的 : 
(can-do-job (administration secretary) 
(administration big wheel)) 


简单 查询 

这 一 查询 语言 允许 用 户 从 数据 库 里 检索 信息 ， 采 用 的 方式 就 是 在 响应 系统 的 提示 时 提出 
有 关 查 询 。 举 例 来 说 ， 为 了 找 出 所 有 的 计算 机 程序 员 ， 我 们 可 以 说 : 

777 Query input: 

(job ?x (computer programmer) ) 
系统 的 响应 将 会 是 下 面 几 项， 

777 Query results: 


(job (Hacker Alyssa P) (computer programmer) ) 
(job (Fect Cy D) (computer programmer) ) 


所 输入 的 查询 应 该 描述 出 我 们 需要 在 数据 库 里 查找 的 ， 能 与 一 个 特定 模式 匹配 的 那些 条 
目 。 在 这 个 例子 里 ， 描 述 条 目的 模式 由 三 个 项 组 成 ， 其 中 的 第 一 项 是 文字 符号 jop ， 第 二 个 
项 可 以 是 任何 东西 ， 而 第 三 项 是 文字 的 表 (computer programmer )。 在 描述 匹配 的 表 里 ， 
作为 第 二 项 的 “任何 东西 ”用 一 个 模式 变量 ?X 描 述 。 模 式 变量 的 一 般 形 式 是 一 个 符号 ， 作 为 
变量 的 名 字 ， 在 它 的 最 前 面 字符 是 一 个 问号 。 下 面 我 们 将 看 到 ， 为 模式 变量 取 名 字 是 有 用 的 ， 
因此 这 里 没有 采用 在 模式 中 放 一 个 ? ， 用 于 表示 “任何 东西 ”的 形式 。 系 统 对 简单 查询 的 响应 
就 是 显示 出 数据 库 里 所 有 的 能 与 给 定 模式 匹配 的 条 目 。 

模式 里 可 以 有 不 止 一 个 变量 。 例 如 查询 ， 

(address ?x ?y) 

将 列 出 所 有 雇员 的 地 址 。 

模式 里 也 可 以 没有 变量 。 此 时 这 一 查询 就 只 是 去 确认 该 模式 是 否 就 是 数据 库 里 的 一 个 条 

目 。 如 果 是 的 话 ， 那 么 就 存在 一 个 匹配 ， 否则 就 没有 匹配 。 


44 FRA RR it 309 


同一 模式 变量 也 可 以 在 一 个 查询 里 出 现 多 次 ， 这 就 刻画 了 同一 个 “任何 东西 ”必须 出 现 
的 各 个 不 同位 置 。 这 也 是 为 什么 变量 需要 有 名 字 的 原因 。 举 例 说 ， 
(supervisor ?3X ?x) 
将 找 出 所 有 的 人 ， 他 们 的 上 司 就 是 他 们 自己 (虽然 在 我 们 的 示例 数据 库 里 没有 这 种 断言 )。 
查询 : 
(job ?x (computer ?type)) 
与 所 有 这 样 的 工作 条 目 匹配 : 其 第 三 项 是 一 个 两 元 素 的 表 ， 其 中 的 第 一 项 是 computer” : 


(job (Bitdiddle Ben) (computer wizard) ) 

(job (Hacker Alyssa P) (computer programmer) ) 
(job (Fect Cy D) (computer programmer) ) 

(job (Tweakit Lem E) (computer technician) ) 


这 个 模式 不 会 与 下 面条 目 匹 配 : 
(job (Reasoner Lowis) (computer programmer trainee) ) 
因为 这 一 条 目 里 的 第 三 项 是 一 个 包含 三 个 元 素 的 表 ， 而 模式 里 的 第 三 项 清 清楚 楚 地 说 明 它 要 
求 只 有 两 个 元 素 。 如 果 我 们 希望 修改 上 面 模式 ， 使 被 匹配 的 条 目的 第 三 项 可 以 是 任何 一 个 由 
computez 开 头 的 表 ， 那 么 就 可 以 采用 下 面 的 描述 ， 
(job ?x (computer . ?type)) 
例如 ， 
(computer . ?type) 
将 能 够 匹配 数据 
(computer programmer trainee) 
其 中 的 ?type 与 表 (programmer trainee) 匹配 。 这 个 模式 也 能 匹配 数据 
(computer programmer) 
其 中 的 ?type 匹 配 表 (programmer)。 还 能 匹配 数据 
(computer) 
其 中 的 ?type 匹 配 空 表 O, 
我 们 可 以 把 对 于 这 一 查询 语言 中 简单 查询 的 处 理 描述 如 下 : | 
。 系 统 将 找 出 使 得 查询 模式 中 变量 满足 这 一 模式 的 所 有 赋值 ， 也 就 是 说 ， 为 这 些 变量 找 出 
所 有 的 值 集合 ， 使 得 如 果 将 这 些 模 式 变量 用 这 样 的 一 组 值 实例 化 (取代 )， 得 到 的 结果 
就 在 这 个 数据 库 里 。 
。 系 统 对 查询 的 响应 方式 ， 就 是 列 出 查询 模式 的 所 有 满足 要 求 的 实例 ， 这 些 实例 可 以 通过 
将 模式 中 的 变量 赋 为 满足 它 的 值 而 得 到 。 
请 注意 ， 如 果 模 式 中 没有 变量 ， 这 个 查询 就 简化 为 一 个 有 关 此 模式 是 否 出 现在 数据 库 里 
的 确认 了。 如 果 确 实 如 此 ， 空 赋值 (不 为 任何 变量 赋值 ) 将 在 数据 库 里 满足 这 一 模式 。 
练习 4.55 ”请 给 出 在 上 述 数 据 库 里 检索 下 面 信息 的 简单 查询 : 
a) 所 有 被 Ben Bitdiddle 管 理 的 人 ， 


266 采用 带 点 尾部 的 记 革 形式 在 2.20 节 介绍 。 
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b) 会 计 部 所 有 人 的 名 字 和 工作 ， 

c) 在 Slumerville 居 住 的 所 有 人 的 名 字 和 住址 。 

复合 查询 

简单 查询 形成 了 这 一 查询 语言 的 基本 操作 。 为 了 构造 复合 操作 ， 查 询 语言 提供 了 一 些 组 
合 手 段 。 使 查询 语言 成 为 逻辑 程序 设计 语言 的 一 个 原因 是 ， 在 这 里 所 用 的 组 合 手 段 模 仿 了 构 
造 逻 辑 表 达 式 的 组 合 手 段 : and、or 和 not。( 这 里 所 说 的 and、or 和 not 并 不 是 Lisp 基 本 过 
程 ， 而 是 用 于 查询 语言 的 几 个 内 部 操作 。) 

我 们 可 以 利用 ana ， 用 下 面 查 询 找 出 所 有 计算 机 程序 员 的 住址 : 


(and (job ?person (computer programmer) ) 
(address ?person ?where)) 


输出 的 结果 是 : 
(and (job (Hacker Alyssa P) (computer programmer)) 


(address (Hacker Alyssa P) (Cambridge (Mass Ave) 78)» 


(and (job (Fect Cy D) (computer programmer) ) 
(address (Fect Cy D) (Cambridge (Ames Street) 3))) 

一 般 说 ， 

(and <query,> <query,> ... <query,>) 
由 对 模式 变量 的 所 有 同时 满足 <query:> ... <queryn> 的 值 集 合 满足 。 

就 像 简 单 查 询 一 样 ， 系 统 处 理 复 合 查询 的 方式 ， 也 是 找 出 对 模式 变量 的 所 有 满足 查询 的 
赋值 ， 而 后 显示 出 查询 对 于 这 些 值 的 实例 化 结果 。 

构成 复合 查询 的 另 一 个 手段 是 通过 or 。 例 如 : 


(or (supervisor ?x (Bitdiddle Ben)) 
(supervisor ?x (Hacker Alyssa P))) 


将 会 找 出 所 有 被 Ben Bitdiddle sy # Alyssa P. Hacker 管 理 的 人 员 : 


(or (supervisor (Hacker Alyssa P) (Bitdiddle Ben) ) 
(supervisor (Hacker Alyssa P) (Hacker Alyssa P)) 


(or (supervisor (Fect Cy D) (Bitdiddle Ben)) 
(supervisor (Fect Cy D) (Hacker Alyssa P))) 


(or (supervisor (Tweakit Lem E) (Bitdiddle Ben)) 
(supervisor (Tweakit Lem E) (Hacker Alyssa P))) 


(or (supervisor (Reasoner Louis) (Bitdiddle Ben)) 
(supervisor (Reasoner Louis) (Hacker Alyssa P))) 


一 般 说 ， 
(or <query,> <query,> ... <query,>) ， . 

由 对 模式 变量 的 所 有 满足 <quemyi> . . .<guemy> 中 至 少 一 个 查询 的 那些 值 集合 满足 。 
复合 查询 还 可 以 用 net 构造。 例如， . 


(and (supervisor ?x (Bitdiddle Ben) ) 


(not (job ?x (computer programmer) ))) 


将 找 出 所 有 由 Ben Bitdiddle 领 导 的 不 是 计算 机 程序 员 的 人 。 一 般 而 言 ， 


44 AAAAH 311 


(not <gueryi>) 


被 所 有 的 对 于 模式 变量 的 不 满足 <Gueryi> 的 赋值 满足 ” 。 

最 后 一 种 组 合 形式 称 为 1isp-value 。 当 1isp-value 被 用 作 某 个 模式 的 第 一 个 元 素 时 ， 
就 说 明了 下 一 个 元 素 是 一 个 Lisp 的 谓词 ， 应 该 将 它 应 用 于 作为 其 参数 的 其 余 〈 实 例 化 的 ) 元 
素 。 一 般 说 ， 

(lisp-value <predicate> <arg> ... <arg,>) 

将 被 那样 一 些 对 模式 变量 的 赋值 满足 ， 这 些 赋值 使 得 将 <predicate> 应 用 于 实例 化 后 的 <arg:> … 
<arg> 得 到 真 。 举 个 例子 ， 为 找 出 所 有 工资 高 于 30 000 美 元 的 人 ， 我 们 可 以 写 ”: 


(and (salary ?person ?amount) 


(lisp-value > ?amount 30000)) 


练习 4.56 ”请 给 出 检索 下 面 信息 的 复合 查询 : 

a) Ben Bitdiddle 的 所 有 下属 的 名 字 ， 以 及 他 们 的 住址 ， 

b) 所 有 工资 少 于 Ben Bitdiddle 的 人 ， 以 及 他 们 的 工资 和 Ben Bitdiddle 的 工资 ， 
c) 所 有 不 是 由 计算 机 分 部 的 人 管理 的 人 ， 以 及 他 们 的 上 司 和 工作 。 


规则 
除了 基本 查询 和 复合 查询 之 外 ， 这 一 查询 语言 还 为 查询 的 抽象 提供 了 方法 。 这 通过 规则 
的 方式 给 出 。 规 则 : 
(rule (lives-near ?person-1 ?person-2) 
(and (address ?person-1 (?town . ?rest-1)) 
(address ?person-2 (?town . ?rest-2)) 


(not (same ?person-1 ?person-2)))) 


描述 的 是 如 果 两 个 人 住 在 同一 个 城镇 ， 就 认为 他 们 住 得 很 近 。 最 后 的 net 子 句 防止 这 一 规则 
说 所 有 的 人 自己 和 自己 住 得 近 。 这 一 关系 可 以 定义 为 一 条 极 简单 的 规则 ” : 


(rule (same ?x ?x)) 


下 面 规则 描述 了 某 人 是 一 个 组 织 里 的 “大 人 物 "， 条 件 是 他 管理 的 某 些 人 还 管理 其 他 人 : 


(cule (wheel ?Person) 
(and (supervisor ?middle-manager ?person) 


(supervisor ?x ?middle-manager))) 


规则 的 一 般 形 式 是 : 


(rule <conclusion> <body>) 


26 实际 上 ， 有 关 not 的 描述 只 对 简单 情况 是 合法 的 。not 的 实际 行为 更 复杂 一 些 。 我 们 将 在 4.4.2 节 和 4.4.3 节 考 
察 not 的 特殊 性 质 。 

2 ] isp-value 应 该 只 用 于 执行 查询 语言 里 没有 提供 的 操作 。 特 别 是 ， 不 应 该 用 它 去 做 相等 检查 ( 因为 这 实际 
上 就 是 查询 语言 中 的 匹配 所 要 做 的 事情 ) 或 者 不 等 检查 ( 因为 这 可 以 按 下 面 方式 用 同一 规则 完成 )。 

26@ 请 注意 ， 为 弄 清 两 个 东西 一 样 并 不 需要 same ， 只 需要 为 它们 使 用 同样 的 模式 变量 一 从 效果 看 ， 这 就 是 说 有 
的 是 一 个 东西 而 不 是 两 个 。 例如 lives-near 规 则 里 的 ?town 和 下 面 wvheel 规 则 里 的 ?middle-manager 。 
当 我 们 希望 强迫 要 求 两 个 东西 不 同时 same 才 有 用 , 如 在 lives-near 规 则 里 的 ?person-1 和 ?person-2。 
虽然 在 一 个 查询 里 的 两 个 部 分 使 用 同一 模式 变量 将 强迫 同样 的 值 出 现在 这 两 处 ， 采用 不 同 模式 变量 却 不 能 强 
迫 它们 出 现 不 同 的 值 ( 赋 给 不 同 模式 变量 的 值 可 以 相同 也 可 以 不 同 ) 。 
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其 中 的 <conclusion> 是 一 个 模式 ，<body> 可 以 是 任何 查询 ”。 我 们 可 以 认为 ， 一 个 规则 就 
像 是 表示 了 很 大 的 (其 至 是 无 穷 的 ) 一 组 断言 ， 也 就 是 相应 规则 的 结论 的 所 有 实例 ， 其 变量 
赋值 满足 规则 的 体 。 前 面 说 过 ， 在 描述 一 个 简单 查询 (模式 ) 时， 如 果 对 模式 中 的 变量 做 了 


一 个 赋值 ， 这 样 实例 化 后 的 模式 出 现在 数据 库 里 ， 我 们 就 说 该 赋值 满足 这 个 模式 。 其 实 模式 
并 不 必 显 式 地 作为 断言 出 现在 数据 库 里 ， 它 也 可 以 是 由 某 条 规则 所 歼 含 的 隐 式 断言 。 例 如 ， 
查询 

(lives-near ?x (Bitdiddle Ben)) 
结果 得 到 


(lives-near (Reasoner Louis) (Bitdiddle Ben) ) 
(lives-near (Aull DeWitt) (Bitdiddle Ben) ) 


要 找 出 所 有 住 在 Ben Bitdiddle 附 近 的 计算 机 程序 员 ， 我 们 可 以 问 
tind (job ?x (computer programmer) ) 
(lives-near ?x (Bitdiddle Ben))) 


就 像 复合 过 程 的 情况 一 样 ， 规 则 也 可 以 作为 其 他 规则 里 的 一 部 分 (就 像 我 们 在 上 面 1ives- 
neaz 规 则 中 已 经 看 到 的 那样 ) ， 或 者 甚至 可 以 递归 地 定义 。 举 个 例子 ， 规 则 


(rule (outranked-by ?staff-person ?boss ) 
(or (supervisor ?staff-person ?boss) 
`. (and (supervisor ?staff-person ?middle-manager) 


(outranked-by ?middle-manager ?boss)))) 

说 一 个 职员 是 一 个 老板 的 下 级 ， 条 件 是 如 果 这 个 老板 就 是 他 的 主管 ， 或 者 〈 递 归 的 ) 这 个 人 
的 主管 是 这 个 老板 的 下 级 。 

练习 4.57 ”请 定义 一 条 规则 ， 说 某 甲 可 以 代替 某 乙 ， 如 果 甲 所 做 工作 与 乙 相 同 ， 或 者 任 
何 能 做 甲 的 工作 的 人 都 能 做 乙 的 工作 ， 而 且 甲 与 乙 不 是 同一 个 人 。 使 用 你 的 规则 ， 给 出 找 出 
下 面 结果 的 查询 ， 

a) 所 有 能 代替 Cy D. Fect 的 人 ， 

b) 所 有 能 代替 某 个 工资 比 自己 高 的 人 的 人 ， 以 及 这 两 个 人 的 工资 。 

练习 4.58 ”请 定义 一 条 规则 说 ， 一 个 人 是 某 部 门 里 的 “大 腕 "， 如 果 这 人 工作 在 该 部 门 ， 
但 在 这 一 部 门 里 没有 他 的 上 司 。 

练习 4.59 Ben Bitdiddle 经 常 开会 迟到 。 他 害怕 这 种 习惯 会 影响 他 的 职位 ， 因 此 决定 做 点 
有 关 的 事情 。 他 在 Microshaft 的 数据 库 里 增加 了 所 有 每 周 例会 的 信息 ， 写 成 如 下 断言 : 


(meeting accounting (Monday 9am) ) 
(meeting administration (Monday 10am) ) 
(meeting computer (Wednesday 3pm) ) 
(meeting administration (Friday ipm)) 


这 里 的 每 个 断言 对 应 于 整个 分 部 的 一 次 会 议 。 Ben 还 为 全 公司 会 议 (包括 各 个 分 部 ) 加 入 了 一 
个 条 目 。 公 司 的 所 有 雇员 应 该 出 席 这 个 会 议 。 
(meeting whole-company (Wednesday 4pm)) 


a) 在 星期 五 上 午 ，Ben 希 望 查询 数据 库 ， 确 定 今天 的 所 有 会 议 。 他 应 该 使 用 什么 样 的 查 


m 我 们 允许 没有 体 的 规则 ， 例 如 same 。 而 且 把 这 种 规则 解释 为 ， 规 则 的 结论 被 变量 的 任何 值 满足 。 


询 ? 

b) Alyssa P. Hacker 对 此 并 不 满意 ， 她 认为 ， 如 果 能 通过 自己 的 名 字 询问 有 关 会 议 ， 这 种 
功能 才 更 有 用 处 。 因 此 她 设计 了 一 条 规则 ， 说 一 个 人 的 会 议 应 包括 所 有 whole-company 会 
议 ， 再 加 上 这 个 人 所 在 部 门 的 所 有 会 议 。, 请 给 下 面 规则 填充 体 部 分 。 


(rule (meeting-time ?person ?day-and-time) 


<rule-body>) 


c) Alyssa 星 期 三 上 午 回来 上 班 ， 希 望 知 道 她 当日 必须 参加 哪些 会 议 。 现 在 已 经 有 了 上 面 
规则 ， 她 应 该 写 什 么 样 的 查询 将 这 些 会 议 查 出 来 呢 ? 
练习 4.60 给 出 了 查询 


(lives-near ?person (Hacker Alyssa P)) 
Alyssa P. Hacker 就 能 查 出 谁 住 在 自己 附近 ， 这 样 她 就 可 以 搭 同事 的 便 车 上 班 了 。 而 另 一 方面 ， 
当 她 试 着 用 下 面 查询 去 找 出 所 有 一 对 对 的 居住 较 近 的 人 时 

(lives-near ?person-1 ?person-2) 
却 注意 到 每 对 这 样 的 人 都 列 出 了 两 次 。 例 如 : 


(lives-near (Hacker Alyssa P) (Fect Cy D)) 
(lives-near (Fect Cy D) (Hacker Alyssa P)) 


为 什么 会 出 现 这 种 情况 ? 是 否 能 查找 居住 接近 的 人 ， 用 每 对 人 只 列 出 一 次 ?请 解释 答案 。 

将 逻辑 看 做 程序 

我 们 可 以 认为 ， 一 条 规则 就 是 一 个 逻辑 蕴含 : 如 果 对 所 有 模式 变量 的 一 个 赋值 满足 规则 
的 体 ， 那 么 它 就 满足 其 结论 。 因 此 ， 我 们 可 以 认为 查询 语言 有 着 一 种 基于 有 关 规 则 ， 执 行 罗 
辑 推 理 的 能 力 。 作 为 一 个 示例 ， 现 在 考虑 在 4.4 节 开始 时 提 到 的 append 操 作 。 正 如 那 时 讲 过 
的 ，append 可 以 用 下 面 的 两 条 规则 刻画 : 

。 对 于 任何 表 y ， 将 空 表 与 y 的 append 形 成 的 是 y 。 

。 对 于 任何 u、v、y 和 z， 将 (cons u v) ijy append 形 成 (cons u 2z)， 条 件 是 v 

与 Y 的 append 形成 z。 

为 了 用 上 面 的 查询 语言 描述 这 两 条 规则 ， 我 们 要 为 下 面 的 关系 定义 两 条 规则 : 

(append-to-form x y zZ} 
它 的 意思 可 以 解释 为 “x 和 y 的 append 形 成 了 z”: 

(rule (append-to-form () ?y ?y)) 


(rule (append-to-form (?u . ?v) ?y (?u . ?z)) 


(append-to-form ?v ?y ?z)) 

这 里 的 第 一 条 规则 没有 体 ， 这 意味 着 结论 对 ?y 的 任何 值 都 成 立 。 请 注意 ,在 第 二 条 规则 中 ， 
在 为 一 个 表 的 car 和 cdr 命 名 时 ， 采 用 了 圆 点 尾部 的 记 法 形式 。 

给 出 这 两 条 规则 之 后 ， 我 们 就 可 以 写 出 查询 ， 去 计算 两 个 表 的 append 了，: 

7 Query input: 

(append-to-form (a b) (c d) ?z) 

¿;; Query results: 

(append-to-form (a b) (c d) (a b c d)) 
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更 令 人 震惊 的 是 ， 我 们 还 能 利用 这 同样 的 两 条 规则 提出 这 样 的 问题 “哪个 表 被 append 到 . 
(a b) 的 后 面 能 产生 出 (a b c d)”。 这 一 查询 可 以 按 如 下 方式 写 
+77 Query input: 
(append-to-form (a b) ?y (a b c d)) 
+47 Query results: 
(append-to-form (a b) (c d) (a b c d)) 


我 们 还 可 以 询问 所 有 append 起 来 能 形成 (a b c d) 的 表 的 序 对 : 
;};; Query input: 
(append-to-form ?x ?y (a b c d)) 
377 Query results: 
(append-to-form () (a b c d) (a b c d)) 
(append-to-form (a) (b c d) (a b c d)) 
(append-to-form (a b) (c d) (a b c d)) 
(append-to-form (a b c) (d) (a b c d)) 
(append-to-form (a b c d) () (a be d)) 


从 表面 看 ， 这 样 的 查询 系统 在 使 用 规则 推导 出 上 述 查 询 的 回答 时 ， 好 像 显 示 出 不 少 的 智 
能 。 实 际 上 ， 正 如 我 们 将 在 下 一 节 里 看 到 的 ， 这 样 系统 不 过 是 按照 一 种 精确 定义 的 算法 去 拆 
解 这 些 规则 罢了 。 遗 憾 的 是 ， 虽 然 这 个 系统 对 于 apPend 示 例 的 工作 情况 令 人 印象 深刻 ， 对 于 
更 复杂 的 情况 ， 这 种 一 般 性 的 方法 却 可 能 失败 ， 正 如 我 们 将 在 4.4.3 节 中 看 到 的 那样 。 

练习 4.61 下 面 规则 实现 了 next-to 关 系 ， 它 找 出 一 个 表 里 的 相 邻 元 素 : 

(rule (?x next-to ?y in (?x ?y . ?u))) 


(rule (?x next-to ?y in (?v . ?2)) 
(?x next-to ?y in ?2z)) 


下 面 查询 将 会 得 到 什么 回应 ? 


(?x next-to ?y in (1 (2 3) 4)) 
(?x next-to 1 in (2 1 3 1)) 


练习 4.62 ”请 定义 规则 实现 练习 2.17 里 的 last-pair 操 作 ， 该 操作 返回 一 个 表 ， 其 中 包 
含 着 一 个 非 空 表 里 的 最 后 一 个 元 素 。 通 过 一 些 查 询 检查 你 的 规则 ， 例 如 (last-pair 

(3) ?x), (last-pair (1 2 3) ?x) 和 (last-pair (2 2x) (3))。 你 的 规则 对 
(last-pair ?x (3)) 也 能 正确 工作 吗 ? 

练习 4.63 ”下 面 数 据 库 ( 见 《创世纪 4》) 追踪 一 个 血缘 关系 表 ， 从 Ada 的 后 辈 一 直上 漳 至 
Adam ， 通 过 Cain : 

(son Adam Cain) 

(son Cain Enoch) 

(son Enoch Irad) 

(son Irad Mehujael) 

(son Mehujael Methushael) 

(son Methushael Lamech) 

(wife Lamech Ada) 

(son Ada Jabal) 

(son Ada Jubal) 


请 构造 出 一 些 规则 ， 如 “如 果 S 是 F 的 儿子 ， 而 且 F 是 G 的 儿子 ， 那 么 S 就 是 G 的 孙子 ”,，“ 如 果 W 


是 M 的 妻子 , 而 且 S 是 W 的 儿子 , 那么 S 也 是 M 的 儿子 ”( 这 些 在 圣经 时 代 可 能 比 在 今天 更 正确 )， 
以 便 使 查询 系统 能 够 找到 Cain 的 孙子 ，Lamech 的 儿子 ，Methushael 的 孙子 。( 参 见 练习 4.69 有 
关 能 推导 出 一 些 更 复杂 关系 的 规则 。) 


4.4.2 查询 系统 如 何 工 作 


在 4.4.4 节 里 ， 我 们 将 给 出 一 个 查询 解释 器 的 实现 ， 它 由 一 组 过 程 组 成 。 本 节 要 给 出 一 个 
概述 ， 解 释 这 一 系统 中 与 底层 实现 细节 无 关 的 一 般 性 结构 。 在 描述 了 这 一 解释 器 的 实现 情况 
之 后 ， 我 们 就 能 达到 一 个 位 置 ， 在 那里 我 们 已 经 可 以 理解 这 种 解释 器 的 局 限 性 ， 以 及 查询 语 
言 的 逻辑 运算 与 数理 逻辑 中 的 运算 之 间 的 一 些微 妙 差异 。 

事情 很 明显 ， 查 询 求 值 器 必须 执行 菜 种 搜索 ， 以 便 将 有 关 的 查询 与 数据 库 里 的 事实 和 规 
则 做 匹配。 完成 此 事 的 -种 方式 是 采用 4.3 节 的 amb 求 值 器 ， 将 查询 系统 实现 为 一 个 非 确 定性 
的 程序 ( 见 练习 4.78 )。 另 一 可 能 性 是 借助 于 流 ， 去 设法 控制 搜索 。 这 里 将 要 考虑 的 实现 采用 
的 是 第 二 种 方式 。 

这 一 查询 系统 的 组 织 结构 围绕 着 两 个 核心 操作 ， 它 们 分 别称 为 模式 匹配 和 合 一 。 我 们 首 
先 描 述 模 式 匹 配 ， 并 给 出 有 关 解 释 ， 说 明 怎样 让 这 一 操作 与 基于 框架 的 流 组 织 起 的 信息 一 起 
工作 ， 使 我 们 能 实现 简单 查询 和 复合 查询 。 而 后 我 们 再 解释 合 一 操作 ， 它 是 模式 匹配 的 推广 ， 
是 实现 规则 所 需要 的 东西 。 最 后 还 要 说 明 如 何 通 过 一 个 对 表达 式 进行 分 类 的 过 程 ， 将 整个 查 
询 解释 器 组 合 起 来 ， 类 似 于 4.1 池 里 描述 的 解释 器 中 eval 对 表达 式 分 类 所 采用 的 方式 。 


模式 匹配 

一 个 模式 匹配 器 是 一 个 程序 ， 它 检查 数据 项 是 否 符合 一 个 给 定 的 模式 。 举 例 来 说 ， 数 据 
# ((a b) c (a b)) 与 模式 (?x c ?x) 匹配 ， 其 中 的 模式 变量 ?x 约束 于 (a b)。 同 一 
个 数据 表 也 与 模式 匹配 (?x ?y 22), 其 中 ?x 和 ?z 都 约束 到 (a b)，?y 约 束 到 c。 这 一 数 
据 也 与 模式 ((?x Py) c (?x ?y)) 匹配 ， 其 中 的 ?Xx 约束 到 a 而 ?了 约束 到 b。 然 而 ， 这 一 数 
据 却 不 与 模式 (?x a 2y) 匹配 ， 因 为 这 个 模式 描述 的 表 中 的 第 二 个 元 素 必 须 是 符号 a。 

这 个 查询 系统 所 用 的 模式 匹配 器 以 一 个 模式 、 一 个 数据 和 一 个 框架 作为 输入 ， 该 框架 描 
述 了 一 些 模 式 变 量 的 约束 。 匹 配器 检查 该 数据 是 否 以 某 种 方式 与 模式 匹配 ， 而 这 种 方式 又 是 
与 框架 里 已 有 的 约束 相 容 的 。 如 果 确 实 如 此 ， 匹 配器 就 返回 原来 框架 的 一 个 扩充 ,其 中 加 入 
了 由 当前 匹配 确定 的 所 有 新 约束 。 如 果 不 能 匹配 ， 它 就 指出 该 匹配 失败 。 

举例 说 ， 如 果 给 了 一 个 空 框架 ， 要 求 用 模式 (?x Py ?x) 去 匹配 (a b a), 匹配 器 将 
返回 一 个 框架 ， 其 中 描述 的 是 ?x 被 约束 到 a 而 ?y 约 束 到 b 。 如 果 用 同一 模式 、 同 一 数据 和 一 个 
包含 将 ?y 约 束 到 的 a 框 架 试验 这 一 匹配 ， 那 么 匹配 就 会 失败 。 试 验 同 一 个 匹配 ， 用 同一 模式 、 
同一 数据 和 一 个 包含 将 ?y 约 束 到 的 b 框 架 ， 返 回 的 是 给 定 框架 扩充 了 ?x 到 a 的 约束 。 

这 个 模式 匹配 器 提供 了 处 理 不 涉及 规则 的 简单 查询 所 需 的 所 有 机 制 。 例如 ， 在 处 理 下 面 
的 查询 时 

{job ?x (computer programmer ) ) 
我 们 需要 对 于 一 个 空 初始 框架 ,扫描 上 面 数据 库 里 的 所 有 断言 ， 选 出 其 中 与 模式 相 匹 配 的 断 
守 。 对 于 每 一 个 匹配 ， 都 要 用 这 个 匹配 所 返回 的 框架 里 给 ?x 的 值 去 实例 化 这 个 模式 .。 


言 
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框架 的 流 

用 模式 去 检查 框架 的 工作 被 组 织 为 一 种 对 流 的 使 用 。 给 定 了 一 个 框架 ， 匹 配 过 程 将 一 个 
个 地 扫描 数据 库 里 的 条 目 。 对 于 每 个 数据 库 条 目 ， 匹 配器 或 者 产生 出 一 个 指明 匹配 失败 的 特 
殊 符号 , 或 者 给 出 相应 框架 的 一 个 扩充 。 对 所 有 数据 库 条 目的 匹配 结果 被 收集 到 一 起 ， 形 成 
一 个 流 ， 这 个 流 被 送 入 一 个 过 滤器 ， 删 除 其 中 所 有 的 失败 信息 。 这 样 做 的 结果 就 得 到 了 另 一 
个 流 ， 其 中 包含 着 所 有 满足 条 件 的 框架 ， 它 们 都 是 基于 原来 的 框架 ， 由 于 与 数据 库 里 某 些 断 
言 相 匹配 而 扩充 后 得 到 的 ” 。 

在 我 们 的 系统 里 ， 一 个 查询 以 一 个 框架 流 作为 输入 。 它 将 针对 这 一 流 中 的 每 个 框架 执行 
上 述 匹配 操作 ， 如 图 4-4 所 示 。 也 就 是 说 ， 对 于 输入 流 中 的 每 一 个 框架 ， 这 一 查询 都 会 产生 出 
一 个 新 的 流 ， 其 中 包含 了 给 定 框架 的 所 有 通过 与 数据 库 里 断言 的 匹配 而 形成 的 扩充 。 所 有 这 
些 流 被 组 合 为 一 个 规模 很 大 的 流 ， 其 中 包含 了 输入 流 中 每 个 框架 的 所 有 可 能 扩充 。 这 个 流 就 
是 给 定 查 询 的 输出 。 


框架 的 输出 流 


A Ao y: 
AME RO 带 有 可 能 的 扩充 
查询 
(job ?x ?y) 


来 自 数据 库 的 断言 流 


图 4-4 一 个 查询 处 理 一 个 框架 的 流 


为 了 回答 一 个 简单 查询 ， 我 们 用 的 是 输入 流 里 只 包含 一 个 空 框架 的 查询 。 这 样 得 到 的 输 
出 流 里 包含 着 这 一 空 框架 的 所 有 扩充 (也 就 是 说 ， 对 查询 的 所 有 回答 )。 这 个 输出 流 又 被 用 于 
生成 另 一 个 流 ， 在 这 个 流 里 出 现 的 都 是 初始 查询 模式 的 副本 ， 其 中 的 变量 用 框架 流 里 各 个 框 
架 做 了 实例 化 。 这 就 是 最 后 需要 打印 的 结果 的 流 。 

复合 查询 

在 这 一 框架 流 实现 中 ， 真 正 优美 的 地 方 在 于 其 中 对 复合 查询 的 处 理 方式 。 在 对 于 复合 查 
询 的 处 理 中 ， 我 们 利用 了 这 一 匹配 器 带 着 一 个 特定 框架 去 探查 匹配 的 能 力 。 举 例 来 说 ， 为 了 
处 理 两 个 查询 的 and ， 例 如 


(and (can-do-job ?x (computer programmer trainee) ) 


(job ?person ?x)) 
( 非 形式 地 说 ， 就 是 “ 找 出 所 有 的 人 ， 他 们 部 能 做 计算 机 实习 程序 员 的 工作 ”)， 我 们 首先 找到 
所 有 与 下 面 模 式 相 匹配 的 条 目 : 


21 一 般 而 言 ， 匹 配 是 一 种 代价 高 昂 的 工作 ， 因 此 我 们 希望 避免 将 完整 的 匹配 器 应 用 于 数据 库 里 的 每 一 个 元 素 。 
通常 可 以 通过 将 这 个 过 程 分 解 为 快速 的 粗略 匹配 和 最 终 匹 配 而 达到 加 速 的 目的 。 其 中 的 粗略 匹配 过 滤 数 据 库 ， 
为 最 终 匹 配 产生 出 很 小 的 一 组 候选 。 我 们 也 可 以 仔细 安排 这 个 数据 库 ， 使 得 粗略 匹配 的 工作 能 够 在 数据 库 构 
造 的 过 程 中 完成 ， 而 不 是 等 到 需要 找 出 候选 的 时 候 再 做 。 这 称 为 数据 库 的 索引 。 人 们 为 创建 数据 库 索引 模式 
提出 了 大 量 的 技术 。 在 4.4.4 节 描述 的 实现 中 包含 了 支持 这 类 优化 的 一 些 简单 的 东西 。 


(can-do-job ?x (computer programmer trainee) ) 
这 就 产生 出 一 个 框架 流 ， 其 中 的 每 个 框架 里 都 包含 了 一 个 对 ?x 的 约束 。 随 后 ， 我 们 要 对 这 个 
流 里 的 每 个 框架 ， 以 某 种 方式 去 找 与 下 面 模式 相 匹 配 的 所 有 条 目 : 

(job ?person ?x) 
这 些 条 目 都 需要 与 已 经 给 定 的 ?x 的 约束 相 容 。 每 个 这 种 匹配 将 产生 出 一 个 框架 ， 其 中 包含 了 
对 ?x 和 ?person 的 约束 。 两 个 查询 的 and 可 以 看 作 是 两 个 成 分 查询 的 一 个 序列 组 合 ， 如 图 4-5 
所 示 。 送 给 第 一 个 查询 过 滤器 的 所 有 框架 经 过 过 滤 后 ， 再 进一步 被 第 二 个 查询 扩充 。 


输入 的 框架 流 输出 的 框架 流 


数据 库 
图 4-5 两 个 查询 的 and 组 合 由 对 序列 中 框架 流 的 操作 生成 


图 4-6 显 示 的 是 采用 类 似 方式 计算 两 个 查询 的 or 的 情况 ， 可 以 将 这 看 作 是 两 个 成 分 查询 的 
并 行 组合 。 两 个 结果 流 被 归并 到 一 起 ， 产 生出 最 后 的 输出 流 。 


(or A B) 


输出 的 框架 流 


输入 的 框架 流 


数据 库 


图 4-6 两 个 查询 的 or 组 合 ， 产 生 方式 是 并 行 地 在 两 个 流 上 操作 ， 然 后 归并 结果 流 


即使 是 从 这 种 高 层 描述 里 ， 我 们 也 可 以 明显 看 出 ， 对 复合 操作 的 处 理 将 会 很 慢 。 举 例 说 ， 
因为 在 查询 中 对 每 一 个 框架 都 可 能 产生 出 多 个 框架 ， 而 在 and 里 的 每 个 查询 都 需要 从 前 面 查 
询 得 到 自己 的 输入 框架 流 ， 因 此 ， 在 最 坏 情 况 下 ， 一 个 and 查 询 工 作 中 必须 执行 的 匹配 次 数 ， 
就 是 其 中 的 查询 个 数 的 指数 函数 ( 见 练习 4.76) 22。 虽 然 只 处 理 简 单 查询 的 系统 相当 实用 ， 处 
理 复 杂 查 询 还 是 非常 困难 的 ” 。 

zn 但 是 这 种 指数 爆炸 在 and 查 询 中 并 不 常见 ， 因 为 一 般 来 说 ， 条 件 的 增加 趋向 于 前 减 框架 的 数量 ,而 不 是 扩张 


所 产生 的 框架 数量 。 . 
m 存在 着 大 量 关于 数据 库 管理 系统 的 文献 ， 讨 论 如 何 有 效 地 处 理 复杂 查询 。 


从 框架 流 的 观点 看 ， 某 个 查询 的 not 就 像 是 一 个 过 滤器 ， 它 要 求 删除 所 有 满足 这 一 查询 
的 框架 。 举 个 例子 ， 给 了 模式 : 

(not (job ?x (computer programmer))) 
对 输入 流 里 的 每 个 框架 ， 我 们 要 试 着 去 产生 出 所 有 不 满足 (job ?x (computer 
programmer )) 的 扩充 框架 。 为 此 ， 就 需要 从 输入 流 里 删除 所 有 存在 着 这 种 扩充 的 框架 。 这 
样 就 得 到 了 一 个 流 ， 它 里 面 只 包含 了 那些 对 ?x 的 约束 不 能 满足 (Job ?x (computer 
programmer )) 的 框架 。 例 如 ， 在 处 理 下 面 查询 时 : 


(and (supervisor ?x ?y) 
(not (job ?x (computer programmer) ))) 


第 一 个 子 名 将 产生 出 一 批 带 有 ?Xx 和?y 的 约束 的 框架 ， 而 后 not 子 句 将 过 滤 它 们 ， 删 除 其 中 所 
有 对 于 ?x 的 约束 满足 限制 条 件 “?x 是 程序 员 ” 的 那些 框架 ?*。 

这 里 也 把 特殊 形式 1isp-value 实现 为 框架 流 上 的 一 个 过 滤器 。 我 们 将 用 流 里 的 各 个 框 
架 去 实例 化 模式 里 的 变量 ， 然 后 对 得 到 的 实例 化 结果 应 用 给 定 的 Lisp 谓 词 ， 在 谓词 得 到 假 时 
从 流 中 删 去 相应 的 框架 。 


心 一 
A 


为 了 处 理 查询 语言 里 的 规则 ， 我 们 必须 能 找 出 所 有 这 样 的 规则 ， 其 结论 部 分 与 给 定 的 查 
询 模式 匹配 。 规 则 的 结论 很 像 断 言 ， 但 是 它们 也 可 以 包含 变量 。 为 了 处 理 这 种 情况 ， 我 们 就 
需要 模式 匹配 的 一 种 推广 一 一 称 为 合 一 ， 其 中 的 “模式 ”和 “数据 ”都 可 以 包含 变量 。 

合 一 器 取 两 个 都 可 以 包含 常量 和 变量 的 模式 为 参数 ， 设 法 去 确定 能 否 找到 对 其 中 变量 的 
某 种 赋值 ， 使 两 个 模式 相等 。 如 果 能 够 找到 ， 它 就 返回 包含 着 有 关 约 束 的 框架 。 举 例 说 ， 对 
(?x a ?y) 和 (?y ?z a) 的 合 一 将 产生 出 一 个 框架 ， 其 中 的 ?xx、?y 和 ?2 都 约束 到 a 。 在 
另 一 方面 , 对 (?x ?y a) 和 (?x b ?y) 的 合 一 则 会 失败 ， 因 为 在 这 里 对 ?y 做 任何 赋值 ， 
都 不 能 使 两 个 模式 变 得 相同 (根据 这 两 个 模式 里 的 第 二 个 元 素 ，? 了 应 该 是 b ， 然 而 根据 它们 
的 第 三 个 元 素 ，?y 又 应 该 是 a )。 这 个 查询 系统 里 的 合 一 器 与 模式 匹配 器 一 样 ， 它 也 以 一 个 框 
架 作 为 输入 ， 执 行 与 该 框架 相 容 的 合 一 工作 。 

合 一 算法 是 查询 系统 中 最 难 的 部 分 。 对 于 复杂 的 模式 ， 执 行 合 一 似乎 需要 做 推理 。 例 如 ， 
为 了 合 一 (?x ?x) 和 ((a ?y c) (a b ?z))， 该 算法 必须 推断 出 ?x 应 该 是 (a b 
c)，?y 应 该 是 bp， 而?z 应 该 是 c。 我 们 可 能 会 认为 ， 这 一 过 程 就 像 是 求解 模式 成 分 上 的 一 集 
方程 。 一 般 而 言 ， 这 些 确实 是 一 些 联 立 方程 ， 求 解 它 们 可 能 需要 很 复杂 的 操作 ?5。 例 如 ， 对 
(?x ?x) 和 ((a ?y c) (a b ?z)) 的 合 一 可 以 看 作 是 描述 了 如 下 的 联 立 方程 


(a ?y c} 
(a b ?z) 


?x 
?x 


AG RRA : 
(a ?y c) = (ab ?2) 
MER ee 


a = a, ?y = b,c = ?2, 


zm donot Hix Fh Lae SCHL AE Ot HEM RL ZA — ARE HK, 144.34, 
25 在 单 边 的 模式 匹配 里 ， 包 含 模式 变量 的 所 有 方程 都 很 明显 ， 并 都 已 将 未 知 量 (模式 变量 ) 解 出 。 
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因此 就 有 

?x = (abc) 

在 一 次 成 功 的 模式 匹配 里 ， 所 有 模式 变量 都 将 得 到 约束 ， 而 且 给 它们 的 约束 值 里 也 只 
含 常量 。 对 于 我 们 至 今 已 看 到 的 那些 合 一 实例 ， 情 况 也 是 如 此 。 然 而 ， 一 般 而 言 ， 一 个 成 功 
的 合 一 也 可 能 并 没有 完全 确定 所 有 变量 的 值 ， 有 些 变量 还 会 是 未 约束 的 ， 另 一 些 也 可 能 约束 
到 包含 着 变量 的 值 。 

现在 考虑 (?x a) 和 ((b ?y) ?z) 的 合 一 。 我们 可 以 推导 出 ?x= (b ?y) mE 
a=?2, 但 是 却 无 法 对 ?x 和 ?y 做 进一步 的 求解 了 。 这 个 合 一 并 没有 失败 ， 因 为 通过 对 ?x 和 
?y 的 赋值 ， 确 实 能 把 两 个 模式 弄 成 完全 一 样 的 。 由 于 在 这 个 匹配 里 对 于 ?Y 可 取 的 值 并 没有 任 
何 限制 ， 因 此 框架 里 就 不 会 存在 对 于 ?Y 的 约束 。 在 另 一 方面 ,这 个 匹配 中 确实 限制 了 ?x 的 值 ， 
无 论 ?y 取 什么 值 ，?x 都 必须 是 (b”?Y)。 因 此 ， 从 ?x 到 模式 (b Py) 的 约束 就 会 被 放 入 框 
架 里 。 如 果 后 来 ?Y 的 值 被 确定 并 加 入 了 框架 (无 论 是 通过 某 个 与 此 框架 相 容 的 匹配 还 是 合 一 ) ， 
前 面 对 ?x 的 约束 也 都 会 引用 那个 值 2 。 


规则 的 应 用 
对 于 从 规则 出 发 的 推理 而 言 ， 合 一 是 这 一 查询 系统 里 最 关键 的 部 件 。 为 了 看 清楚 这 件 事 
情 应 该 怎样 做 ， 现 在 考虑 一 个 涉及 到 规则 应 用 的 查询 的 处 理 过 程 。 例 如 : 
(lives-near ?x (Hacker Alyssa P)) 
为 了 处 理 这 一 查询 ， 我 们 首先 需要 用 上 面 描述 的 常规 模式 匹配 过 程 ， 去 看 数据 库 里 是 否 存 在 
任何 与 这 一 模式 相 匹配 的 断言 (对 于 目前 这 个 情况 ， 我 们 什么 也 找 不 到 。 因 为 在 数据 库 里 根 
本 就 没有 有 关 谁 与 谁 住 得 很 近 的 断言 )。 下 一 步 就 是 设法 用 查询 模式 与 每 条 规则 的 结论 去 做 合 
一 。 这 时 我 们 发 现 ， 该 模式 可 以 与 下 面 规则 的 结论 合 一 : 
(rule (lives-near ?person-1l ?person-2) 
(and (address ?person-1 (?town . ?rest-1)) 
(address ?person-2 (?town . ?rest-2)) 
(not (same ?person-1 ?person~2)))) 
结果 得 到 了 一 个 框架 ， 其 中 描述 的 是 ?Person-2 约 束 到 (Hacker Alyssa P)， 而 ?x 应 该 
约束 到 ?person-1 (应 该 与 其 有 相同 的 值 )。 现 在 我 们 就 需要 相对 于 这 一 框架 ， 去 求 值 由 这 
一 规则 的 体 给 定 的 复合 查询 。 成 功 的 匹配 将 扩充 这 个 框架 ， 提 供 对 ?Person-1 的 一 个 约束 ， 
并 因此 也 给 定 了 ?x 的 值 。 此 后 我 们 就 可 以 用 这 个 值 去 实例 化 初始 的 查询 模式 了 。 
一 般 而 言 ， 当 查询 求 值 器 试图 在 一 个 描述 了 某 些 模式 变量 匹配 的 框架 里 ， 完 成 对 一 个 查 
询 模式 的 匹配 时 ， 它 将 采用 下 面 方法 去 设法 应 用 一 条 规则 : 
将 这 个 查询 与 规则 的 结论 做 合 一 ， 以 便 〈 在 成 功 时 ) 形成 原来 框架 的 一 个 扩充 。 
。 相 对 于 这 样 扩充 后 的 框架 ， 去 求 值 由 规则 体形 成 的 查询 。 
请 注意 ， 这 一 做 法 与 在 一 个 Lisp 的 eval/apply 求 值 器 里 应 用 过 程 的 方法 何其 相似 : 
,将 该 过 程 的 形式 参数 约束 于 实际 参数 ， 以 形成 一 个 框架 去 扩充 原来 的 过 程 环境 。 


276 认识 合 一 的 另 一 种 方式 是 认为 它 产生 的 是 一 种 最 广 的 模式 ， 使 这 一 模式 同时 是 两 个 输入 模式 的 专门 化 。 也 就 
是 说 ，(?x a) 和 ((b ?y) ?z) 的 合 一 应 是 ((b Py) a), 而 (?x a Py) 和 (y ?2 a) 的 合 一 ( 按 
上 面 的 讨论 ) 应 是 (a a a)。 对 于 我 们 的 实现 ， 将 合 一 结果 看 成 框架 比 看 成 模式 更 方便 一 些 。 


。 相 对 于 这 样 扩充 后 的 环境 ， 去 求 值 由 过 程 体形 成 的 表达 式 。 
我 们 不 应 对 这 两 种 求 值 器 之 间 的 相似 性 感到 惊 论 。 这 正 是 因为 过 程 定义 是 Lisp 里 的 抽象 
和 手段， 而 规则 定义 则 是 现在 的 查询 语言 里 的 抽象 手段 。 在 这 两 种 情况 下， 我 们 都 需要 剥离 开 
有 关 的 抽象 ， 方 法 就 是 创建 起 适当 的 约束 ， 而 后 相对 于 它们 去 求 值 规则 或 者 过 程 的 体 。 


简单 查询 

在 本 节 前 面部 分 我 们 已 经 看 到 ， 在 没有 规则 的 情况 下 ， 应 该 如 何 求 值 简单 查询 。 现 在 
又 看 到 了 如 何 应 用 规则 ， 因 此 ， 现 在 就 可 以 描述 如 何 通 过 使 用 规则 和 断言 去 求 值 简单 查询 
了 。 

给 定 一 个 查询 模式 和 一 个 框架 的 流 之 后 ， 对 输入 流 里 的 每 个 框架 产生 出 两 个 流 : 

* 一 个 扩充 框架 的 流 。 得 到 这 些 框 架 的 方式 是 用 模式 匹配 器 ， 拿 给 定 的 模式 与 数据 库 里 的 

所 有 断言 做 匹配 。 

。 另 一 个 扩充 框架 的 流 ， 通 过 应 用 所 有 可 能 的 规则 而 得 到 (用 合 一 器 ) ”。 
将 这 两 个 流连 接 到 一 起 就 产生 出 一 个 新 流 ， 其 中 包含 了 与 原 框架 相 容 的 ， 能 满足 给 定 模式 
的 所 有 不 同方 式 。 将 这 些 流 (对 于 输入 流 里 的 每 个 框架 有 一 个 流 ) 组 合 为 一 个 大 的 流 ， 其 
中 包含 了 可 以 从 原来 输入 流 中 每 个 框架 扩充 而 得 到 的 ， 与 给 定 模 式 相 匹配 的 所 有 不 同方 式 。 


查询 求 值 器 和 驱动 循环 

如 果 不 看 基础 匹配 操作 的 复杂 性 ， 这 个 系统 的 组 织 方 式 很 像 一 般 语言 的 求 值 器 。 在 这 里 ， 
协调 各 种 匹配 操作 的 过 程 称 为 qeval ， 它 扮演 着 与 Lisp 求 值 器 中 的 过 程 eval 类 似 的 角色 。 
qeval 以 一 个 查询 和 一 个 框架 流 为 输入 ， 其 输出 是 一 个 框架 的 流 ， 对 应 于 查询 模式 的 所 有 成 
功 匹 配 ， 其 中 的 框架 都 是 输入 流 里 某 些 框架 的 扩充 ， 就 像 图 4-4 所 示 的 那样 。 与 eval 类 似 ， 
qeval 也 根据 表达 式 (查询 ) 的 不 同类 型 对 它们 进行 分 类 ， 并 将 进一步 工作 分 派 到 与 它们 对 
应 的 适当 过 程 。 这 其 中 包括 了 针对 每 类 特殊 形式 (and, or, 、not 和 1isp-value) 的 过 程 ， 
以 及 一 个 针对 简单 查询 的 过 程 。 

驱动 循环 也 与 本 章 中 其 他 求 值 器 里 的 driver-1Loop 过 程 类 似 ， 它 从 终端 读 入 查询 HF 

每 一 个 查询 ， 它 都 用 这 个 查询 和 一 个 仅仅 包含 一 个 空 框 架 的 流 调用 qeval。 这 一 调用 将 产生 
出 所 有 可 能 匹配 ( 空 框架 的 所 有 可 能 扩充 ) 的 流 。 对 于 结果 流 里 的 每 个 框架 ， 驱 动 循环 用 该 
框架 里 找 出 的 值 去 实例 化 原来 的 查询 。 实 例 化 后 得 到 的 流 被 打印 出 来 ”“ 。 

驱动 循环 还 要 检查 特殊 命令 assert!， 它 用 于 指明 一 个 输入 并 不 是 查询 ， 而 是 一 个 断言 
或 者 规则 ， 应 加 入 数据 库 里 。 例 如 : 


(assert! (job (Bitdiddle Ben) (computer wizard))) 


(assert! (rule (wheel ?person) 
(and (supervisor ?middle-manager ?person) 
(supervisor ?x ?middle-manager)))) 


27 由 于 合 一 是 匹配 的 推广 ， 我 们 完全 可 以 简化 这 个 过 程 ， 使 用 合 一 器 去 产生 这 两 个 流 。 当 然 ， 用 简单 的 匹配 器 
处 理 简 单 的 情况 ， 也 说 明了 匹配 (与 一 般 性 的 合 一 相对 应 ) 本 身 的 也 可 能 有 用 。 

278 我 们 在 这 里 采用 框架 的 流 (而 没有 用 表 )， 原 因 是 ， 在 递归 地 应 用 规则 时 ， 完全 有 可 能 产生 出 无 穷 多 个 满足 
查询 的 值 。 流 中 所 蕴含 的 延 时 求 值 在 这 里 是 至 关 重要 的 。 系 统 将 一 个 接 一 个 地 打印 出 结果 ， 无 论 实 际 结果 究 
况 是 有 穷 多 个 还 是 无 穷 多 个 。 
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4.4.3 逻辑 程序 设计 是 数理 逻辑 吗 


初 看 起 来 ， 用 在 这 一 查询 语言 里 的 各 种 组 合 手 段 似乎 等 同 于 数理 逻辑 里 的 操作 anqd 、or 
和 not ， 而 查询 语言 规则 的 应 用 ， 事 实 上 就 是 通过 正当 的 推理 方法 完成 的 ”。 查 询 语 言 与 数 
理 逻 辑 之 间 的 这 种 等 同性 并 非 真 的 正确 ， 因 为 这 一 查询 语言 提供 了 一 种 控制 结构 ， 它 采用 过 
程 性 的 方式 来 解释 逻辑 语句 。 我 们 常常 可 以 由 这 种 控制 结构 中 获 益 。 例 如 ， 为 了 找 出 程序 员 
的 所 有 上 司 ， 我 们 可 以 以 如 下 的 两 种 逻辑 上 完全 等 价 的 形式 构造 出 查询 : 

(and (job ?x (computer programmer) ) 

(supervisor ?x ?y)) 

或 者 

(and (supervisor ?x ?y) 


(job ?x (computer programmer) ) ) 


如 果 这 一 公司 里 的 上 司 比 程序 员 更 多 (实际 情况 确实 往往 如 此 )， 采 用 第 一 种 形式 就 比 采 用 第 
二 种 形式 更 好 ， 因 为 对 于 由 and 的 第 一 个 子 名 产生 出 的 每 个 中 间 结 果 (框架 ) ， 我 们 都 需要 扫 
描 整 个 数据 库 。 - 

逻辑 程序 设计 的 目标 是 为 程序 员 提 供 一 种 技术 ， 它 能 将 计算 问题 分 解 为 两 个 相互 分 离 的 
问题 :“ 什 么 ”需要 计算 ， 以 及 “如 何 ” 进 行 这 一 计算 。 达 到 这 一 目标 的 方式 就 是 ， 选 出 数理 
逻辑 中 语句 的 一 个 子 集 ， 它 的 功能 足够 强大 ， 足以 描述 所 有 可 能 希望 去 计算 的 问题 ， 然 而 又 
足够 的 弱 ， 使 我 们 能 有 一 种 过 程 性 的 解释 。 这 一 做 法 的 意图 是 ， 一 方面 ， 在 逻辑 程序 设计 语 
言 里 刻画 的 程序 应 该 是 足够 有 效 的 程序 ， 能 用 计算 机 去 执行 。 控 制 (“ 如何” 去 计算 ) 将 受到 
这 一 语言 所 采用 的 求 值 顺序 的 影响 。 我 们 应 该 设法 安排 好 子 句 的 顺序 和 每 个 子 句 里 各 个 子 目 
标的 顺序 ， 使 得 计算 一 定 能 以 一 种 正确 而 又 高 效 的 方式 完成 。 在 此 同时 ， 我 们 还 应 该 能 看 到 
计算 的 结果 (〈“ 什 么 ”需要 计算 )， 它 们 应 该 是 这 些 逻 辑 法 则 的 简单 结论 。 

我 们 的 查询 语言 ， 可 以 看 作 只 不 过 是 数理 逻辑 的 一 个 可 以 用 过 程 方式 去 解释 的 子 集 。 一 
个 断言 表示 了 一 个 简单 事实 〈 一 个 原子 命题 ) ， 一 条 规则 表示 一 个 蕴含 ， 所 有 使 规则 的 体 成 立 
的 情况 ， 也 都 能 使 规则 的 结论 成 立 。 规 则 有 一 种 很 自然 的 过 程 性 解释 : 为 了 得 到 一 条 规则 的 
结论 ， 请 设法 得 到 这 一 规则 的 体 。 这 样 ， 规 则 也 就 描述 了 计算 。 当 然 ， 由 于 规则 也 可 以 看 作 
是 数理 逻辑 的 语句 ， 我 们 也 可 以 通过 完全 在 数理 逻辑 里 工作 得 到 同样 的 结果 ， 以 此 来 确认 由 
逻辑 程序 建立 起 来 的 任何 “推理 ”都 是 正确 的 ”。 


279 一 种 特定 推理 方法 的 正当 性 并 不 是 一 个 简单 的 论断 。 人 们 必须 证 明 ， 从 真 的 前 提出 发 只 能 推导 出 真 的 结论 。 
通过 规则 应 用 表示 的 推理 方法 称 为 假 言 推理 (modus ponens )， 这 是 一 种 人 们 熟知 的 推理 方法 ， 它 说 ， 如 果 A4 
为 真 而 目 A 冀 含 B 也 为 真 ， 那 么 我 们 就 可 以 做 出 结论 说 8 是 真 。 

280 我 们 必须 为 这 种 说 法 加 上 一 个 限制 ， 约 定 在 说 某 个 逻辑 程序 建立 了 “推理 ”的 问题 时 ， 我 们 总 假定 了 计算 终 
止 。 不幸 的 是 ， 对 下 面 将 要 给 出 的 这 个 查询 语言 的 实现 而 言 ， 即 使 这 样 限制 之 后 的 语句 也 不 对 (对 于 Prolog 
的 程序 和 当前 大 部 分 其 他 的 逻辑 程序 设计 语言 ， 这 种 说 法 也 同样 不 对 )， 原 因 是 我 们 在 这 里 对 not 和 lisp- 
value 的 使 用 。 正 如 我 们 将 在 下 面 说 明 的 ， 在 这 个 查询 语言 里 的 not 的 实现 ， 并 不 总 与 数理 逻辑 里 的 not 一 
致 ， 而 1isp-value 又 引进 了 进一步 的 复杂 情况 。 我 们 可 以 通过 简单 地 从 语言 里 删除 hot 和 1isp-value， 
并 约定 只 采用 简单 查询 来 写 程序 ， 这 样 就 可 以 实现 一 种 与 数理 逻辑 相 容 的 语言 。 然 而 ， 如 果真 的 那样 做 ， 就 
会 极 大 地 限制 了 语言 的 表达 能 力 。 逻 辑 程序 设计 研究 中 特别 关注 的 一 个 问题 就 是 找到 一 些 方式 ， 设 法 尽 可 能 
与 数理 逻辑 更 相 容 ， 而 同时 又 不 会 过 多 辆 牲 语言 的 表达 能 力 。 


3 TR 


无 穷 循 环 

对 于 逻辑 程序 做 过 程 性 解释 存在 一 个 推论 ， 那 就 是 在 解决 某 些 问题 时 ， 我们 有 可 能 构造 
出 极端 低 效 的 程序 。 这 种 低 效 的 一 个 极端 情况 就 是 系统 在 做 推导 时 陷入 了 无 穷 循环 。 作 为 一 
个 简单 的 例子 ， 假 定 我 们 在 设计 某 个 有 关 著 名 婚姻 的 数据 库 时 ， 加 入 了 

(assert! (married Minnie Mickey) ) 
如 果 提 问 

(married Mickey ?who) 
那么 我 们 将 无 法 得 到 答复 ， 因 为 系统 并 不 知道 如 果 A 与 B 结 婚 ， 那么 B 也 与 A 结婚 。 为 此 我 们 
加 入 下 面 规则 : | 


(assert! (rule (married ?x ?y) 
(married ?y ?x))) 


后 再 次 查询 
(married Mickey ?who) 
不 幸 的 是 ， 这 就 导致 系统 进入 了 无 穷 循 环 。 因 为 : 
。 系 统 发 现 married 规 则 可 以 应 用 ， 即 规则 的 结论 (married ?x ?y) 成 功 地 与 查询 
模式 (married Mickey ?who) 匹配 ,产生 出 一 个 框架 ， 其 中 ?x 约束 到 Mickey 
而 ?y 约束 到 ?who。 这 样 ， 解 释 器 就 会 继续 做 下 去 ， 在 这 一 框架 里 求 值 规则 的 体 
(married ?y ?x) 从 效果 上 看 ， 也 就 是 处 理 查询 (married ?who Mickey), 
。 现 在 可 以 直接 从 数据 库 里 得 到 了 一 个 断言 : (married Minnie Mickey), 
。 由 于 married 规 则 仍然 可 以 应 用 ， 所 以 解释 器 又 会 去 求 值 规则 的 体 ， 这 次 它 等 价 于 
(married Mickey ?who )。 
现在 系统 就 进入 了 一 个 无 穷 循环 。 在 实际 中 所 用 的 系统 能 否 在 陷入 循环 之 前 找 出 简单 回答 
(married Minnie Mickey), 还 要 依赖 于 这 个 系统 检查 数据 库 中 条 目的 实现 细节 。 这 是 
一 个 非常 简单 的 可 能 出 现 这 种 循环 的 实例 。 一 组 相互 有 关 的 规则 有 可 能 导致 难以 预料 的 循环 ， 
而 这 种 循环 的 出 现 又 可 能 依赖 于 各 个 子 句 在 一 个 and 里 出 现 的 顺序 (参见 练习 4.64)， 或 者 依 
赖 于 系统 处 理 查询 时 的 顺序 方面 的 底层 细节 ?2 。 
与 not 有 关 的 问题 
这 一 系统 的 另 一 个 诡异 之 处 与 not 有 关 。 对 于 4.4.1 节 的 数据 库 ， 考 虑 下 面 两 个 查询 : 


(and (supervisor ?x ?y) 
(not (job ?x (computer programmer) ))) 


(and (not (job ?x (computer programmer) )) 


81 这 并 不 是 逻辑 的 问题 ， 而 是 由 我 们 的 解释 器 为 逻辑 提供 的 过 程 性 解释 的 问题 。 我 们 也 可 以 写 出 一 个 解释 器 ， 
使 之 不 会 在 这 里 陷 人 循环 。 警 如 说 ， 我 们 可 以 枚 举 出 从 已 有 断言 和 规则 出 发 可 以 导出 的 所 有 证 明 ， 以 宽度 优 
先 而 不 是 深度 优先 的 顺序 。 当 然 ， 这 样 的 系统 就 很 难 由 程序 中 的 推导 顺序 获得 任何 利益 了 。deKleer et al. 
1977 描 述 了 试图 将 复杂 控制 构筑 到 这 种 程序 里 的 一 次 尝试 。 另 一 种 不 会 带 来 如 此 严重 控制 问题 的 技术 是 将 特 
殊 知 识 放 进去 ， 例 如 放 入 能 够 检查 某 些 类 特定 循环 的 检测 功能 (练习 4.67 )。 但 是 ， 不 可 能 存在 一 种 可 靠 的 一 
般 性 模式 ， 能 够 防止 系统 在 执行 推导 时 落 入 无 穷 循 环 的 陷阱 。 请 设想 一 种 具有 如 下 形式 的 恶魔 规则 :“ 要 证 
WP) AA, WERCO 为 真 ”"， 对 某 个 适当 选 出 的 函数 f。 


(supervisor ?x ?y)) 


这 两 个 查询 却 不 会 产生 出 同样 的 结果 。 第 一 个 查询 在 开始 时 找 出 了 数据 库 里 所 有 与 (super- 
visor ?x ?y) 匹配 的 条 目 , 而 后 从 得 到 的 框架 里 删除 了 所 有 其 中 的 ?x 满足 (job ?x 
(computer programmer)) 的 条 目 。 第 二 个 查询 在 开始 时 从 输入 框架 了 删除 所 有 满足 
(job ?x (computer programmer )) 的 框架 。 因 为 一 般 来 说 数据 库 里 存在 这 种 形式 的 条 
目 ， 所 以 这 个 not 子 句 将 过 滤 掉 空 框架 ， 返 回 一 个 空 的 框架 流 。 这 样 ， 整 个 复合 查询 也 将 得 
到 空 的 流 。 

麻烦 出 自我 们 对 not 的 解释 ， 实 际 上 ， 这 一 解释 是 希望 作为 一 个 针对 变量 值 的 过 滤器 。 如 
果 一 个 not 子 句 被 作用 在 一 个 框架 上 ， 其 中 存在 着 一 些 还 没有 约束 的 变量 (例如 上 面 例子 里 
的 ?x)， 这 个 系统 就 会 产生 我 们 不 希望 出 现 的 结果 。 类 似 问题 也 会 出 现在 使 用 1isp~value 的 
时 候 一 一 如 果 那 个 Lisp 谓 词 的 某 些 参 数 还 没有 约束 ， 它 也 不 可 能 正确 工作 ， 见 练习 4.77 。 

这 个 查询 语言 里 的 not 还 在 另 一 个 更 严重 的 方面 与 数理 逻辑 里 的 not 不 同 。 在 逻辑 里 ， 我 
们 将 语句 “ 非 P>” 解释 为 P 不 真 。 但 是 ， 在 这 个 查询 系统 里 ,“ 非 P” 则 意味 着 P 不 能 由 数据 库 
里 的 知识 推导 出 来 。 举 例 来 说 ， 有 了 4.4.1 节 的 人 事 数据 库 ， 这 一 系统 可 以 推导 出 所 有 各 种 各 
样 的 not 语 句 ， 例 如 Ben Bitdiddle 不 喜欢 篮球 ， 外 面 没 有 下 两 ， 以 及 2 +2 不 等 于 4 。” 换 句 话 
说 ,逻辑 程 序 设计 语言 里 的 net 反应 了 一 种 所 谓 的 封闭 世界 假说 ， 它 认为 所 有 有 关 的 知识 都 
已 经 包含 在 所 用 的 数据 库 里 了 ”。 

练习 4.64 Louis Reasoner 错 误 地 从 数据 库 里 删除 了 有 关 outranked-by 的 规则 ( 见 4.4.1 
节 )。 在 认识 到 这 一 问题 后 ， 他 很 快 重新 创建 了 这 一 规则 。 不 幸 的 是 ， 他 对 规则 做 了 一 点 小 修 
改 ， 实 际 输入 的 是 下 面 规则 ; 

(rule (outranked-by ?staff-person ?boss) 

(or (supervisor ?staff-person ?boss) 


(and (outranked-by ?middle-manager ?boss) 
(supervisor ?staff-person ?middle-manager) ))) 


Louis 刚 刚 把 这 些 信息 输入 系统 ，DeWitt Aull 就 希望 能 找到 谁 的 级 别 高 于 Ben Bitdiddle, 。 他 发 
出 的 查询 是 : 

(outranked-by (Bitdiddle Ben) ?who) 
系统 在 给 出 回答 之 后 就 陷入 了 无 穷 循 环 。 请 解释 这 是 为 什么 。 

练习 4.65 CyD. Fect 期 望 有 朝 一 日 能 在 这 个 公司 里 得 到 提拔 ， 因 此 给 出 了 一 个 查询 ， 要 
找 出 这 里 所 有 的 大 人 物 (他 用 的 是 4.4.1 节 的 whee1l 规 则 ): 


(wheel ?who) 


使 他 感到 很 吃惊 ， 系 统 的 回复 居然 是 


;;; Query results: 
(wheel (Warbucks Oliver) ) 
(wheel (Bitdiddle Ben) ) 


m 考虑 查询 (not (baseball-fan (Bitdiddle Ben))), ARB (baseball-fan (Bitdiddle 
Ben)) 不 在 数据 库 里 ， 因 此 空 框架 不 满足 这 个 模式 ， 所 以 它 不 会 从 初始 的 框架 流 中 被 删除 。 查 询 的 结果 就 
是 这 个 空 框架 ， 它 将 被 用 于 实例 化 输入 程序 ， 产 生 (not (baseball-fan (Bitdiddle Ben))), 

283 从 论文 Clark (1978) 中 可 以 找到 有 关 这 种 not 处 理 方式 的 讨论 和 其 正当 性 的 论述 。 


(wheel (Warbucks Oliver)) 
(wheel (Warbucks Oliver) ) 
(wheel (Warbucks Oliver) ) 


为 什么 Oliver Warbucks 在 这 里 列 出 了 4 次 ? 


练习 4.66 ”Ben 正 在 对 这 一 查询 系统 进行 推广 ， 以 提供 有 关公 司 的 各 种 统计 。 例 如 ， 为 了 
找 出 所 有 程序 员 的 工资 总 额 ， 人 们 将 可 以 写 : 


{sum ?amount 
(and (job ?x (computer programmer ) ) 
(salary ?x ?amount)) ) 


一 般 而 言 ，Ben 的 新 系统 里 允许 下 面 形式 的 表达 式 : 
(accumulation-function <variable> 


<query pattern>) 


其 中 accumulation-function 可 以 是 像 sum、average 或 maximum 一 类 的 东西 。Ben 觉 
得 这 种 扩充 的 实现 应 该 是 小 菜 一 碟 。 他 简单 地 将 查询 模式 送 入 qeval， 这 将 产生 出 一 个 框架 
流 。 而 后 他 就 可 以 把 这 个 流 送 给 一 个 映射 函数 ,该 函数 从 流 中 每 个 框架 里 提取 出 指定 变量 的 
值 ， 而 后 将 得 到 的 结果 值 的 流 送 入 一 个 累积 函数 。 正 当 Ben 刚 刚 完 成 了 这 个 实现 ， 和 希望 去 试验 
它 的 时 候 ，Cy 走 了 过 来 ， 他 还 在 为 练习 4.65 中 whee1l 的 查询 结果 感到 疑惑 。 当 Cy 将 系统 的 回 
应 展示 给 Ben 时 ，Ben 忽 然 大 叫 一 声 ,“ 哎 呀 ， 糟 糕 ， 我 的 简单 累积 模式 根本 不 行 1“ 

Ben 刚 刚 认识 到 什么 ?请 勾画 出 一 种 他 能 利用 以 便 将 事情 从 危难 中 拯救 出 来 的 方法 。 

练习 4.67 ”请 设计 一 种 方式 ， 在 查询 系统 里 安装 一 个 循环 监测 器 ， 以 避免 正文 和 练习 4.64 
里 说 明 的 那些 简单 循环 。 一 般 性 的 想法 是 系统 需要 维护 它 当 前 所 做 推导 链 的 某 种 历史 记录 ， 
如 果 遇 到 了 正在 处 理 之 中 的 某 个 查询 ， 就 不 再 重新 开始 做 它 了 。 请 描述 在 这 一 历史 记录 中 需 
要 包含 哪些 信息 (模式 和 框架 )， 应 该 做 哪些 检查 。 在 学 习 了 4.4.4 节 里 的 查询 系统 实现 之 后 ， 
你 可 能 会 希望 修改 该 系统 ， 加 入 你 的 循环 监测 器 。 


练习 4.68 ”请 定义 一 些 规则 ， 实 现 练习 2.18 的 reverse 操 作 ， 它 返回 一 个 与 所 给 的 表 包 
含 同 样 元 素 的 表 ， 但 其 中 元 素 按 相反 的 顺序 排列 (提示 ， 利 用 append-to-form)。 你 的 规 
则 能 够 回答 (reverse (1 2 3) ?x) 和 (reverse ?x (1 2 3)) 吗 ? 

练习 4.69 ”请 从 你 在 练习 4.63 中 构造 的 规则 出 发 , 设计 出 一 个 规则 ,为 祖 孙 关系 加 入 “ 重 ” 
的 关系 。 这 一 关系 应 该 使 系统 能 推导 出 Irad 是 Adam 的 重 孙 ， 或 者 Jabal 和 Jubal 是 Adam 的 重重 
重重 重 孙 (HR: 表示 有 关 Irad 的 事实 ， 例 如 ，( (great grandson) Adam Irad)。 写 出 
一 些 规则 ， 去 确定 是 否 某 个 表 的 最 后 是 符号 grandson。 利 用 它 描述 一 条 规则 ， 使 人 可 以 推 
导出 关系 ((great . ?rel) ?x ?y)， 其 中 的 ?re1 是 一 个 以 grandson 结 束 的 表 ) 。 用 一 
些 查 询 ， 例 如 ((great grandson) ?9 ?ggs) 和 (?relationship Adam Irad) 检 


查 你 的 规则 。 
4.4.4 查询 系统 的 实现 


4.4.2 节 描述 了 这 一 查询 系统 如 何 工作 的 情况 。 现 在 我 们 要 填充 其 中 的 细节 ， 给 出 这 个 系 
统 的 一 个 完整 实现 。 
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4.4.4.1 驱动 循环 和 实例 化 

这 一 查询 系统 的 驱动 循环 将 反复 读 进 输入 表达 式 。 如 果 表 达 式 是 应 该 加 入 数据 库 的 规则 
或 者 断言 ， 它 就 把 有 关 的 信息 加 进 数据 库 。 否 则 就 认为 这 是 一 个 查询 ， 它 将 这 个 查询 送 给 求 
值 器 qeval， 同 时 送 去 的 还 有 一 个 初始 的 框架 流 ， 其 中 只 包含 一 个 空 框架 。 求 值 的 结果 是 一 
个 框架 流 ， 根 据 从 数据 库 里 找 出 的 满足 查询 的 变量 值 生成 。 驱 动 循环 使 用 这 些 框架 产生 一 个 
新 流 ， 其 中 包含 了 所 有 通过 将 原始 查询 里 的 变量 用 上 述 框架 流 提供 的 值 实例 化 后 得 到 的 副本 。 
这 一 最 终 的 流 从 终端 打印 出 来 : 


(define input-prompt ";;; Query input:") 
(define output-prompt ";;; Query results:") 


(define (query-driver-loop) 
(prompt-for-input input-prompt) 
(let ((q (query-syntax-process (read)))) 

(cond ((assertion-to-be-added? q) 
(add-rule-or-assertion! (add-assertion-body q)} 
(newline) 

(display "Assertion added to data base.") 
(query-driver-loop) ) 
(else 
(newline) 
(display output-prompt) 
(display-stream 
(stream-map 
(lambda (frame) 
(instantiate q 
frame 
(lambda {v f} 
(contract-question-mark v)))) 
(qeval q (singleton-stream *())))) 
(query-driver-loop))))) 


在 这 里 ， 就 像 在 本 章 里 讨论 的 所 有 求 值 器 里 一 样 ， 我 们 使 用 的 是 查询 语言 表达 式 的 一 种 
抽象 语法 。 表 达 式 语法 的 实现 将 在 4.4.4.7 节 给 出 ， 包 括 谓 词 assertion-to-be-added? 和 
选择 函数 add-assertion-body。add-rule-or-assertion! 在 4.4.4.5 节 定义 。 

在 对 一 个 输入 表达 式 进 行 任何 处 理 之 前 ， 驱 动 循环 都 以 语法 方式 将 其 变换 到 另 一 种 更 容 
易 有 效 处 理 的 形式 。 其 中 涉及 到 修改 模式 变量 的 表示 。 在 对 查询 进行 实例 化 时 ， 所 有 仍 未 被 
约束 的 变量 都 需要 在 打印 之 前 变换 回 原来 的 输入 表示 形式 。 这 些 变换 由 两 个 过 程 query~ 
syntax-process 和 contract-question-mark 完 成 (4.4.4.7 节 ) 。 

为 了 实例 化 一 个 表达 式 ， 我 们 需要 复制 它 ， 并 用 给 定 框架 里 的 值 取代 这 一 表达 式 里 相应 
的 变量 。 这 些 值 本 身 也 可 能 需要 实例 化 ， 因 为 它们 也 可 能 包含 着 一 些 变量 (例如 ， 作 为 合 一 
的 结果 ， 在 exp 里 的 ?x 被 约束 到 ?yY ， 而 后 ?y 又 转 而 约束 到 5 )。 如 果 某 个 变量 不 能 实例 化 时 ， 
应 该 执行 的 动作 由 过 程 instantiate 的 另 一 个 参数 给 定 。 

(define (instantiate exp frame unbound-var-handler ) 

(define (copy exp) 


{cond ((var? exp) 
(let ((binding (binding-in-frame exp frame) )) 


(if binding 
(copy (binding~value binding) ) 
(unbound-var-handler exp frame) ))) 
{( (pair? exp) 
(cons (copy (car exp)) (copy (cdr exp)))) 
(else exp))) 
(copy exp)) 


对 约束 进行 操作 的 过 程 在 4.4.4.8 节 定 义 。 


4.4.4.2 KER 
query-driver-1oop 调 用 过 程 qeval 。 该 过 程 是 这 一 查询 的 基本 求 值 器 ， 它 以 一 个 查 
询 和 一 个 框架 的 流 作 为 输入 ， 返 回 被 扩充 后 的 框架 的 流 。qeval 采 用 get 和 put 识别 出 各 种 
特殊 形式 ， 并 完成 数据 导向 的 分 派 ， 就 像 我 们 在 第 2 章 实 现 各 种 通用 型 操作 时 所 做 的 那样 。 任 
何 无 法 识别 为 特殊 形式 的 查询 都 被 假定 是 一 个 简单 查询 ， 由 simple-query 处 理 。 
(define (qeval query frame-stream) 
(let ((qproc (get (type query) ‘qeval))) 
(if qproc 
(qproc (contents query) frame-stream) 
(simple-query query frame-stream) ))) 


type 和 contents 在 4.4.4.7 节 定义 ， 它 们 实现 各 种 特殊 形式 的 抽象 语法 。 


简单 查询 
simple-query 处 理 简 单 查询 。 它 以 简单 查询 (一 个 模式 ) 和 框架 流 作为 实际 参数 ， 通 
过 将 查询 与 数据 库 做 匹配 的 方式 扩充 其 中 的 每 个 框架 ， 并 将 由 此 生成 的 所 有 框架 的 流 返 回 。 
(define (simple-query query-pattern frame-stream) 
(stream-flatmap 
(lambda (frame) 
(stream-append-delayed 
(find-assertions query-pattern frame) 
(delay (apply-rules query-pattern frame)))) 
frame-stream) ) 


对 于 输入 流 里 的 每 个 框架 ， 我 们 都 用 find-assertions (4.4.4.3 节 ) 去 做 模式 与 数据 
库 里 所 有 断言 的 匹配 ， 生 成 出 一 个 扩充 框架 的 流 ， 还 要 用 apP1Y-rules (4.4.4.4 节 ) 去 应 用 
所 有 可 能 的 规则 ， 生 成 出 另 一 个 扩充 框架 的 流 。 这 两 个 流 被 组 合 (用 stream-append- 
delayed，4.4.4.6 节 ) 成 一 个 流 ， 表 示 了 满足 给 定 模 式 ， 而 且 也 与 开始 框架 相 容 的 所 有 不 同 
方式 。 用 stream-flatmap (4.4.4.6 节 ) 组 合 起 处 理 每 个 输入 框架 而 产生 的 这 种 结果 流 ， 形 
成 一 个 大 的 流 。 它 表示 的 就 是 对 初始 输入 流 里 的 各 个 框架 进行 扩充 ， 产 生出 的 与 给 定 模式 匹 
配 的 所 有 可 能 方式 。 

复合 查询 

and 查 询 的 处 理 方式 如 图 4-5 所 示 ， 由 过 程 Cconjoin 完 成 。conjoin 以 有 关 的 合 取 项 和 一 
个 框架 流 作为 实际 参数 ， 返 回 扩充 框架 的 流 。conjoin 首 先 处 理 给 它 的 框架 流 ， 找 出 能 满足 
第 一 个 合 取 项 的 所 有 可 能 的 扩充 框架 形成 的 流 。 而 后 它 就 用 这 个 新 的 框架 流 ， 递归 地 将 
conjoin 应 用 于 这 一 and 查 询 的 剩余 部 分 。 


(define (conjoin conjuncts frame-stream) 
(if (empty-conjunction? conjuncts) 
frame-stream 
(conjoin (rest-conjuncts conjuncts) 
(qeval (first-conjunct conjuncts) 
frame-stream)))) 


表达 式 


(put ‘and ‘geval conjoin) 


设置 好 geval ， 使 之 能 在 遇 到 and 形 式 时 间 conjoin 分 派 。 
or 查询 的 处 理 方 式 与 此 类 似 ， 如 图 4-6 所 示 。 这 时 先 分 别 计 算出 这 个 oz 中 各 个 析 取 项 的 
输出 流 ， 而 后 用 4.4.4.6 节 里 定义 的 ijnterleave-delayed 过 程 将 它们 归并 起 来 (参见 练习 


4.71 和 练习 4.72 ) 。 
(define (disjoin disjuncts frame-stream) 
{if (empty-disjunction? disjuncts) 
the-empty-stream 
(interleave-delayed 
(qeval (first~disjunct disjuncts) frame-stream) 
(delay (disjoin (rest-disjuncts disjuncts) 
frame-stream))))) 


(put ’or 'qeval disjoin) 
用 于 合 取 和 析 取 的 语法 谓词 和 选择 函数 将 在 4.4.4.7 节 给 出 。 


过 滤器 
not 的 处 理 采 用 4.4.2 节 给 出 了 梗概 的 方式 。 我 们 要 试 着 去 扩充 输入 流 里 的 每 个 框架 ， 看 
看 它们 能 否 满足 被 否定 了 的 查询 ,但 只 把 那些 无 法 扩充 的 框架 包含 到 输出 流 里 。 


(define (negate operands frame-stream) 
{stream-flatmap 
(lambda (frame) 
(if (stream-null? (geval (negated-query operands) 
(singleton-stream frame))) 
(singleton-stream frame) 
the-empty-stream) ) 
frame-stream) ) 
(put ‘not ’geval negate) 
lisp-value 过 滤器 的 情况 与 ot 类 似 。 这 里 用 流 中 的 每 个 框架 去 实例 化 模式 里 的 变量 ， 
而 后 将 给 定 谓词 应 用 于 得 到 的 实例 。 输 入 流 里 那些 使 谓词 返回 假 的 框架 被 过 滤 掉 。 如 果 遇 到 
未 约束 的 变量 ,结果 就 是 一 个 错误 。 
(define (lisp-value call frame-stream) 
(stream~flatmap 
(lambda (frame) 
(if (execute 
(instantiate 


call 
frame 


(lambda (v f) 
{error "Unknown pat var -- LISP-VALUE" v)))) 
(singleton-stream frame) 
the-empty-stream) ) 
frame-stream) ) 


(put ’lisp-value ‘geval lisp-value) 


execute 将 谓词 应 用 于 对 应 的 参数 。 它 必须 求 值 谓 词 表 达 式 ， 以 得 到 应 该 应 用 的 那个 实 
际 过 程 。 然 而 它 却 不 能 去 对 参数 求 值 ， 因 为 它们 已 经 是 实际 参数 了 ， 而 不 是 《Lisp 里 的 ) W 
种 需要 通过 求 值 去 产生 实际 参数 的 表达 式 。 请 注意 ，execute 是 利用 基础 Lisp 系 统 里 的 eval 
和 apply 实 现 的 。 


(define (execute exp) 
(apply (eval (predicate exp) user-initial-environment) 
(args exp))) 


特殊 形式 always-true 是 为 了 描述 一 种 总 能 满足 的 查询 , 它 忽略 有 关 的 内 容 (通常 为 空 )， 
并 简单 地 送出 输入 流 里 的 所 有 框架 。always-true 被 用 在 选择 函数 里 (4.4.4.7 节 )， 用 于 作 
为 那些 没有 体 部 分 的 规则 ( 即 那些 结论 总 能 够 满足 的 规则 ) 的 规则 体 。 

(define (always-true ignore frame-stream) frame-stream) 

(put ’always-true ’qeval always-true) 

所 有 定义 not 和 lisp-value 的 语法 规则 的 选择 函数 也 将 在 4.4.4.7 节 给 出 。 
4.4.4.3 通过 模式 匹配 找 出 断言 

find-assertions 由 simple-query 调 用 (4.4.4.2 节 )， 它 以 一 个 模式 和 一 个 框架 作 
为 输入 ， 返 回 一 个 框架 的 流 ， 其 中 的 每 个 框架 都 是 由 某 个 给 定 框架 ， 经 过 对 给 定 模式 与 数据 
库 的 匹配 扩充 而 得 到 的 。 这 个 过 程 用 fetch-assertions (4.4.5 节 ) 得 到 数据 库 里 所 有 断 
言 的 一 个 流 ， 检 查 这 些 断 言 是 否 与 当时 的 模式 和 框架 匹配 。 采 用 fetch-assertions 的 原 
因 是 ， 我 们 常常 能 通过 一 些 简单 测试 删除 掉 来 自 数 据 库 的 很 多 条 目 ， 这 里 把 数据 库 作 为 成 功 
检索 的 候选 存储 池 。 如 果 删 去 了 fetch-assertions， 这 个 系统 仍然 能 够 工作 ， 所 采用 的 
将 是 简单 检查 数据 库 中 各 个 断言 的 方式 ， 这 一 做 法 可 能 使 计算 变 得 比较 低 效 ， 因 为 其 中 对 匹 
配器 的 调用 次 数 可 能 会 增加 很 多 。 


(define (find-assertions pattern frame) 
(stream-flatmap {lambda (datum) 
(check-an-assertion datum pattern frame) ) 


(fetch-assertions pattern frame) )) 


check-an-assertion 以 一 个 模式 、 一 个 数据 对 象 (断言 ) 和 一 个 框架 作为 参数 。 如 
果 匹 配 成 功 就 返回 包含 着 扩充 框架 的 单元 素 流 ， 匹 配 失败 时 返回 the-empty~stream。 
(define (check-an-assertion assertion query-pat query-frame) 
(let ((match-result 
(pattern-match query-pat assertion query-frame) )) 
(if (eq? match-result failed) 
the-empty-stream 
(singleton-stream match-result)))) 


基本 模式 匹配 器 返回 的 或 者 是 符号 failed， 或 者 是 给 定 框架 的 一 个 扩充 。 这 一 匹配 器 的 基本 
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思想 就 是 对 照 着 模式 检查 数据 ， 一 个 一 个 元 素 地 做 ， 在 此 同时 积累 起 各 个 模式 变量 的 约束 。 
如 果 模 式 与 数据 对 象 相 同 ， 匹 配 成 功 ， 返 回 至 今 已 经 积累 起 的 约束 形成 的 框架 。 否 则 ， 如 果 
模式 是 变量 ， 我 们 就 扩充 当前 框架 ， 将 变量 与 数据 的 约束 加 入 其 中 ， 条 件 是 这 一 约束 与 框架 
里 已 有 的 约束 相 容 。 如 果 模 式 和 数据 都 是 序 对 ， 我 们 就 (递归 地 ) 将 模式 的 caz 与 数据 的 car 
匹配 , 产生 出 一 个 框架 , 而 后 在 这 一 框架 上 去 做 模式 的 cdr 部 分 与 数据 的 cdr 部 分 的 匹配 工作 。 
如 果 这 些 情 况 都 不 可 用 ,匹配 就 失败 了 ， 我 们 返回 符号 failed 。 
(define (pattern-match pat dat frame) 
(cond ((eq? frame ’failed) failed) 
((equal? pat dat) frame) 
((var? pat) (extend-if-consistent pat dat frame) ) 


((and (pair? pat) (pair? dat)) 
(pattern-match (cdr pat) 


(cdr dat) 

(pattern-match (car pat) 
(car dat) 
frame) )) 


(else ’failed))) 
这 个 过 程 通过 加 入 新 约束 扩充 给 定 的 框架 ， 条 件 是 ， 这 一 约束 与 框架 中 已 有 的 约束 相 容 : 
(define (extend-if-consistent var dat frame) 
(let ((binding (binding-in-frame var frame) )) 
(if binding 
(pattern-match (binding-value binding) dat frame) 
(extend var dat frame)))) 


如 果 在 框架 里 不 存在 这 个 变量 的 约束 ， 我 们 就 简单 地 将 该 变量 与 对 应 数据 的 约束 加 进去 。 否 
则 就 需要 在 这 个 框架 里 ， 用 这 一 数据 与 该 变量 在 框架 里 所 约束 的 值 做 一 次 匹配 。 如 果 保 存 的 
值 中 只 包含 常量 (如 果 它 是 由 extend-if-consistent 在 模式 匹配 中 存 人 的 ， 那么 就 一 定 
是 这 样 )， 那 么 ， 这 个 匹配 也 就 是 检查 已 经 保存 的 值 和 新 值 是 否 相同 。 阁 果 两 个 值 相 同 ， 那 么 
就 返回 没有 修改 的 框架 ， 如 果 不 同 就 返回 失败 标志 。 当 然 ， 框 架 里 保存 的 值 里 也 可 能 包含 变 
量 ， 如 果 它 是 在 合 一 中 保存 的 ， 就 有 可 能 出 现 这 种 情况 (参见 4.4.4.4 节 )。 将 框架 里 保存 的 值 
与 新 值 的 递归 匹配 还 可 能 会 要 求 增加 ， 或 者 要 求 检查 这 一 模式 里 的 有 关 变 量 的 约束 。 举 例 来 
说 ， 假 如 我 们 有 一 个 框架 ， 其 中 ?x 约束 到 (E Py) 而 ?7 没有 约束 ， 现在 希望 通过 加 入 ?x 到 
(£ b) 的 约束 来 扩大 这 个 框架 。 我 们 查找 ?x 并 发 现 了 它 已 经 约束 到 (f ?Y)， 这 就 导致 我 们 
必须 在 同一 框架 里 去 做 (£ ?y) 与 所 提供 的 新 值 (E b) 的 匹配 。 这 个 匹配 最 终 将 ?Y 到 b 的 
约束 加 入 框架 里 ， 而 变量 ?x 还 是 约束 到 (£ ?y) 。 在 此 过 程 中 ， 已 保存 的 约束 决 不 会 修改 ， 
也 不 会 为 一 个 特定 变量 保存 多 个 约束 。 | 
extend-if-consistent 使 用 的 那些 对 约束 做 各 种 操作 的 过 程 在 4.4.4.8 节 定义 。 


具有 带 点 尾部 的 模式 
如 果 一 个 模式 里 包含 了 一 个 圆 点 ， 后 跟 一 个 模式 变量 ， 这 一 变量 将 与 数据 表 里 的 剩余 部 


分 匹配 (而 不 是 与 数据 表 的 下 一 元 素 匹 配 ) ， 就 像 在 练习 2.20 里 描述 的 圆 点 记 靶 所 要 求 的 那样 。 
虽然 我 们 刚刚 实现 的 模式 匹配 器 并 没有 查看 圆 点 ， 但 它 确实 能 按 我 们 所 期 望 的 方式 工作 。 这 
是 因为 query-driver~loop 使 用 Lisp 的 read 基 本 过 程 读 入 查询 ， 并 将 它 表 示 为 一 个 表 结 
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构 ， 其 中 的 圆 点 将 用 一 种 特殊 方式 处 理 。 

当 read 遇 到 一 个 圆 点 时 ， 它 不 是 把 下 一 个 项 作为 表 里 的 下 一 元 素 (一 个 cons 的 car, 其 
cdr 将 是 这 个 表 的 其 余部 分 ) ， 而 是 将 下 一 个 项 直接 作为 这 个 表 结构 的 caQr 。 举 例 说 ， 对 于 给 
定 的 模式 (computer ?type)， 由 read 产 生 的 表 结 构 相 当 于 对 表达 式 (cons 
'computer (cons '?type '0)) 求 值 所 产生 的 结构 ; 而 对 (computer . ?type) 产生 的 
结构 相当 于 对 表达 式 (cons ‘computer '?type) 求 值 构造 出 的 结构 。 

这 样 , 在 pattern-match 递 归 地 比较 一 个 数据 表 与 一 个 模式 中 各 个 car 和 car 的 过 程 中 ， 
它 最 终 会 将 圆 点 后 的 变量 (是 模式 里 的 一 个 cdr) 与 数据 表 的 一 个 子 表 匹 配 ， 并 将 其 约束 于 
这 个 子 表 。 例 如， 将 模式 (computer . ?type) 与 (computer programmer trainee) 
匹配 ， 将 使 变量 ?type 匹 配 到 表 (programmer trainee )。 


44.4.4 ”规则 和 合 一 

apply-rules 用 类 似 find-assertions 的 方式 处 理 规则 (4.4.4.3 节 )。 它 以 一 个 模式 
和 一 个 框架 作为 输入 ， 生 成 一 个 通过 应 用 来 自 数据 库 的 规则 而 扩充 的 框架 流 。stream- 
fiatmap 将 apply-a-rule 映 射 到 由 可 能 应 用 的 规则 (由 fetch-rules 选 出 ，4.4.4.5 节 ) 
形成 的 流 上 ， 并 组 合 起 得 到 的 框架 流 。 

{define (apply-rules pattern frame) 

(stream-flatmap (lambda {rule) 
(apply-a-rule rule pattern frame)) 
(fetch-rules pattern frame) )) 

apply-a-rule 采 用 4.4.2 节 里 概述 的 方法 去 完成 规则 的 应 用 。 它 首先 在 给 定 框架 里 对 规 
则 的 结论 和 模式 做 合 一 ， 以 这 种 方式 扩充 自己 的 实 参 框架 。 如 果 这 一 工作 成 功 完成 ， 那 么 就 
在 得 到 的 新 框架 里 求 值 规 则 的 体 。 : 

OA, 在 做 所 有 这 些 事情 之 前 ,程序 需要 将 规则 里 的 所 有 变量 重新 命名 (用 唯一 性 名 字 )。 
之 所 以 这 样 ， 是 为 了 如 免 在 不 同 的 规则 应 用 中 变量 名 字 互 扰 。 举 个 例子 ， 如 果 两 条 规则 里 都 
有 一 个 变量 的 名 字 是 ?x， 那 么 在 应 用 时 ， 这 两 条 规则 就 都 可 能 向 框架 里 加 入 对 ?x 的 约束 。 其 
实 这 两 个 约束 相互 间 毫 无 关系 ， 而 我 们 却 会 以 为 这 两 个 约束 必须 相 容 。 如 果 不 做 变量 的 重新 
命名 ， 也 可 以 设计 一 种 更 加 聪明 的 环境 结构 。 然 而 ， 重 新 命名 却 是 最 直截了当 的 解决 办 法 ， 
虽然 可 能 不 是 效率 最 高 的 办 法 (参见 练习 4.79 )。 下 面 是 apply-a-rule 过 程 ， 

(define (apply-a-rule rule query-pattern query-frame) 

(let ((clean-rule (rename-variables-in rule))) 
(let ((unify-result 
(unify-match query-pattern 
(conclusion clean-rule) 
query-frame) )) 
(if (eq? unify-result ’failed) 
the-empty-stream 
(qeval (rule-body clean-rule) 
(singleton-stream unify-result)))))) 
提取 规则 成 分 的 选择 函数 rule-body 和 conclus ion 将 在 4.4.4.7 节 定义 。 
为 了 生成 唯一 的 名 字 ， 这 里 的 方法 是 为 每 个 规则 应 用 关联 一 个 唯一 标识 (例如 一 个 数 )， 


并 将 这 一 标识 与 原来 的 变量 名 组 合 起 来 。 璧 如 说 ， 如 果 规 则 应 用 的 标识 是 7 ， 我 们 就 可 以 把 规 
则 里 的 每 个 ?x 都 改 为 ?x-7 ， 将 其 中 的 每 个 ?y 都 改 为 ?yY-7 。(make-new-variab1le 和 
new-rule-application-id 与 语法 过 程 一 起 放 在 4.4.4.7 节 里 。) 


(define (rename-variables-in rule) 
(let ((rule-application-id (new-rule-application-id) )) 
(define (tree-walk exp) 
(cond ((var? exp) 
(make-new-variable exp rule-application-id)) 
( (pair? exp) 
(cons (tree-walk (car exp)) 
(tree-walk (cdr exp)))) 
(else exp))) 
(tree-walk rule))) 


合 一 算法 也 实现 为 一 个 过 程 。 这 个 过 程 以 两 个 模式 和 一 个 框架 为 参数 ， 返 回 扩充 后 的 框 
架 或 者 符号 failed。 这 个 合 -过 程 很 像 前 面 的 模式 匹配 器 ， 但 它 是 对 称 的 ， 因 为 匹配 的 两 边 
都 可 以 有 变量 。unify-match 基 本 上 与 pattern-match 相 同 ， 只 是 多 了 一 些 代码 (下面 用 
“***” 标 记 的 部 分 )， 用 于 处 理 匹 配 的 右边 对 象 也 是 变量 的 情况 。 

{define (unify-match pl p2 frame) 

(cond ((eq? frame ‘failed) failed) 
((equal? pl p2) frame) 
((var? pl) (extend-if-possible pl p2 frame) ) 
((var? p2) (extend-if-possible p2 pl frame)) ; *** 
((and (pair? pl) (pair? p2)) 
(unify-match (cdr pl) 


(cdr p2) 

(unify-match (car pl) 
(car p2) 
frame) )) 


(else ’failed))) 

在 合 一 过 程 中 ， 就 像 在 单 边 的 模式 匹配 里 那样 ， 只 有 在 得 到 的 扩充 能 够 与 现存 匹配 相 容 
时 ， 我 们 才能 够 接受 这 一 扩充 。 在 合 一 里 面 使 用 的 extend-if-possib1le 过 程 很 像 在 模式 
匹配 里 使 用 的 extend-if-consistent， 但 在 这 里 增加 了 两 处 特殊 检查 ， 在 下 面 的 程序 里 
用 “***” 标 记 。 第 一 种 情况 出 现在 我 们 试图 去 匹配 的 变量 还 没有 约束 ， 而 想 要 用 它 去 匹配 
的 值 本 身 也 是 一 个 (不 同 的 ) 变量 时 。 此 时 就 需要 检查 这 个 (作为 值 的 ) 变量 是 否 已 经 有 了 
约束 。 如 果 有 的 话 ， 那 就 让 前 一 个 变量 也 约束 到 它 的 值 。 如 果 两 个 变量 都 没有 约束 ， 那 么 就 
可 以 将 其 中 任何 一 个 约束 到 另 一 个 。 

第 二 个 检查 处 理 的 情况 出 现在 试图 将 一 个 变量 约束 到 一 个 模式 ， 而 该 模式 里 又 包含 这 个 
恋 量 时 。 当 两 个 模式 里 都 有 重复 出 现 的 变量 的 时 候 ， 就 可 能 出 现 这 种 情况 。 举 个 例子 ， 考 虑 
在 一 个 ?x 和 ?y 都 没有 约束 的 框架 里 对 两 个 模式 (?x ?x) 和 (Py < 涉及 ?y 的 表达 式 >) 的 
合 一 。 这 里 首先 做 ?x 与 ?7 的 匹配 ， 做 出 了 一 个 从 ?x 到 ?Y 的 约束 。 下 面 又 要 用 同一 个 ?Xx 去 与 
一 个 涉及 ?y 的 表达 式 匹配 。 由 于 ?x 已 经 约束 到 ?y， 结 果 就 要 用 ?y 去 与 这 个 表达 式 匹配 。 如 
果 我 们 认为 合 一 的 工作 就 是 为 模式 变量 找到 一 组 对 应 值 ， 它 们 能 使 两 个 模式 变 得 相同 。 那 么 
上 面 的 模式 就 意味 着 需要 找 出 一 个 ?yY ， 使 ?Y 等 价 于 那个 包含 ?Y 的 表达 式 。 不 存在 求解 这 种 方 


程 的 一 般 性 方法 ， 因 此 我 们 拒绝 这 种 约束 ”“。 谓词 Gepends-on? 检查 这 种 情况 。 在 另 一 方面 ， 
我 们 并 不 想 拒绝 一 个 变量 与 其 自身 的 匹配 。 举 例 来 说 ， 在 考虑 (?x Px) 和 (y ?y) 的 合 
一 时 ， 第 二 次 尝试 将 ?x 约 束 到 ?y 时 要 做 ?yY (?x 的 保存 值 ) Sy (?x 的 新 值 ) 的 匹配 。 这 一 
情况 通过 unify-match 里 的 equal? 子 句 检 查 。 
(define (extend~if-possible var val frame) 
(let ((binding (binding-in-frame var frame) )) 
(cond (binding 
(unify-match 
(binding-value binding) val frame) ) 
((var? val) 5 e*® 
(let ((binding (binding-in-frame val frame) )) 
(if binding 
(unify-match 
var (binding-value binding) frame) 
(extend var val frame)))) 
((depends-on? val var frame) z eee 
’failed) 
(else (extend var val frame))))>) 


depends-on? 是 一 个 谓词 ， 它 检查 一 个 想 作 为 某 模式 变量 的 值 的 表达 式 是 否 依 赖 于 这 一 
变量 。 这 件 事情 也 必须 相对 于 当前 的 框架 去 做 ， 因 为 在 这 个 表达 式 里 可 能 包含 某 个 变量 的 出 
A, 而 该 变量 已 经 有 了 值 ， 其 值 依赖 于 我 们 要 检查 的 变量 。depends-on? 的 结构 是 一 个 简 
单 的 递归 的 树 遍 历 ， 其 中 (在 需要 时 ) 要 将 一 些 变量 换 成 相应 的 值 。 

(define (depends-on? exp var frame) 

(define (tree-walk e) 
(cond ((var? e) 
(if (equal? var e) 


true 
{let ((b (binding-in-frame e frame) }) 


24 一 般 地 说 , 将?y 与 一 个 涉及 ?Y 的 表达 式 合 一 ， 要 求 我 们 能 够 找到 方程 ?y = < 涉及 ?Y 的 表达 式 > 的 一 个 不 动 点 。 
有 时 我 们 确实 可 能 通过 语法 方式 构造 出 一 个 表达 式 ， 使 它 正好 是 有 关 方程 的 一 个 解 。 例 如 ，?YyY= (£ ?y) 
看 来 似乎 有 不 动 点 (E£ (£ (f ..。 ))), 我 们 可 以 从 表达 式 (£ ty) 开始 ,通过 反复 用 (E ?y) 替换 ?y 
而 得 到 它 。 不 幸 的 是 ， 并 不 是 每 个 这 样 的 方程 都 有 一 个 有 意义 的 不 动 点 。 这 里 出 现 的 问题 与 数学 里 无 穷 级 数 
运算 中 的 问题 类 似 。 举 例 说 ， 我 们 知道 2 是 方程 y = 1 +y/2 的 解 。 从 表达 式 1 +y/2 开始， 反复 地 用 1 +y/2 替 换 y， 
将 给 出 : 

Q=y=1+y/2=14(1 +y/2)/2 =1 41/2 +y/4 = 
由 此 将 得 到 
2 =1 +1/2 +1/4+1/8 + 
但 是 ， 如 果 我 们 由 于 看 到 了 一 1 是 方程 =1+2y 的 解 ， 而 试 着 去 做 同样 的 事情 时 ， 将 会 得 到 : 
—1=y=1 +2y=1 +2(1 +2y) =1 +2+4y=… 


并 由 此 得 到 
一 1 =1+2+4+8 二 … 


虽然 对 这 两 个 方程 的 操作 方式 完全 一 样 ， 第 一 个 得 到 的 结果 是 关于 一 个 无 穷 级 数 的 合法 断言 ， 而 第 二 个 却 不 
是 。 与 此 类 似 ， 采 用 任意 的 语法 操作 去 构造 作为 合 一 结果 的 表达 式 ， 也 可 能 得 到 错误 的 结果 。 
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(if b 

(tree-walk (binding-value b)) 
false)))) 

((pair? e) 

(or (tree~walk (car e)) 

(tree-walk (cdr e)))) 
(else false))) 
(tree-walk exp) ) 


4.4.4.5 数据库 的 维护 

在 设计 逻辑 程序 设计 语言 时 ， 一 个 重要 的 问题 就 是 设法 做 出 一 些 安排 ， 使 我 们 在 需要 检 
查 一 个 给 定 模式 时 ， 必 须 考察 的 无 关 数 据 库 条 目 越 少 越 好 。 在 我 们 的 系统 里 ， 除 了 在 一 个 很 
大 的 流 中 保存 了 所 有 断言 之 外 ， 我 们 还 将 car 部 分 是 常量 符号 的 所 有 断言 保存 在 另外 一 些 流 
里 ,将 这 些 流放 入 一 个 用 这 些 符号 作为 索引 的 表格 。 在 提取 可 能 与 某 个 模式 匹配 的 断言 时 ， 
我 们 首先 查看 这 个 模式 的 car 是 否 为 常量 符号 。 如 果 是 ， 那 么 就 返回 程序 里 保存 的 所 有 具有 
同样 car 的 断言 ( 送 给 匹配 器 去 检查 )。 如 果 模 式 的 car 不 是 常量 符号 ， 那 么 就 返回 程序 里 保 
存 的 所 有 断言 。 更 聪明 的 方法 还 可 以 利用 框架 里 的 信息 ， 或 者 设法 优化 那些 模式 的 car 不 是 
常量 符号 的 情况 。 我 们 并 没有 把 上 述 索 引 准 则 (利用 car ， 只 处 理 常 量 符号 的 情况 ) 构造 到 
程序 里 ， 而 是 依靠 谓词 和 选择 函数 实现 这 种 准则 。 

(define THE-ASSERTIONS the-empty-stream) 


(define (fetch-assertions pattern frame) 
(if (use-index? pattern) 
(get-indexed-assertions pattern) 
(get-all-assertions) )) 


(define (get-all-assertions) THE~ASSERTIONS) 


(define (get-indexed-assertions pattern) 
(get-stream (index-key-of pattern) "assertion-stream) ) 


get-stream 到 表格 里 查找 相应 的 流 ， 如 果 那 里 没有 东西 就 返回 一 个 空 的 流 。 


(define (get-stream keyl key2) 
(let ((s (get keyl key2))) 
(if s s the-empty-stream))) 


规则 也 用 类 似 方式 保存 ， 以 规则 中 结论 部 分 的 car 作 为 索引 。 当 然 ， 由 于 规则 的 结论 可 
以 是 任意 的 模式 ， 与 断言 不 同 点 就 是 在 这 里 可 以 包含 变量 。 其 caz 为 常量 符号 的 模式 可 以 与 
那些 结论 部 分 具有 同样 caz 的 规则 匹配 ， 还 可 以 与 那些 结论 部 分 以 变量 开始 的 规则 相 匹 配 。 
这 样 ， 假 定 某 个 模式 的 car 为 常量 符号 ， 在 提取 有 可 能 与 该 模式 匹配 的 规则 时 ， 不 但 需要 提 
. 取 所 有 结论 部 分 具有 同样 car 的 规则 ， 还 要 提取 出 所 有 结论 部 分 以 变量 开头 的 规则 。 为 此 ， 
我 们 就 把 所 有 的 结论 部 分 以 变量 开始 的 规则 作为 一 个 单独 的 流 ， 保 存在 流 的 表格 里 ， 以 符号 ? 
作为 它 的 索引 。 

(define THE-RULES the-empty-stream) 


(define (fetch-rules pattern frame) 
(if (use-index? pattern) 
(get-indexed-rules pattern) 
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(get-all-rules))) 
(define (get-all-rules) THE-RULES) 
(define (get-indexed-rules pattern) 
(stream-append 


(get-stream (index~-key-of pattern) 


’rule-stream) 
(get-stream ’? ’rule-stream) )) 


过 程 adG-rule-or-assertion! 用 在 query-driver-loop 里 ， 用 于 将 断言 和 规则 
加 入 数据 库 。 如 果 合 适 ， 就 将 条 目 都 保存 到 某 个 索引 下 ， 还 要 保存 在 数据 库 里 所 有 断言 和 规 


则 的 流 中 。 


(define (add-rule-or-assertion! assertion) 
(if (rule? assertion) 


(add-rule! assertion) 


(add-assertion! assertiu..;,, 


(define (add-assertion! assertion) 
(store-assertion-in~index assertion) 
(let ((old-assertions THE-ASSERTIONS) } 

(set! THE-ASSERTIONS 


(cons-stream assertion old-assertions) ) 

"ok ) ) 

(define (add-rule! rule) 
(store-rule-in-index rule) 
(let ((old-rules THE-RULES) ) 


(set! THE-RULES (cons-stream rule old-rules) ) 
’ok)) 


为 了 实际 地 保存 一 个 规则 或 者 断言 ， 我 们 需要 检查 它 是 否 能 索引 。 如 果 可 以 的 话 ， 就 将 


它 存 人 适当 的 流 。 
(define (store-assertion-in-index assertion) 
(if (indexable? assertion) 
(let ((key (index-key-of assertion))) 
(let ((current-assertion-stream 


(get-stream key ‘assertion-stream) ) ) 
(put key 


’assertion-stream 
(cons-stream assertion 
current-assertion-stream) ))))) 
(define (store-rule-in-index rule) 
(let ((pattern (conclusion rule))) 
(if (indexable? pattern) 
(let ((key (index-key-of pattern) )) 
(let ((current-rule-stream 


(get-stream key ’rule-stream) ) ) 
(put key 


*rule-stream 


(cons-stream rule 


current-rule~stream))))))) 


下 面 过 程 定义 了 这 个 数据 库 里 所 使 用 的 索引 。 如 果 一 个 模式 (一 个 断言 或 者 一 个 规则 的 
结论 部 分 ) 以 变量 或 者 常量 符号 开始 ， 它 就 将 被 存 和 人 表格 里 。 


(define (indexable? pat) 
(or (constant-symbol? (car pat)) 
(var? (car pat)))) 


将 模式 保存 到 表格 里 的 关键 码 或 者 是 ? (如 果 它 以 变量 开始 )， 或 者 是 作为 该 模式 开始 的 那个 
符号 常量 。 
(define (index-key-of pat) 
{let ((key (car pat))) 
(if (var? key) '? key))) 


如 果 一 个 模式 以 某 个 符号 常量 开始 ， 这 个 常量 就 将 被 用 作 索 引 ， 从 数据 库 里 提取 出 可 能 与 这 
个 模式 相 匹 配 的 条 目 。 


(define (use-index? pat) 
(constant~symbol? (car pat))) 


练习 4.70 “在 过 程 add-assertion! 和 add-zulel! 里 的 Let 约 束 起 什么 作用 ? 如 果 采 
用 下 面 方 式 实 现 add-assertion! ， 会 出 什么 错 ? 提示 : 请 参考 前 面 3.5.2 节 里 有 关 ones 的 
ERREX, (define ones (cons-stream 1 ones)), 


(define (add-assertion! assertion) 
(store-assertion-in-index assertion) 
(set! THE-ASSERTIONS 
(cons-stream assertion THE-ASSERTIONS) ) 
"ok ) 


4.4.4.6 FRE 
这 一 查询 系统 用 到 了 几 个 没有 在 第 3 章 给 出 的 流 操作 。 
stream-append-delayed ffinterleave-delayed 5stream-append fil 


interleave (35.341) 类 似 ， 但 它们 都 要 求 延 时 参数 (就 像 3.5.4 节 的 integral 过 程 ) 。 
在 某 些 情况 中 ， 这 将 推迟 循环 的 执行 参见 练习 4.71 ) 。 


(define (stream-append-delayed s1 delayed-s2) 
(if (stream-null? s1) 
(force delayed-s2) 
(cons-stream 
(stream-car sl) 
(stream-append-delayed (stream-cdr s1) delayed-s2)))) 


(define (interleave-delayed si delayed-s2) 
(if (stream-null? sl) 
(force delayed-s2) 
(cons-stream 
(stream-car sl) 
(interleave-delayed (force delayed-s2) 
(delay (stream-cdr sl)))))) 


stream-flatmap 在 整个 查询 求 值 器 里 到 处 使 用 ， 它 将 一 个 过 程 映 射 到 一 个 框架 流 上 ， 
并 组 合 起 得 到 的 结果 框架 流 。 这 个 过 程 可 以 看 作 2.2.3 节 所 介绍 的 针对 常规 表 的 flatmap 过 程 


的 流 版 本 。 但 其 中 也 有 一 些 与 常规 flatmap 不 同 的 地 方 ，stream-flatmap 采 用 一 种 交错 
的 方式 累积 起 各 个 流 ， 而 不 是 简单 地 将 它们 连接 起 来 (参见 练习 4.72 和 4.73 ) 。 
{define (stream-flatmap proc s) 


(flatten~stream (stream-map proc s))) 


(define (flatten-stream stream) 
(if (stream-null? stream) 
the-empty-stream 
(interleave-delayed 
(stream-car stream) 
(delay (flatten-stream (stream-cdr stream)))))) 


求 值 器 还 使 用 下 面 的 简单 过 程 ， 去 生成 一 个 只 包含 着 一 个 元 素 的 流 : 
(define (singleton-stream x) 
(cons-stream x the-empty-stream) ) 


444.7 ”查询 的 语法 过 程 
qeval 里 使 用 的 type 和 contents ( 见 4.4.4.2 节 ) 说 明 各 种 特殊 形式 都 由 其 car 部 分 的 
符号 作为 标识 。 这 两 个 过 程 与 2.4.2 节 的 type-tag 和 contents 过 程 一 样 ， 只 是 其 中 的 错误 
信息 不 同 。 
(define (type exp) 
(if (pair? exp) 
(car exp) 


(error "Unknown expression TYPE" exp))) 


(define (contents exp) 
(if (pair? exp) 
(cdr exp) 
(error "Unknown expression CONTENTS" exp))) 


下 面 两 个 过 程 用 在 query-driver-loop 里 ( 见 4.4.4.1 节 )， 它 们 说 明 ， 用 于 加 入 数据 库 
的 规则 和 断言 所 用 的 形式 是 (assert! <rule-or-assertion>): 
(define (assertion-to-be-added? exp) 


(eq? (type exp) ’assert!)) 


(define (add-assertion~body exp) 
(car (contents exp))) 


这 里 是 特殊 形式 and、or 、not 和 lisp~value 的 语法 定义 ( 见 4.4.4.2 节 ): 
(define (empty-conjunction? exps) (null? exps)) 

(define (first-conjunct exps) (car exps)) 

(define (rest-conjuncts exps) (cdr exps)) 


(define (empty-disjunction? exps) (null? exps)) 
(define (first-disjunct exps) (car exps)) 
(define (rest-disjuncts exps) (cdr exps)) 


{define (negated-query exps) (car exps)) 


(define (predicate exps) (car exps)) 
(define (args exps) (cdr exps)) 


下 面 三 个 过 程 定 义 了 规则 的 语法 形式 : 


(define (rule? statement) 
(tagged-list? statement ’rule)) 


(define (conclusion rule) (cadr rule)) 


(define (rule-body rule) 

(if (null? (cddr rule)) 
*(always-true) 
(caddr rule))) 


query-driver-loop ( 见 4.4.4.1 节 ) 调用 query-syntax~process， 对 表达 式 里 的 
模式 变量 做 一 种 变换 ， 将 其 由 ?symbo1 形 式 变换 为 内 部 形式 (? Symbol )。 这 也 就 是 说 ， 一 
个 形 如 (job ?x ?y) 的 模式 ， 在 系统 内 部 的 实际 表示 是 (job (? x) (? y))。 这 样 做 可 
以 提高 查询 处 理 的 效率 ， 因 为 这 就 使 系统 在 需要 检查 一 个 表达 式 是 否 为 模式 变量 时 ， 只 需 检 
查 这 一 表达 式 的 car 是 不 是 符号 ? ， 而 不 需要 做 从 符号 里 提取 字符 的 工作 。 这 一 语法 变换 由 下 
面 过 程 完 成 : : 

(define (query-syntax-process exp) 

(map-over-symbols expand-question-mark exp) ) 


(define (map~over-symbols proc exp) 
(cond ((pair? exp) 
(cons (map-over-symbols proc (car exp)) 
(map-over-symbols proc (cdr exp)))) 
((symbol? exp) (proc exp)) ` 
(else exp))) 


(define (expand-question-mark symbol) 
(let ((chars (symbol->string symbol))) 
(if (string=? (substring chars 0 1) "?") 
(list °? 
(string->symbol 
(substring chars 1 (string-length chars)))) 
symbol) )) 


一 日 以 这 种 方式 对 变量 做 了 变换 ， 模 式 里 的 变量 就 都 变 成 了 以 ?开头 的 表 ， 而 常量 符号 
(为 了 数据 库 索引 需要 识别 它们 。 见 4.4.4.5 节 ) 还 是 符号 。 
(define (var? exp) 
(tagged-list? exp °?)) 


(define (constant-symbol? exp) (symbol? exp)) 


在 规则 应 用 过 程 中 需要 构造 唯一 变量 ( 见 4.4.4.4 节 )， 此 事 通过 下 面 过 程 完 成 。 一 次 过 程 
调用 的 唯一 标识 是 一 个 数 ， 在 每 次 规则 应 用 时 加 一 。 


(define rule-counter 0) 


285 大 部 分 Lisp 系 统 允 许 用 户 修改 常规 的 read 过 程 , 使 之 能 执行 这 类 变换 。 WHAT EL RAR ETRE. 
引号 表达 式 也 是 按 这 种 方式 处 理 的 ; 读 入 器 能 自动 将 "expression 变 为 (quote expression), miat 
把 它 送 给 求 值 器 。 我 们 可 以 做 出 一 些 安排 ， 以 同样 方式 将 ?expression 变 换 为 (? expression), 然而， 
为 了 清晰 起 见 ， 这 里 写 出 了 显 式 的 变换 过 程 。 

expand~gquestion-mark 和 contract-question-mark 里 用 到 几 个 名 字 里 包 含 string 的 过 程 ， 
它们 都 是 Scheme 的 基本 操作 。 
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(define (new-rule-application-id) 
(set! rule-counter (+ 1 rule-counter) ) 
rule-counter ) 


(define (make-new-variable var rule-application-id) 
(cons °’? (cons rule-application-id (cdr var)))) 


在 guery-driver-Ioop 为 了 打印 回答 而 实例 化 查询 表达 式 时 ， 它 需要 用 下 面 过 程 将 所 
有 未 约束 的 模式 变换 回 打印 用 的 正确 形式 : 
(define (contract-question-mark variable) 
(string->symbol | 
(string-append "?" 
(if (number? (cadr variable)) 
(string-append (symbol->string (caddr variable) ) 


(number->string (cadr variable))) 
(symbol->string (cadr variable)))))) 


44.4.8 ”框架 和 约束 
框架 被 表示 为 一 组 约束 的 表 ， 每 个 约束 是 一 个 变量 - 值 序 对 : 
(define (make-binding variable value) 
(cons variable value) ) 


(define (binding-variable binding) 
(car binding) ) 


(define (binding-value binding) 
{cdr binding) ) 


(define (binding-in-frame variable frame) 
(assoc variable frame) ) 


(define (extend variable value frame) 
(cons (make-binding variable value) frame) ) 


练习 4.71 Louis Reasoner 感 到 奇怪 的 是 ， 为 什么 Simple-query 和 disjoin 过 程 ( 见 
4.4.4.2 节 ) 里 显 式 使 用 过 程 Gelay 实现 ， 而 没有 定义 为 下 面 形式 : 
(define (simple-query query-pattern frame-stream) 
(stream-flatmap 
(lambda (frame) 
(stream-append (find-assertions query-pattern frame) 
(apply-rules query-pattern frame) )) 
frame-stream) ) 


(define (disjoin disjuncts frame-stream) 
(if (empty-disjunction? disjuncts) 
the-empty-stream 
(interleave 
(geval (first-disjunct disjuncts) frame-stream) 
(disjoin (rest-disjuncts disjuncts) frame-stream) ) ) ) 


你 能 够 给 出 一 些 查 询 实 例 ， 对 于 它们 ， 这 种 更 简单 的 定义 将 会 导致 非 预期 的 行为 吗 ? 
练习 4.72 为 什么 disjoin 和 stream-flatmap 以 交错 方式 合并 流 ， 而 不 是 简单 地 连接 


它们 ? 请 给 出 实例 说 明 采 用 交错 方式 更 加 合适 。( 提示， 为 什么 我 们 在 3.5.3 节 里 需要 使 用 过 程 
interleave? ) 
练习 4.73 为 什么 flatten-stream 中 显 式 地 使 用 了 delay? 如 果 用 下 面 形式 定义 它 ， 
为 什么 就 是 错误 的 呢 ? 
{define (flatten-stream stream) 
(if (stream-null? stream) 
the-empty-stream 
(interleave 
(stream-car stream) 


(flatten-stream (stream-cdr stream))))) 

练习 4.74 Alyssa P. Hackeri% Ænegate, lisp-valuefifind-assertions # 
采用 一 种 更 简单 些 的 stream-~flatmap 版 本 。 她 注意 到 ， 在 这 些 情况 下 ， 被 映射 到 框架 流 
的 过 程 总 是 或 者 产生 一 个 空 流 ， 或 者 产生 一 个 单元 素 流 。 因 此 ， 在 组 合 这 些 流 时 根本 不 需要 
交错 。 

a) 请 填充 下面 Alyssa 的 程序 里 缺少 的 表达 式 : 

(define (simple-stream-flatmap proc s) 

(simple~flatten (stream-map proc s))) 


(define (simple-flatten stream) 
(stream-map <??> 
{stream-filter <??> stream) )) 


b) 如 果 我 们 这 样 修改 程序 ， 查 询 系统 的 行为 会 改变 吗 ? 
练习 4.75 ”为 这 一 查询 语言 实现 一 种 称 为 unique 的 新 特殊 形式 。 unique 应 该 在 数据 库 
里 恰好 只 有 一 个 满足 特殊 查询 的 条 目 时 成 功 。 例 如 ， 
(unique (job ?x (computer wizard))) 
应 该 打印 出 只 含 下 面 一 个 条 目的 流 
(unique (job (Bitdiddle Ben) (computer wizard))) 
因为 Ben 是 这 里 仅 有 的 计算 机 大 师 。 而 
(unique (job ?x (computer programmer))) 
应 输出 一 个 空 流 ， 因 为 这 里 的 计算 机 程序 员 不 止 一 个 。 进 一 步 说 ， 
(and (job ?x ?j) (unique (job ?anyone ?j))) 
应 该 列 出 所 有 只 有 一 个 人 做 的 工作 ， 以 及 做 这 些 工作 的 人 。 
实现 unique 的 工作 包括 两 部 分 。 第 一 部 分 是 写 出 一 个 能 够 处 理 这 一 特殊 形式 的 过 程 ， 第 
二 部 分 是 让 qeval 能 为 这 个 过 程 做 分 派 。 第 二 部 分 工作 很 简单 ， 因 为 geval 的 分 派 是 以 数据 
导向 的 方式 做 的 ， 如 果 你 的 过 程 名 字 叫 uniquely-asserted， 需 要 做 的 事情 也 就 是 写 
(put “unique 'qeval uniquely-asserted) 
这 就 能 使 geval 在 遇 到 某 查 询 的 type (car) 是 符号 unique 时 ， 就 会 将 它 分 派 给 这 个 过 程 。 
真正 的 问题 是 写 过 程 uniquelLy~asserted 。 它 需 要 以 相应 unique 查 询 的 contentSs 
(cdr) 部 分 和 一 个 框架 流 作为 输入 ， 对 这 个 流 里 的 每 个 框架 ， 它 应 该 利用 geval 去 找 出 这 
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一 框架 的 所 有 满足 给 定 查 询 的 扩充 框架 的 流 。 所 有 包含 着 多 个 条 目的 流 都 应 该 抛弃 。 剩 下 的 
流 送 回 并 累积 到 一 个 大 流 里 ， 作 为 unique 查询 的 结果 。 这 一 方式 与 特殊 形式 not 的 实现 方 
式 类 似 。 

通过 构造 下 面 查询 检查 你 的 实现 : 找 出 所 有 这 样 的 人 ， 他 们 只 有 一 个 上 级 。 

练习 4.76 ”我 们 将 and 实 现 为 一 系列 查询 的 组 合 ( 见 图 4-5) 的 方式 很 优美 ， 但 却 比较 低 
效 ， 因 为 在 处 理 and 的 第 二 个 查询 时 ， 我 们 还 必 人 
库 。 如 果 数 据 库 里 有 AN 个 元 素 ， 一 次 典型 查询 产生 出 的 输出 框架 个 数 等 比 于 N (RN), H 
么 为 第 一 个 查询 所 生成 的 所 有 输出 框架 扫描 数据 库 ， 就 需要 N/K 次 调用 模式 匹配 器 。 a 
计算 过 程 的 另 一 方式 是 分 别处 理 and 的 两 个 子 句 ， 而 后 考察 两 个 流 里 的 所 有 输出 框架 对 偶 是 否 
兼容 。 如 果 每 个 查询 产生 出 NAK 个 输出 框架 ， 这 就 意味 着 我 们 需要 做 N2/ 忆 次 相 容 性 检查 一 一 与 

目前 所 采用 的 方式 相 比 ， 新 方式 所 需 的 匹配 次 数 小 了 一 似 倍 的 因子 。 

请 设计 一 个 采用 这 种 策略 的 and 实 现 。 你 必须 实现 一 个 过 程 ， 它 以 两 个 流 作 为 输入 ， 检 
查 其 中 框架 里 的 匹配 是 否 兼 容 。 如 果 是 的 话 ， 就 生成 一 个 合并 了 这 两 集约 束 的 框架 。 这 一 操 
作 很 像 合 一 。 

练习 4.77 ”在 4.4.3 节 里 我 们 看 到 ， 如 果 将 过 滤器 not 和 1isp-value 作 用 于 包含 未 约束 

变量 的 框架 ， 就 可 能 导致 查询 语言 给 出 “错误 的 ”回答 。 请 设计 一 种 方式 纠正 这 个 问题 。 
种 想法 是 以 某 种 “ 延 时 ”方式 执行 过 滤 ， 让 这 些 框架 为 过 滤器 附加 一 个 “人 允诺”"， 只 有 在 框架 
里 的 变量 约束 足够 多 ， 使 这 一 操作 能 正常 完成 时 才 去 执行 它 。 我 们 可 以 等 到 所 有 其 他 操作 都 
执行 完 之 后 才 去 执行 过 滤 。 然 而 ， 由 于 效率 的 原因 ， 我 们 还 是 希望 尽 可 能 早 地 做 过 滤 ， 以 减 
少 所 生成 出 的 中 间 框 架 的 数量 。 

练习 4.78 ”重新 将 这 一 查询 语言 的 实现 设计 为 一 个 非 确定 性 程序 (而 不 是 作为 一 个 流 过 
程 ) ， 利 用 4.3 节 的 求 值 器 实现 它 。 按 照 这 种 方式 ， 每 个 查询 将 产生 出 一 个 回答 (而 不 是 所 有 
回答 的 一 个 流 )， 但 可 以 通过 输入 try-again 得 到 更 多 的 回答 。 你 将 会 发 现 ， 我 们 在 这 一 节 
里 构造 出 来 的 大 部 分 机 制 都 已 经 被 非 确 定性 搜索 和 回溯 所 概括 了 。 当 然 ， 你 可 能 还 会 发 现 
从 行为 上 看 ， 这 一 新 查询 语言 与 本 节 给 出 的 语言 有 一 些微 妙 的 差异 。 你 能 找 出 一 些 说 明 这 种 
差异 的 例子 吗 ? 

练习 4.79 ”在 4.1 节 实现 Lisp 求 值 器 时 ， 我们 曾经 看 到 如 何 通 过 使 用 内 部 环境 来 避免 过 程 
参数 之 间 的 名 字 冲 突 。 例 如 ， 在 求 值 下 面 表达 式 时 : 

(define (square x) 

(* x x)) 
(define (sum-of-squares x y) 
(+ (square x) (square y))) 

(sum-of-squares 3 4) 
在 square 的 x 与 sum-of-squares 的 x 之 间 根 本 不 会 产生 混乱 ， 因 为 对 各 个 过 程 体 的 求 值 都 
是 在 某 个 特别 构造 的 ， 包 含 了 局 部 变量 的 环境 里 进行 的 。 在 上 述 查询 系统 里 ， 我 们 为 避免 在 
过 程 应 用 中 的 名 字 冲 突 ， 采 用 的 是 另 一 种 方式 。 每 次 应 用 一 条 规则 之 前 ， 我 们 都 将 其 中 的 变 
量 重新 命名 ， 并 保证 这 些 名 字 都 是 唯一 的 。 要 想 在 Lisp 求 值 器 里 采用 这 一 策略 ， 也 可 以 不 用 
局 部 环境 ， 而 是 在 每 次 应 用 一 个 过 程 时 重新 命名 过 程 体 里 的 所 有 变量。 

请 为 查询 语言 实现 另 一 种 规则 应 用 方式 ， 在 其 中 使 用 局 部 环境 而 不 是 重新 命名 。 看 看 你 
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是 否 能 够 基于 自己 创建 的 环境 结构 ， 为 查询 语言 构造 起 一 些 机 构 ， 使 之 能 处 理 很 大 的 系统 ， 
例如 类 似 于 块 结构 过 程 的 规则 。 你 能 将 这 一 结构 中 的 一 些 东 西 与 在 一 个 上 下 文 里 做 推导 的 问 


Bl (Gln, “MRE TPA, ， 我 就 能 推导 出 4 和 B8。 ) 联系 起 来 ， 做 成 一 个 问题 求解 方法 吗 ? 
(这 个 问题 是 永 无 止境 的 ， 一 个 好 回答 也 许可 以 当 博 士 。) 


第 5 章 寄存 器 机 器 里 的 计算 


我 的 目的 是 起 说 明 ， 这 一 天 空 机 器 并 不 是 一 种 天 赐 造 物 或 者 生命 体 ， 它 只 不 过 
是 钟表 一 类 的 机 械 装 置 ( 而 那些 相信 和 钟表 有 灵 政 的 人 却 将 这 一 工作 说 成 是 其 创造 者 
的 荣光 )， 在 殷 大 程度 上 .这 里 多 种 多 样 的 运动 都 是 由 最 简单 的 物质 力量 产生 的 ， 就 
像 钟 表 里 所 有 活动 都 是 由 一 个 发 条 产生 的 一 样 。 


一 一 约翰 尼斯 . 开 普 勒 ( 给 Herwart von Hohenburg 的 信 ，1605 ) 


本 书 从 研究 计算 过 程 ， 并 用 Lisp 写 出 的 过 程 描 述 它 们 开始 。 为 了 解释 这 些 过 程 的 意义 ， 
我 们 提出 了 一 系列 的 求 值 模型 : 第 1 章 的 代 换 模型 ， 第 3 章 的 环境 模型 ， 以 及 第 4 章 的 元 循环 模 
型 。 我 们 特别 仔细 地 考察 这 个 元 循环 模型 ， 就 是 为 了 尽 可 能 地 揭 开 有 关 类 Lisp 语 言 的 程序 如 
何 解释 的 神秘 面纱 。 但 是 ， 即 使 是 这 个 元 循环 解释 器 ， 也 还 遗留 下 一 些 设 有 回答 的 问题 ， 因 
为 它 无 法 阐释 Lisp 系统 里 的 控制 机 制 。 举 例 来 说 ， 这 个 求 值 器 不 能 解释 子 表达 式 的 求 值 怎样 
返回 一 个 值 ， 以 便 送 给 使 用 这 个 值 的 表达 式 ， 该 求 值 器 也 无 法 解释 为 什么 有 些 递归 过 程 能 产 
生 和 迭代 型 的 计算 过 程 (也 就 是 说 ， 只 需要 常量 空间 就 可 以 求 值 ) ， 而 另 一 些 递 归 过 程 却 生 成 递 
归 型 的 计算 。 无 法 回答 这 些 问题 的 原因 在 于 ， 元 循环 求 值 器 本 身 也 是 一 个 Lisp 程 序 ， 并 因此 
继承 了 基础 Lisp 系 统 的 控制 结构 。 为 了 提供 有 关 Lisp 求 值 器 的 控制 结构 的 一 个 更 完整 的 描述 ， 
我 们 就 必须 转 到 一 个 比 Lisp 本 身 更 基本 的 层次 上 去 工作 。 

在 这 一 章 里 ， 我 们 将 基于 传统 计算 机 的 一 步 一 步 操作 ， 描 述 一 些 计 算 过 程 。 这 类 计算 机 
也 称 为 寄存 器 机 器 ， 它 们 能 顺序 地 执行 一 些 指令 ， 对 一 组 固定 称 为 寄存 器 的 存储 单元 的 内 容 
完成 各 种 操作 。 寄 存 器 机 器 的 一 条 典型 指令 将 一 种 基本 操作 作用 于 某 几 个 寄存 器 的 内 容 H 
将 作用 的 结果 赋 给 另 一 个 寄存 器 。 我 们 对 寄存 器 机 器 执行 的 计算 过 程 的 描述 ， 看 起 来 很 像 传 
统计 算 机 的 “机 器 语言 ”程序 。 当 然 ， 我 们 在 这 里 不 打算 关注 任何 特定 计算 机 的 机 器 语言 ， 
而 是 要 考察 若干 Lisp 过 程 ， 并 为 执行 每 个 过 程 设 计 一 部 特殊 的 寄存 器 机 器 。 这 样 ， 我 们 可 以 
把 自己 的 工作 看 成 是 硬件 结构 设计 师 ， 而 不 是 机 器 语言 的 计算 机 程序 员 。 在 这 些 寄存 器 机 器 
的 设计 中 ， 我 们 要 开发 出 一 些 机 制 ， 以 实现 各 种 重要 的 程序 设计 结构 ， 例 如 递归 。 我 们 还 要 
给 出 一 种 能 够 用 于 描述 寄存 器 机 器 设计 的 语言 。 在 5.2 节 里 ， 我 们 将 要 实现 一 个 Lisp 程 序 ， 它 
能 够 使 用 这 样 的 描述 去 模拟 我 们 所 设计 的 机 器 。 

我 们 的 寄存 器 机 器 的 大 部 分 基本 操作 都 非常 简单 。 例 如 ， 有 一 个 操作 从 两 个 寄存 器 里 取 
出 值 后 相 加 ， 产 生 结 果 后 存 人 第 三 个 寄存 器 。 这 样 一 个 操作 可 以 由 很 容易 描述 的 硬件 来 执行 。 
为 了 处 理 表 结 构 ， 我 们 当然 还 要 使 用 存储 器 操作 car 、cdr 和 cons ， 它 们 要 求 更 精细 的 存储 
分 配 机 制 。 我 们 将 在 5.3 节 里 研究 如 何 基于 更 基本 的 操作 实现 它们 。 

在 已 经 积累 了 许多 将 简单 过 程 构造 为 寄存 器 机 器 的 经 验 之 后 ， 我 们 将 在 5.4 节 里 设计 一 部 
机 器 ， 它 能 够 执行 由 4.1 节 里 的 元 循环 求 值 器 描述 的 算法 。 这 一 工作 将 填补 起 我 们 对 于 如 何 解 
释 Scheme 表达 式 的 理解 中 的 缺陷 ， 为 求 值 器 里 的 控制 机 制 提供 一 个 显 式 模型 。 在 5.5 节 里 ， 我 
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们 将 研究 一 个 简单 的 编译 器 ， 它 能 将 Scheme 程序 翻译 为 指令 的 序列 ， 这 种 序列 可 以 直接 通过 
上 述 的 求 值 器 寄存 器 机 器 的 寄存 器 和 操作 去 执行 。 


5.1 寄存 器 机 器 的 设计 


要 设计 一 部 寄存 器 机 器 ， 我 们 必须 设计 好 它 的 数据 通路 (寄存 器 和 操作 ) 和 控制 器， 该 
控制 器 实现 操作 的 顺序 执行 。 为 了 展示 一 部 简单 寄存 器 机 器 的 设计 过 程 ， 让 我 们 考察 欧 几 里 
得 算法 ， 它 用 于 计算 两 个 整数 的 最 大 公约 数 (GCD )。 正 如 我 们 在 1.2.5 节 已 经 看 到 过 的 ， 欧 几 
里 得 算法 可 以 通过 一 个 迭代 计算 过 程 执 行 ， 由 下 面 的 过 程 描述 : 

(define (gcd a b) 

(if (= b 0) 
(gcd b (remainder a b)))) 


如 果 一 部 机 器 要 执行 这 一 算法 ， 它 就 必须 维持 好 两 个 数 4 和 4b 的 变动 轨迹 ， 所 以 ， 让 我 们 
假定 这 两 个 数 被 保存 在 名 字 与 它们 相同 的 两 个 寄存 器 里 。 所 需要 的 基本 操作 包括 检查 寄存 器 b 
的 内 容 是 否 为 0， 计 算 寄存 器 a 的 内 容 除 以 寄存 器 b 的 内 容 得 到 的 余数 。 余 数 操作 是 一 个 复杂 的 
计算 过 程 ， 但 现在 暂时 假定 我 们 有 一 个 能 计算 余数 的 基本 设备 。 在 这 个 GCD 算 法 的 每 次 循环 
里 ， 寄 存 器 a 的 内 容 都 必须 用 寄存 器 b 的 内 容 取代 ， 而 b 的 内 容 必须 代 以 原来 a 的 内 容 除 以 原来 
b 的 内 容 的 余数 。 如 果 这 些 操 作 能 在 同一 个 时 间 完 成 ， 事 情 就 会 方便 得 多 。 但 是 在 我 们 的 寄存 
器 机 器 模型 里 ， 假 定 每 一 步 中 只 能 给 一 个 寄存 器 赋 新 值 。 为 了 完成 上 述 代 换 ， 我 们 的 机 器 里 
要 使 用 第 三 个 “临时 性 的 ”寄存 器 ， 称 为 上 t+。 (首先 将 余数 放 在 寄存 器 + ， 而 后 将 b 的 内 容 存 人 
a 中 ， 最 后 再 把 保存 在 + 里 的 余数 在 人 b 中 。) 

我 们 可 以 用 数据 通路 图 来 展示 这 个 机 器 中 所 需 的 寄存 器 和 各 种 操作 ， 如 图 5-1 所 示 。 在 这 
个 图 里 ， 寄 存 器 (a, bit) 用 和 矩形 表示 ， 给 某 个 寄存 器 赋值 的 一 种 方式 用 一 个 箭头 表示 ， 
箭头 的 后 面 画 着 一 个 5， 从 数 源 指向 被 赋值 的 寄存 器 。 我 们 可 以 将 这 里 的 X 看 作 一 个 按钮 E 
按压 它 的 时 候 ， 就 会 允许 这 个 值 从 数据 源 “ 流 向 ”指定 的 寄存 器 。 位 于 按钮 旁边 的 名 字 用 于 
表示 相应 的 按钮 。 这 些 名 字 可 以 任意 取 ， 因 此 最 好 选用 助 记 的 名 字 〈 例 如 ， 用 a<-b 表 示 按 压 
这 一 按钮 将 把 寄存 器 b 的 内 容 赋值 给 寄存 器 a )。 一 个 寄存 器 的 数据 源 可 以 是 另 一 个 寄存 器 (就 
像 赋 值 a<-b 的 情况 ) ， 或 者 是 一 个 操作 的 结果 (如 赋值 t<~r 的 情况 )， 或 者 是 一 个 常数 (一 
个 不 允许 改变 的 内 置 的 值 ， 在 数据 通路 图 上 用 一 个 三 角形 表示 ， 其 中 包含 着 这 个 常数 )。 

在 数据 通路 图 里 ， 从 常数 或 者 寄存 器 内 容 出 发 计算 出 一 个 值 的 操作 用 一 个 梯形 框 表 示 ， 
其 中 写 着 有 关 操 作 的 名 字 。 例 如 ， 在 图 5-1 里 用 rem 标 记 的 梯形 框 表示 一 -个 计算 余数 的 操作 ， 
它 针对 寄存 器 a 和 b 的 内 容 做 计算 ， 因 为 它们 都 连接 在 这 个 操作 框 上 。 有 箭头 (上面 没 有 按钮 
的 ) 从 操作 的 输入 寄存 器 和 常量 指向 操作 框 ， 还 有 箭头 从 操作 的 输出 连接 到 寄存 器 。 检 测 用 
一 个 圆圈 表示 ， 其 中 写 着 检测 的 名 字 。 例 如 ， 在 这 一 GCD 机 器 里 有 一 个 检测 操作 ， 它 检测 寄 
存 器 b 的 内 容 是 否 为 0 。 一 个 检测 同样 也 有 从 其 输入 寄存 器 和 常量 来 的 箭头 ， 但 没有 输出 箭头 ， 
检测 的 结果 值 将 由 控制 器 使 用 ， 并 不 用 于 数据 通路 。 从 整体 上 看 ， 数 据 通 路 图 表示 了 一 部 机 
器 里 所 需要 的 寄存 器 和 操作 ， 以 及 它们 之 间 的 数据 连接 。 如 果 我 们 将 箭头 看 作 连 线 ， 将 X 按 钮 
看 作 开关 ， 这 种 数据 通路 图 很 像 是 一 部 机 器 的 线路 图 就 像 这 部 机 器 可 以 用 电子 元 件 构造 出 
来 似 的 。 
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图 5-1 一 部 BCD 机 器 的 数据 通路 


为 了 使 这 一 数据 通路 习 能 够 实现 GCD 的 计算 ， 其 中 的 按钮 就 必须 按照 正确 的 顺序 按 动 。 
我 们 用 一 个 控制 器 图 描述 这 种 顺序 ， 如 图 5-2 所 示 。 控 制 器 图 里 的 元 素描 述 的 是 数据 通路 图 里 
的 部 件 应 该 如 何 操作 。 在 控制 器 图 里 的 和 矩形 表示 的 是 数据 通路 按钮 的 按压 动作 ， 共 中 的 箭头 
表示 从 一 个 步骤 到 下 一 步骤 的 顺序 。 在 这 一 图 形 里 的 菱形 表示 一 次 决策 ， 随 后 有 两 个 可 以 走 
Wik, AED 一 个 要 看 菱形 里 标明 的 数据 通路 所 检测 的 值 。 我 们 可 以 用 一 种 物理 类 比 来 
解释 这 个 控制 器 ， 将 这 个 图 看 作 一 个 迷宫 ， 其 中 有 一 个 在 里 面 滚 的 弹子 。 当 弹子 滚 到 一 个 盒 
T (矩形 ) 里 的 时 候 ， 就 会 按压 在 这 里 盒子 里 标明 的 数据 通路 按钮 ， 当 弹子 滚 到 一 个 决策 结 
点 时 (例如 这 里 对 b =0 的 检测 )， 它 究竟 从 哪 条 路 线 离 开 将 由 指定 检测 的 结果 确定 。 综 合 在 一 
起 ， 这 里 的 数据 通路 和 控制 器 完全 描述 了 一 部 计算 GCD 的 机 器 。 在 寄存 器 a 和 b 里 安放 了 适当 
的 值 之 后 ， 控 制 器 的 启动 (弹子 的 滚动 ) 从 标明 start 的 位 置 开始 。 当 控制 器 达到 done 了 时 ， 
就 会 看 到 在 寄存 器 a 里 的 GCD 值 。 


图 5-2 一 部 GCD 机 器 所 用 的 控制 器 


_36 得 交 茸 闻 器 机 器 里 的 坟 划 


练习 5.1 ”请 设计 一 部 寄存 器 机 器 ， 采 用 由 下 面 过 程 所 描述 的 迭代 算法 计算 阶乘 。 请 画 出 
这 一 机 器 的 数据 通路 图 和 控制 器 图 。 
(define (factorial n) 
(define (iter product counter) 
(if (> counter n) 
product 
(iter (* counter product) 
(+ counter 1)))) 
(iter 1 1)) 


5.1.1 一 种 描述 寄存 器 机 器 的 语言 


数据 通路 图 和 控制 器 图 很 适合 描述 像 GCD 这 样 的 简单 机 器 ， 但 如 果 用 于 描述 大 型 机 器 ， 
例如 Lisp 的 解释 器 ， 这 些 图 就 会 变 得 非常 笨拙 不 便 了 。 为 了 能 够 处 理 复杂 的 机 器 ， 我 们 将 创 
造 一 种 语言 ， 它 能 以 正文 的 形式 表现 出 由 数据 通路 图 和 控制 器 图 所 给 出 的 所 有 信息 。 我 们 将 
从 一 种 直接 模仿 这 些 图 示 的 记 法 形式 开始 。 

在 定义 一 部 机 器 的 数据 通路 图 时 ， 我 们 需要 描述 其 中 的 寄存 器 和 各 种 操作 。 为 了 描述 一 
个 寄存 器 ， 我 们 需要 给 它 取 一 个 名 字 ， 并 描述 那些 给 它 赋 值 的 按钮 。 这 里 又 需要 给 出 每 个 按 
钮 的 名 字 ， 并 描述 在 这 些 按钮 的 控制 之 下 进入 寄存 器 的 数据 源 (这 种 数据 源 是 一 个 寄存 器 ， 
或 一 个 常量 ， 或 一 个 操作 )。 为 了 描述 一 个 操作 ， 我 们 也 需要 给 它 一 个 名 字 ， 并 描述 好 它 的 输 
入 (寄存 器 或 者 常量 )。 

我 们 将 一 部 机 器 的 控制 器 定义 为 一 个 指令 序列 ， 另 外 再 加 上 一 些 标号 ， 它 们 标明 了 序列 
中 的 - 些 入 口 点 。 一 条 指令 可 以 是 下 面 几 种 东西 之 一 : 

.数据 通路 图 中 的 一 个 按钮 ， 按 压 它 将 使 一 个 值 被 赋 给 一 个 寄存 器 。( 这 对 应 于 控制 器 图 

里 的 一 个 矩形 框 。) 

"test 指 令 ， 执 行 相 应 的 检测 。 

. 有 条 件 地 转移 到 某 个 由 控制 器 标号 指明 的 位 置 的 分 支 指令 (branchig), w% FAT 

检测 的 结果 (检测 和 分 支 一 起 对 应 于 控制 器 图 里 的 姜 形 ) 。 如 果 检 测 为 假 ， 控 制 器 将 继 

续 序列 中 的 下 一 条 指令 ， 否 则 控制 器 就 将 继续 去 做 指定 标号 之 后 的 下 一 条 指令 。 

无条件 分 支 指令 (goto 指 令 ) 指明 继续 执行 的 控制 器 标号 。 

机 器 将 从 控制 器 指令 序列 的 开始 处 启动 ， 直 到 执行 达到 序列 末尾 时 停止 。 这 些 指令 总 按照 它 
们 列 出 的 顺序 执行 ， 除 非 遇 到 分 支 指令 改变 控制 流 。 

图 5-3 显 示 了 用 这 种 方式 描述 的 GCD 机 器 。 这 一 实例 只 是 为 了 说 明了 这 种 表示 方式 的 通用 
性 ， 因 为 GCD 机 器 是 一 个 非常 简单 的 实例 ， 其 中 的 每 个 寄存 器 只 有 一 个 按钮 ， 每 个 按钮 和 检 
测 都 只 在 控制 器 里 使 用 了 一 次 。 

不 幸 的 是 ， 这 种 描述 很 难 阅读 。 为 了 理解 控制 器 里 的 指令 ， 我 们 必须 时 常 去 参照 查看 按 
钮 的 名 字 和 操作 的 名 字 ， 为 了 理解 一 个 核 钮 究竟 做 了 什么 事情 ， 我 们 又 必须 参照 查看 操作 名 
字 的 定义 。 为 此 我 们 希望 改变 这 种 记 法 形式 ， 把 来 自 数据 通路 图 和 控制 器 图 的 描述 组 合 到 一 
起 ， 使 我 们 能 在 一 起 观看 它们 。 

为 了 得 到 这 圳 描述 形式 ， 我 们 将 用 按钮 和 操作 的 行为 定义 代替 为 它们 任意 取 的 名 字 。 也 
就 是 说 ， 不 采用 在 一 个 地 方 (在 控制 器 里 ) 说 “按压 按钮 L<-r”， 并 在 另 一 个 地 方 ( 在 数据 
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通路 图 里 ) 说 “按压 t<-r 将 把 操作 rem 的 值 赋 给 寄存 器 t” 以 及 “操作 rem 的 输入 是 寄存 器 a 
和 b 的 内 容 ” 的 方式 ， 以 后 将 (在 控制 器 里 ) 直接 说 :“ 按 压 那 个 按钮 ， 将 操作 rem 对 寄存 器 a 
和 b 的 内 容 算出 的 值 赋 给 寄存 器 t”。 与 此 类 似 , 不 是 (在 控制 器 里 ) 说 “执行 = 检测 ”并 另外 
(在 数据 通路 里 ) 说 “这 个 = 检测 是 对 寄存 器 b 的 内 容 和 常量 0 操作 ”， 而 将 说 “对 于 寄存 器 b 
的 内 容 和 常量 0 做 = 检测 。” 我 们 将 忽略 掉 数 据 通 路 描述 ， 只 留 下 控制 器 序列 。 这 样 ，GCD 机 
器 就 可 以 描述 为 下 面 的 形式 : 
{controller 
test-b 
(test (op =) (reg b) (const 0)) 
{branch (label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label test-b)) 
gcd-done) 


(data-paths 

(registers 
({nmame a) 
(buttons ((name a<-b) (source (register b))))) 
((mame b) 
(buttons ((name b<-t) (source (register t))))) 
((mame t) 
(buttons ((name t<~r) (source (operation rem)))))) 


(operations 

( (name rem) 

(inputs (register a) (register b))) 
((name =) 

(inputs (register b) (constant 0))))) 


(controller 

test-b ; label 
(test =) ; test 
{branch (label gcd-done)) ; conditional branch 
(t<-r) ; button push 


(a<-b) ; button push 


(b<-t) ; button push 
(goto (label test-b)) ; unconditional branch 
gcd-done) ; label 


图 5-3 一 部 BCD 机 器 的 规范 描述 


与 图 5-3 给 出 的 形式 相 比 ， 现 在 这 种 描述 形式 更 容易 阅读 ， 但 它 也 还 有 一 些 缺 点 : 

。 对 于 大 型 机 器 而 言 ， 这 种 描述 太 罗 嗪 ， 因 为 只 要 控制 器 指令 序列 中 多 次 提 到 某 个 数据 通 
路 元 素 ， 该 元 件 的 完整 描述 就 会 反复 地 出 现在 GCD 实 例 里 并 没有 出 现 这 一 问题 ， 因 为 
在 这 里 ， 每 个 操作 和 按钮 都 只 出 现 了 一 次 ) 。 进 一 步 说 ,重复 出 现 的 数据 通路 描述 将 使 
机 器 中 的 实际 数据 通路 结构 变 得 模糊 不 清 , 对 于 大 型 的 机 器 而 言 , 到 底 有 多 少 个 寄存 器 、 
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操作 和 按钮 ， 它 们 之 间 如 何 连接 的 情况 都 将 更 难看 清楚 。 
。 因 为 机 器 定义 中 的 控制 器 指令 看 起 来 像 Lisp 的 表达 式 ， 因 此 就 使 人 很 容易 忘记 它们 并 不 
是 任意 的 Lisp 表 达 式 ， 只 能 表示 合法 的 机 器 指令 。 举 例 来 说 ， 这 里 的 操作 只 能 直接 对 党 
量 和 寄存 器 的 内 容 去 做 ， 不 能 作用 于 其 他 操作 的 结果 。 
虽然 存在 这 些 缺 点 ， 在 这 一 章 里 我 们 还 是 准备 始终 采用 这 一 寄存 器 机 器 语言 ， 因 为 下 面 将 更 
加 关注 对 于 控制 器 的 理解 ， 而 较 少 注 意 数据 通路 里 的 元 素 和 连接 。 当 然 ， 我 们 还 是 应 该 记 住 ， 
对 于 设计 实际 机 器 而 言 ， 数 据 通路 的 设计 是 至 关 重要 的 。 

练习 5.2 ”请 用 这 里 的 寄存 器 机 器 语言 描述 练习 5.1 的 迭代 型 阶乘 机 器 。 

动作 

我 们 现在 要 修改 上 述 GCD 机 器 ， 以 便 能 把 想 求 GCD 的 数 输入 给 它 ， 并 使 它 能 把 结果 从 终 
端 打印 出 来 。 我 们 并 不 想 讨 论 如 何 使 机 器 能 够 读 人 和 打印 ， 而 是 假定 这 些 都 可 以 作为 基本 操 
作 使 用 (就 像 我 们 在 Scheme 里 需要 时 就 直接 用 read 和 display 一 样 ) “。 

read 就 像 我 们 已 经 在 用 的 那些 操作 ， 它 产生 出 一 个 可 以 保存 到 寄存 器 里 的 值 。 但 是 
read 并 不 从 任何 寄存 器 取得 输入 ， 它 所 产生 的 值 依 赖 于 某 些 情况 ， 而 这 些 情况 发 生 在 我 们 所 
设计 的 机 器 的 组 成 部 分 之 外 。 我 们 允许 机 器 的 一 些 操作 具有 这 种 行为 方式 ， 并 据 此 画 出 或 者 
说 明 read 的 使 用 ， 就 像 所 用 的 是 一 个 能 计算 出 值 的 操作 一 样 。 

在 另 一 方面 ,print 与 我 们 已 经 使 用 的 任何 操作 都 有 本 质 性 的 不 同 : 它 并 不 产生 任何 可 
以 存 和 寄存 器 的 输出 值 。 虽 然 print 会 产生 一 种 效果 ， 但 这 种 效果 却 不 是 我 们 所 设计 的 机 器 
的 一 部 分 。 下 面 把 这 类 操作 称 为 动作 。 在 数据 通路 图 上 ， 动 作 的 表示 形式 就 像 是 一 个 能 产生 
值 的 操作 一 用 一 个 梯形 ， 其 中 包含 着 这 个 动作 的 名 字 。 应 该 有 来 自 输入 (寄存 器 或 者 常量 ) 
的 箭头 指向 动作 框 ， 我 们 也 为 这 些 动 作 关 联 一 个 按钮 ， 按 压 这 个 按钮 将 导致 该 动作 的 出 现 。 
为 了 使 控制 器 可 以 按压 动作 的 按钮 ， 在 这 里 增加 一 种 新 的 称 为 perform 的 指令 。 这 样 ， 在 控 
制 器 序列 里 ， 打 印 寄 存 器 a 的 内 容 的 动作 用 下 面 指令 表示 : 

(perform (op print) (reg a)) 

图 5-4 显 示 的 是 新 的 GCD 机 器 的 数据 通路 和 控制 器 。 这 里 我 们 没有 让 这 一 机 器 打印 结果 后 
就 停止 ， 而 是 让 它 重 新 开始 ， 因 此 这 部 机 器 将 反复 地 读 入 一 对 数 ， 计 算 它 们 的 GCD 并 打印 出 
结果 。 这 种 结构 很 像 我 们 在 第 4 章 讲 的 解释 器 里 用 的 驱动 循环 。 


5.1.2 机 器 设计 的 抽象 


我 们 经 常 需要 定义 一 部 包括 着 某 些 “基本 ”操作 的 机 器 ， 这 些 操作 本 身 实 际 上 也 非常 复 
杂 。 举 例 说 ， 在 5.4 和 5.5 节 里 ， 我 们 将 要 把 Scheme 的 环境 操作 当 作 基 本 操作 。 这 种 抽象 非常 
有 价值 ， 因 为 它 使 我 们 能 忽略 机 器 中 一 些 部 分 的 细节 ， 将 注意 力 集中 到 有 关 设 计 的 其 他 方面 。 
当然 ， 我 们 能 够 将 大 量 复杂 事务 隐藏 起 来 ， 这 并 不 意味 着 该 机 器 的 设计 是 不 实际 的 。 因 为 我 
们 总 能 用 一 些 更 简单 的 基本 操作 来 取代 这 些 复杂 的 “基本 操作 ”。 

考虑 上 面 的 GCD 机 器 ， 在 这 一 机 器 里 有 一 条 指令 ， 它 计算 寄存 器 a 和 b 的 内 容 的 余数 ， 并 
将 结果 赋值 给 寄存 器 t。 如 果 我 们 希望 在 构造 这 一 GCD 机 器 时 不 用 这 种 余数 基本 操作 ， 那 么 就 


26 这 一 假设 掩盖 了 很 多 复杂 问题 。 通 常 在 Lisp 系 统 的 实现 里 ， 大 部 分 工作 就 是 完成 读 入 和 打 印 的 工作 。 
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必须 描述 清楚 如 何 利用 更 简单 的 操作 计算 出 余数 来 ， 例 如 采用 减法 。 我 们 确实 能 写 出 下 面 的 


能 够 找 出 余数 的 Scheme 过 程 : 
(define (remainder n d) 
(if (< n d) 
n 
(remainder (- n d) G))) 


{controller 


gcd-loop 


(assign .a (op read)) 
(assign b (op read)) 

test-b 
(test (op =) (reg b) (const 0)) 
(branch (label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label test-b)) 

gcd-done 
(perform (op print) (reg a)) 
(goto (label gcd-loop))) 


图 $-4 一 部 读 输入 并 打印 结果 的 GCD 机 器 
这 样 ， 我 们 就 可 以 用 一 个 减法 操作 和 一 个 比较 检测 ， 去 代替 GCD 机 器 的 数据 通路 里 的 余数 操 
作 。 图 5-5 显 示 了 这 一 细 化 后 的 机 器 的 数据 通路 和 控制 器 。 原 GCD 控 制 器 定义 里 的 指令 : 
(assign t (op rem) (reg a) (reg b)) - 
现在 被 一 个 包含 循环 的 指令 序列 取代 了 ， 如 图 5-6 所 示 。 
练习 5.3 ”请 设计 一 部 机 器 ， 采 用 牛顿 法 计算 平方 根 ， 如 1.1.7 节 所 描述 的 : 
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(define (sqrt x) 
(define (good-enough? guess) 
(< (abs (- (square guess) x)) 0.001)) 
(define (improve guess) 
(average guess (/ x guess))) 
(define (sqrt-iter guess) 
(if (good-enough? guess) 
guess 
(sqrt-iter (improve guess)))) 
(sqrt-iter 1.0)) 


start 


图 5-5 细 化 后 的 GCD 机 器 的 数据 通路 和 控制 器 


在 开始 时 ， 请 假设 900d-enough? 和 improve 都 是 可 用 的 基本 操作 。 而 局 
操作 展开 它们 。 请 描述 这 些 sqrt 机 器 的 设计 ， 画 出 它们 数据 通路 图 ， 并 用 寄存 器 机 器 


出 控制 器 的 定义 。 
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(controller 

test-b 
(test (op =) (reg b) (const 0)) 
(branch (label gcd-done) ) 
(assign t (reg a)) 

rem-loop 
(test (op <) (reg t) (reg b)) 
(branch (label rem-done) ) 
(assign t (op -) (reg t) (reg b)) 
(goto (label rem-loop) ) 

rem-done 
(assign a (reg b)) 


(assign b (reg t)) 
(goto (label test-b)) 
gcd-done) 


图 5-6 针对 图 5-5 中 GCD 机 器 的 控制 器 指令 序列 


5.1.3 FEF 


在 设计 一 部 执行 某 种 计算 的 机 器 时 ， 我 们 常常 更 希望 能 对 其 中 的 一 些 部 件 做 出 一 些 安 
排 ， 使 计算 中 某 些 不 同 的 部 分 可 以 共享 这 些 部 件 ， 而 不 是 重复 描述 这 些 部 件 。 现 在 考虑 一 
部 包含 着 两 个 GCD 计 算 的 机 器 ， 一 个 找 出 寄存 器 a 和 b 的 内 容 的 GCD ， 另 一 个 找 出 寄存 器 c 
和 d 的 内 容 的 GCD 。 在 开始 时 ， 我 们 可 以 假定 已 经 有 了 一 个 gcd 基 本 操作 ， 而 后 再 基于 更 基 
本 的 操作 展开 gcd 的 这 两 个 实例 。 图 5$-7 中 只 显示 了 结果 机 器 的 数据 通路 里 与 SCD 有 关 的 部 
分 ， 没 有 显示 它们 与 机 器 中 其 他 部 分 的 连接 。 这 个 图 里 还 显示 了 这 一 机 器 的 控制 器 序列 里 
的 相应 部 分 。 

在 这 一 机 器 里 有 两 个 余数 操作 框 和 两 个 检测 相等 的 框 。 如 果 重 复出 现 的 部 件 比较 复杂 ， 
就 像 这 里 的 余数 框 ， 这 样 做 就 不 是 构造 这 一 机 器 的 最 经 济 方式 了 。 我 们 希望 能 用 同一 个 部 件 
完成 这 两 个 GCD 计 算 ， 以 避免 数据 通路 部 件 的 重复 出 现 ， 条 件 是 这 样 做 时 不 会 影响 更 大 的 机 
器 计算 里 的 其 他 部 分 。 如 果 在 控制 器 到 达 gcd-2 的 时 候 ， 寄 存 器 a 和 b 里 的 值 已 经 不 再 需要 了 
(或 者 ， 如 果 为 了 保证 安全 ， 已 经 将 这 些 值 搬 到 了 其 他 寄存 器 ) ， 我 们 就 可 以 修改 这 部 机 器 ， 
使 它 在 计算 第 二 个 GCD 时 也 使 用 寄存 器 a 和 b ， 而 不 用 寄存 器 c 和 d， 就 像 在 第 一 次 计算 GCD 时 
那样 。 如 果 这 样 做 ， 我 们 就 会 得 到 如 图 5-8 所 示 的 控制 器 序列 。 
这样 我 们 就 除去 了 重复 的 数据 通路 部 件 (因此 数据 通路 又 变 回 到 图 5-1 的 样子 )， 但 是 在 
控制 器 里 还 是 有 两 个 有 关 GCD 的 序列 ， 它 们 之 间 的 差异 仅仅 在 于 人 口 标号 不 同 。 如 果 能 将 这 
样 的 两 个 序列 代 换 为 到 同一 个 序列 (一 个 gcd 子 程序 ) 的 不 同 分 支 ， 并 能 在 该 序列 最 后 重新 
通过 分 支 ， 回 到 主流 指令 序列 中 正确 的 位 置 ， 那 当然 就 更 好 了 。 我 们 可 以 通过 如 下 方式 完成 
这 一 工作 : 在 分 支 进入 gcd 之 前 ,首先 在 特定 的 寄存 器 continue 里 存 入 一 个 区 分 值 ( 例 如 0 
或 者 1)， 在 9cd 子 程序 结束 时 ,让 计算 根据 寄存 器 continue 里 的 值 决定 是 回 到 after- 
gcd-1 还 是 after-gcd-2。 图 5-9 显 示 了 这 样 做 之 后 的 控制 器 序列 里 的 相关 部 分 ， 其 中 只 
含 了 gcd 指 令 的 一 个 副本 。 
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(test (op =) (reg b) (const 0)) 
(branch (label after-gcd-1)) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label gcd-1)) 

after-gcd-1 


gcd-2 
(test (op =) (reg d) (const 0)) 
(branch (label after-gcd-2) ) 
(assign s (op rem) (reg c) (reg d)) 
(assign c (reg d)) 
(assign d (reg s)) 
(goto (label gcd-2)) 
after-gcd-2 


图 5-7 一 部 完成 两 次 GCD 计 算 的 机 器 的 数据 通路 和 控制 器 的 一 部 分 


gcd-1 
(test (op =) (reg b) (const 0)) 
(branch (label after-gcd-1)) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label gcd-1)) 

after-gced-1 


ged-2 
(test (op =) (reg b) (const 0)) 
(branch (label after-gcd-2)) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label gcd-2)) 

after-gcd-2 


图 5-8 在 一 部 机 器 中 为 两 个 不 同 GCD 计 算 使 用 了 同样 的 
数据 通路 部 件 ， 这 里 是 它 的 控制 器 序列 的 一 部 分 
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gcd 
(test (op =) (reg b) (const 0)) 
(branch (label gcd-done)) 
(assign t (op rem) (reg a) (reg b)) 


(assign a (reg b)) 


(assign b (reg t)) 
{goto (label gcd)) 
gcd-done 
(test (op =) (reg continue) (const 0)) 
(branch (label after-gcd-1)) 
(goto (label after-gcd-2)) 


;; Before branching to gcd from the first place where 
;; it is needed, we place 0 in the continue register 
{assign continue (const 0)) 
(goto (label gcd)) 
after-gcd-1l 


|; Before the second use of gcd, we place 1 in the continue register 
(assign continue (const 1)) 
(goto (label gcd)) 

after-ged-2 


图 5-9 采用 一 个 continue 寄 存 器 ， 避 免 像 图 3-8 那 样 重复 的 控制 器 序列 


在 处 理 很 小 的 问题 时 ， 这 是 一 种 合理 的 方法 ， 但 如 果 在 控制 器 序列 里 出 现 了 许多 GCD 计 
算 的 实例 ， 事 情 就 会 变 得 很 难 弄 了 。 为 了 在 gcd 子 程序 完成 之 后 确定 转 到 哪里 继续 执行 ， 我 
们 就 需要 为 在 控制 器 里 所 有 使 用 gcd 的 地 方 加 上 做 检测 的 数据 通路 和 分 支 指令 。 实 现 子 程序 
的 另 一 种 更 有 力 的 方法 ， 是 在 寄存 器 continue 里 保存 控制 器 序列 里 一 个 人 口 点 的 标号 ， 用 
这 个 标号 指明 子 程序 结束 时 执行 应 从 哪里 继续 下 去 。 要 实现 这 一 策略 ， 就 需要 在 寄存 器 机 器 
里 的 数据 通路 与 控制 器 之 间 建 立 一 类 新 的 联系 : 这 里 必须 有 一 种 方式 ， 能 用 于 控制 器 序列 里 
一 个 标号 的 值 赋 给 一 个 寄存 器 ， 而 所 用 的 赋值 方式 又 必须 使 这 种 值 可 以 从 寄存 器 里 提取 出 来 ， 
用 于 确定 继续 执行 的 指定 人口 点 。 

为 了 实现 这 种 能 力 ， 我 们 要 扩充 寄存 器 机 器 里 assign 指 令 的 能 力 ， 允许 将 控制 器 序列 里 
的 标号 作为 值 (作为 一 种 特殊 常量 ) 赋 给 一 个 寄存 器 。 还 要 扩充 9oto 指 令 的 能 力 ， 允许 执行 
进程 不 仅 可 以 从 一 个 常量 标号 描述 的 入 口 点 继续 ， 还 可 以 从 一 个 寄存 器 的 内 容 所 描述 的 入 口 
点 继续 下 去 。 利 用 这 些 新 的 结构 ， 我 们 就 可 以 在 9cd 子 程序 的 结束 处 放 一 条 分 支 指令 ， 要求 
转向 保存 在 continue 寄 存 器 里 的 那个 位 置 。 这 样 做 出 的 控制 器 序列 如 图 5-10 所 示 。 

如 果 一 部 机 器 里 有 多 个 子 程序 ， 那 么 可 以 采用 多 个 继续 寄存 器 (例如 ,gcd-continue， 
factorial-continue)， 也 可 以 让 所 有 子 程序 共享 同一 个 continue 寄 存 器 。 共 享 一 个 寄 
存 器 当然 更 经 济 一 些 ， 但 是 在 出 现 一 个 子 程序 (subl) 调用 另 一 个 子 程序 (sub2) 的 情况 
下 ， 我 们 就 必须 小 心 了 。 除 非 sub1 在 设置 continue 寄 存 器 以 便 准 备 去 调用 sub2 之 前 ， 事 
先 保存 了 continue 寄 存 器 的 内 容 ， 否 则 在 sub1l 本 身 结束 时 就 不 知道 该 往 哪里 去 了 。 下 一 市 
将 开发 一 种 用 于 处 理 递 归 的 机 制 ， 它 也 同样 为 解决 子 程序 修 套 调用 提供 了 一 种 更 好 的 办 法 。 
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ged 
(test (op =) (reg b) (const 0)) 
(branch (label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label gcd)) 
gcd-done 
{goto (reg continue)) 


;; Before calling gcd, we assign to continue 

;; the label to which gcd should return. 
(assign continue (label after-gcd-1)) 
(goto (label gcd)) 

after-ged-1 


;; Here is the second call to gcd, with a different continuation. 
(assign continue (label after~-gcd-2)) 
(goto (label gcd)) 

after-gcd-2 


图 5-10 为 continue 寄 存 器 做 标号 赋值 ， 可 以 简化 并 推广 图 5-9 中 展示 的 策略 


5.1.4 采用 堆栈 实现 递归 
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算 过 程 了 ， 其 中 用 一 个 寄存 器 对 应 于 计算 过 程 中 的 一 个 状态 变量 。 这 种 机 器 反复 地 执行 一 个 
控制 器 循环 ， 并 不 断 改变 各 个 寄存 器 的 内 容 ， 直 至 满足 了 某 些 结束 条 件 。 在 控制 器 序列 中 的 
每 一 点 ， 机 器 的 状态 (对 应 于 迭代 计算 过 程 的 状态 ) 完全 由 这 些 寄存 器 的 内 容 (对 应 于 状态 
变量 的 值 ) 所 确定 。 
然而 ， 要 想 实现 递归 计算 过 程 ， 我 们 还 需要 增加 新 的 机 制 。 考 虑 下 面 计 算 阶 乘 的 递归 方 
法 ， 我 们 在 1.2.1 节 第 一 次 看 到 它 : 
(define (factorial n) 
(if (= n 1) 
1 
(* (factorial (- n 1))-n))) 


正如 从 这 一 过 程 中 可 以 看 到 的 ， 在 计算 m! 时 将 需要 计算 (n 一 1) !。 用 下 面 过 程 描述 的 另 一 部 


GCD 机 器 
(define (gcd a b) 
(if (= b 0) 


a 
(gcd b (remainder a b)))) 


也 类 似 地 需要 去 计算 另 一 个 GCD 。 但 是 ， 在 这 个 gcd 过 程 与 上 面 的 factorial 之 间 有 一 点 重 
要 不 同 ， 这 个 gcd 过 程 将 原来 的 计算 简化 为 一 个 新 的 GCD 计 算 ， 而 factorial 则 要 求 计 算出 
另 一 个 阶乘 作为 一 个 子 问 题 。 在 这 个 GCD 过 程 里 ， 对 于 新 的 GCD 计 算 的 回答 也 就 是 原来 问题 
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的 回答 。 为 了 计算 下 一 个 GCD ， 我 们 只 需 简 单 地 将 新 的 参数 放 进 GCD 机 器 的 输入 寄存 器 里 ， 
并 通过 执行 同一 个 控制 器 序列 ， 重 新 使 用 这 个 机 器 的 数据 通路 。 在 机 器 完成 了 最 后 一 个 GCD 
问题 的 求解 时 ， 整 个 计算 也 就 完成 了 。 

但 是 ， 在 阶乘 〈 以 及 其 他 任何 递归 计算 过 程 ) 的 情形 里 ， 对 于 新 的 阶乘 子 问题 的 回答 并 
不 是 对 于 原 问 题 的 回答 。 由 (n 一 1)! 得 到 的 值 还 必须 乘 以 4+， 才能 得 到 最 后 的 结果 。 如 果 我 们 
试图 去 模仿 GCD 设 计 ， 通 过 减少 寄存 器 n 的 值 并 重新 运行 阶乘 机 器 的 方式 求解 这 里 的 阶乘 子 问 
题 ， 我 们 就 会 形 失 n 原来 的 值 ， 也 就 无 法 再 用 它 去 乘 计 算 结 果 了 。 这 样 我 们 就 需要 第 二 部 阶乘 
机 器 去 完成 子 问题 的 工作 。 而 这 第 二 个 子 问 题 本 身 又 有 一 个 阶乘 子 问题 ， 它 又 要 求 第 三 部 阶 
乘机 器 ， 并 继续 这 样 下 去 。 因 为 每 部 阶乘 机 器 里 都 需要 包含 另 一 部 阶乘 机 器 ， 完 整 的 机 器 中 
将 要 包含 着 无 穷 俱 套 的 类 似 机 器 ， 这 是 不 可 能 从 固定 的 有 限 个 部 件 构造 起 来 的 。 

然而 ， 我 们 还 是 可 能 将 这 一 阶乘 计算 过 程 实现 为 一 部 寄存 器 机 器 ， 只 要 我 们 能 做 出 一 种 
安排 ， 设 法 使 每 个 供 套 的 机 器 实例 都 使 用 同样 的 一 组 部 件 。 也 就 是 说 ， 计 算 必 的 机 器 应 该 用 
同样 部 件 去 完成 计算 针对 (n 一 1)! 的 子 问题 ， 去 计算 针对 (n 一 2)! 的 子 问题 ， 并 如 此 下 去 。 这 是 
可 能 的 ， 因 为 ， 虽 然 阶 乘 计 算 过 程 在 执行 中 要 求 同 一 机 器 的 无 穷 多 个 副本 ， 但 是 在 任何 给 
时 刻 ， 它 所 实际 使 用 的 只 是 这 些 副 本 中 的 一 个 。 当 这 部 机 器 遇 到 一 个 递归 子 问题 时 ， 它 就 可 
以 挂 起 针对 原 问题 的 工作 ， 重 新 使 用 同样 物理 部 件 去 处 理 这 个 子 问题 ， 完 成 后 再 继续 进行 前 
面 挂 起 的 计算 。 

在 处 理子 问题 时 ， 寄 存 器 的 内 容 与 它们 在 原 问 题 里 的 情况 不 同 (在 目前 情况 下 ， 寄 存 器 n 
的 值 减 小 了 )。 为 了 能 够 继续 进行 前 面 挂 起 的 计算 ， 机 器 必须 把 解决 了 子 问 题 之 后 还 需要 的 那 
些 寄 存 器 的 内 容 保存 起 来 ， 以 便 后 来 能 恢复 它们 ， 以 继续 进行 前 面 挂 起 的 计算 。 对 于 阶乘 问 
题 ， 我 们 应 读 保 存 起 n 的 原 值 ， 在 完成 对 减 小 后 n 寄 存 器 的 阶乘 计算 之 后 再 恢复 它 ** 。 

由 于 对 递归 调用 的 媒 套 深度 并 没有 一 个 事先 知道 的 界限 ， 我 们 可 能 需要 保存 任意 个 的 寄 
存 器 值 。 这 些 值 需要 以 与 它们 的 保存 顺序 相反 的 顺序 存储 起 来 ， 因 为 在 嵌 套 的 递归 中 ， 最 后 
进入 的 那个 子 问题 将 首先 结束 。 这 就 要 求 我 们 使 用 一 个 堆栈 ， 或 称 为 “后 进 先 出 ”数据 结构 ， 
用 它 保存 寄存 器 的 值 。 我 们 可 以 扩充 寄存 器 机 器 语言 ， 增 加 两 种 指令 ， 将 一 个 堆栈 包括 进来 : 
将 值 放 入 堆栈 用 一 个 save 指 令 ， 从 堆栈 中 恢复 一 个 值 用 restore 指 令 。 在 将 一 系列 值 save 
到 堆栈 里 之 后 ， 一 系列 的 restore 将 以 相反 的 顺序 提取 出 这 些 值 ”。 

有 了 堆栈 的 帮助 之 后 ， 我 们 就 可 以 重复 使 用 阶乘 机 器 的 数据 通路 的 同一 个 副本 ， 完 成 所 
有 的 阶乘 子 问题 了 。 在 重复 使 用 对 这 个 数据 通路 进行 操作 的 控制 器 序列 时 ， 也 存在 类 似 的 设 
计 问 题 。 为 了 重复 地 执行 阶乘 计算 ， 这 个 控制 器 就 不 能 像 迭 代 计 算 过 程 那样 简单 地 转 回 到 开 
始 的 地 方 ， 因 为 在 解决 了 (n -1T)! 子 问题 之 后 ， 这 部 机 器 还 必须 将 结果 乘 以 上。 控制 器 需要 挂 
起 它 对 n! 的 计算 ， 去 解决 (n 一 1)! 子 问题 ， 而 后 再 继续 它 对 nn! 的 计算 。 对 阶乘 计算 的 这 种 观点 
提示 我 们 采用 5.1.3 节 里 描述 的 子 程序 机 制 ， 在 那里 使 用 了 一 个 continue 寄 存 器 ， 以 便 在 转 
到 解决 子 问题 的 序列 部 分 之 后 ， 还 能 回 到 它 脱 离 主 问 题 的 那个 位 置 继续 下 去 。 我 们 同样 刹 以 
让 阶乘 子 程序 把 返回 的 和 人口 点 保存 到 continue 寄 存 器 里 。 围 绕 着 每 个 子 程序 调用 ， 我 们 都 


?28 有 人 可 能 会 说 ， 在 这 里 并 不 需要 保存 n 的 原 值 ， 因 为 再 减 小 它 并 解决 了 子 问题 之 后 ， 我 们 可 以 再 增 大 它 去 恢 
复 到 原来 的 值 。 虽 然 这 种 策略 对 于 阶乘 确实 可 行 ， 但 却 不 是 一 般 可 用 的 ， 因 为 一 般 而 言 ， 一 个 寄存 器 原来 的 
值 不 一 定 能 从 它 的 新 值 计算 出 来 。 

?33 在 5.3 节 里 ， 我 们 将 看 到 如 何 基于 更 基本 的 操作 实现 堆栈 。 


_356 和 半 交 字 帮 器 机 器 里 的 计划 


需要 做 寄存 器 continue 的 保存 和 恢复 ， 就 像 对 寄存 器 n 所 做 的 那样 ， 因 为 每 一 “ 层 ” 阶 乘 计 
算 都 将 使 用 同一 个 continue 寄 存 器 。 这 样 ， 阶 乘 子 程序 在 调用 自己 以 开始 解决 一 个 子 问 题 
之 前 ， 必 须 将 一 个 新 值 存 人 continue， 但 它 后 来 还 会 需要 那个 老 的 值 ， 以 便 能 返回 原来 调 
用 它 以 解决 这 个 子 问 题 的 位 置 。 

图 $-11 显 示 了 实现 这 一 递归 的 factorial 过 程 的 机 器 的 数据 通路 和 控制 器 。 在 这 一 机 器 
里 ， 有 一 个 堆栈 和 三 个 分 别称 为 n 、val 和 continue 的 寄存 器 。 为 了 简化 数据 通路 图 ， 我 们 


controller 


(controller 
(assign continue (label fact-done)) ; Set up final return address 
fact-loop 
(test (op =) (reg n) (const 1)) 
(branch (Label base-case) ) 
;; Set up for the recursive call by saving n and continue. 
;; Set up continue so that the computation will continue 
s;atafter-fact when the subroutine returns. 
(save continue) 
(save n) 
(assign n (op -) (reg n) (const 1)) 
(assign continue (label after-fact)) 
(goto (label fact-loop)) 
after-fact 
(restore n) 
(restore continue) 


(assign val (op *) (reg n) (reg val)) ; val now contains n(n - 1)! 

(goto (reg continue) ) ` ; return to caller 
base-case 

(assign val (const 1)) ; base case: 1!=1 

(goto (reg continue) ) ; return to caller 


fact-done) 


图 5-11 一 部 递归 的 阶乘 机 器 
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并 没有 给 寄存 器 赋值 按钮 命名 ， 而 是 只 给 堆栈 操作 按钮 命 了 名 (sc 和 sn 保存 寄存 器 内 容 , rc 
和 rn 恢复 寄存 器 内 容 )。 为 了 操作 这 部 机 器 ， 我 们 在 寄存 器 n 里 存 和 人 希望 计算 阶乘 值 的 数 ， 而 
后 启动 机 器 。 当 机 器 到 达 fact-done 时 计算 结束 ， 在 寄存 器 val 里 将 能 找到 对 应 回答 。 在 相 
应 的 控制 器 序列 里 ， 每 次 递归 调用 之 前 都 保存 起 n 和 continue ， 从 调用 返回 时 恢复 它们 。 完 
成 从 一 个 调用 返回 的 方式 就 是 转 到 保存 在 continue 里 的 位 置 。 在 机 器 启动 时 对 continue 
做 初始 化 ， 使 得 机 器 在 最 后 能 返回 到 fact-done。val 寄 存 器 里 保存 着 阶乘 计算 的 结果 ， 在 
递归 调用 时 并 不 保存 它 ， 因 为 val 原 来 的 内 容 在 子 程序 返回 后 已 经 没有 用 了 。 此 时 只 需要 它 
的 新 值 ， 是 由 这 一 次 子 计 算 产生 出 来 的 。 

虽然 从 原理 上 说 阶乘 计算 需要 一 部 无 穷 机 器 ， 图 $-11 所 示 的 机 器 实际 上 却 是 有 穷 的 ， 除 
了 其 中 的 堆栈 之 外 ， 因 为 它 是 潜在 无 界 的 。 当 然 ， 堆 栈 的 任何 特定 物理 实现 都 具有 有 穷 的 大 
小 ， 这 也 将 限制 这 一 机 器 所 能 处 理 的 递归 调用 深度 。 阶 乘 的 这 一 具体 实现 展示 了 实现 递归 算 
法 的 通用 策略 ， 采用 一 部 常规 的 寄存 器 机 器 ， 再 增加 一 个 堆栈 。 在 遇 到 递归 子 程序 时 ， 只 
某 些 寄存 器 的 值 在 子 问题 求解 完成 后 还 需要 用 ， 就 把 它们 的 当前 值 存 入 堆栈。 而 后 去 求解 弟 
归 的 子 问题 ， 再 恢复 保存 起 来 的 寄存 器 值 ， 并 继续 执行 原来 的 主 程序 。continue 寄 存 器 的 
值 必须 保存 ， 其 他 寄存 器 的 值 是 否 需要 保存 ， 就 要 看 特定 机 器 的 情况 ， 因 为 并 不 是 所 有 的 递 
归 计 算 都 需要 各 个 寄存 器 原来 的 值 ， 即 使 这 些 值 在 求解 子 问题 的 过 程 中 修改 了 ( 见 练习 5.4)。 


双重 递归 
现在 让 我 们 来 考察 一 个 更 复杂 的 递归 计算 过 程 ， 有 关 斐 波 那 契 数 的 树 型 递归 计算 。 这 是 
在 1.2.2 节 介绍 过 的 : 
(define (fib n) 
(if (< n 2) 
(+ (fib (- n 1)) (fib (- n 2))))) 


与 阶乘 的 情况 类 似 ， 我 们 也 可 以 把 递归 的 辈 波 那 契 计 算 实 现 为 一 部 寄存 器 机 器 ， 其 中 采用 寄 
存 器 n、val 和 continue。 这 部 机 器 比 计 算 阶 乘 的 机 器 更 复杂 一 些 ， 因 为 在 这 里 的 控制 序列 
中 有 两 个 地 方 需要 执行 递归 调用 一 一 一 个 计算 Fib(n 一 1) ， 另 一 个 计算 Fibln 一 2)。 为 了 安排 好 
其 中 的 各 个 递归 调用 ， 我 们 需要 保存 起 那些 后 来 需要 使 用 的 寄存 器 值 ， 而 后 将 0 寄存 器 设置 为 
需要 去 递归 计算 Fib 的 数值 (一 1 或 -2)， 并 将 continue 赋 值 为 计算 返回 时 应 该 转向 的 主 
序列 入 口 点 (分 别 为 afterfib-n-1 或 者 afterfib-n-2)， 而 后 转向 fib-loop。 在 从 递 
归 调 用 返回 时 答案 就 在 val 里 。 图 5-12 显 示 了 这 一 机 器 的 控制 器 序列 。 
练习 5.4 ”请 描述 实现 下 面 各 个 过 程 的 寄存 器 机 器 。 对 于 这 里 的 每 部 机 器 ， 请 写 出 它 的 控 
制 器 指令 序列 ， 并 画 出 相应 的 数据 通路 图 形 。 
a) 递归 的 指数 计算 : 
(define (expt b n) 
(if (= n 0) 
1 
(* b (expt b (- n 1))))) 
b) 迭代 的 指数 计算 : 


(define (expt b n) 


.(define (expt-iter counter product) 
(if (= counter 0) 
product 
(expt-iter (- counter 1) (* b product)))) 
(expt-iter n 1)) 


(controller 

(assign continue (label fib-done) ) 
fib-loop 

(test (op <) (reg n} (const 2)) 

(branch (label immediate-answer) ) 

3; Set up to compute Fib(n —1) 

(save continue) 

(assign continue (label afterfib-n-1)) 


(save n) ; save old value of n 

(assign n (op -) (reg n) (const 1)); clobbernton—1 

(goto (label fib-loop)) ; perform recursive call 
afterfib-n-1l ; upon return, val contains Fib(n — 1) 


(restore n) 

(restore continue) 

;; set up to compute Fib(n 一 2) 

(assign n (op -) (reg n) (const 2)) 
(save continue} 

(assign continue (label afterfib-n-2)) 


(save val) : save Fib(n —1) 
(goto (label fib-loop)) 
afterfib-n-2 ; upon return, val contains Fib(n —2) 
(assign n (reg val)) ; nnow contains Fib(n —2) 
(restore val) ; val now contains Fib(n —1) 
{restore continue) 
(assign val ; Fib(a —1) + Fib(n —2) 
(op +) (reg val) (reg n)) 
(goto (reg continue) ) ; return to caller, answer is in val 
immediate-answer 
(assign val (reg n)) ; base case: Fib(n)=n 
(goto (reg continue) ) 
fib-done) 


图 5-12 一 部 计算 斐 波 那 契 数 的 机 器 的 控制 器 


练习 5.5 ”请 用 手工 模拟 阶乘 和 斐 波 那 契 机 器 的 计算 过 程 ， 用 某 个 非 平 凡 的 输入 《需要 执 
行 至 少 一 次 递归 调用 )。 说 明 执行 中 每 个 关键 点 上 堆栈 的 内 容 。 

练习 5.6 Ben Bitdiddle 注 意 到 ， 在 斐 波 那 契 机 器 的 控制 序列 里 有 一 个 额外 的 save 和 一 个 
额外 的 restore， 可 以 将 它们 删 去 ， 得 到 一 个 更 快速 的 机 器 。 这 些 指令 在 哪里 ? 


5.1 .5 指令 总 结 
在 我 们 的 寄存 器 机 器 语言 里 ， 一 条 控制 器 指令 具有 下 述 之 一 的 形式 ， 其 中 的 每 个 <input 六 或 


者 是 一 个 (reg <register-name> )， 或 者 是 一 个 (const <constant-value> ) , 
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下 面 指令 是 在 5.1.1 节 介绍 的 : 

(assign <register-name> (上 eg <register-name>) ) 

(assign <register-name> (const <constant-value>) ) 

(assign <register-name> (op <operation-name>) <input,> ... <input,>) 

{perform (op <operation-name>) <input\> ... <input,>) 

(test (op <operation-name>) <input\> ... <input,>) 

(branch (label <label-name>) ) 

(goto (label <label-name>) } 

采用 寄存 器 保存 标号 的 指令 是 在 5.1.3 节 讨论 的 : 

(assign <register-name> (label <label-name>) ) 

(goto (reg <register-name>) ) 

使 用 堆栈 的 指令 在 5.1.4 节 介绍 ; 

(save <register-name>) 

(restore <register-name> ) 

我 们 至 今 已 经 见 过 的 <constanf-yalue> 都 是 数值 ， 后 面 还 会 用 到 字符 串 、 符 号 和 表 。 例 如 ， 
(const "abc") 就 是 字符 申 "abc"。(const abc) 是 符号 abc，(const (a b c)) 是 
# (a bc), 而 (const ()) 就 是 空 


5.2 一 个 寄存 器 机 器 模拟 器 


为 了 取得 对 于 寄存 器 机 器 设计 的 更 好 理解 ,我 们 必须 测试 自己 设计 出 的 机 器 ， 看 看 它 能 
否 按 照 预 期 的 方式 执行 。 测 试 一 个 设计 的 一 种 方法 是 手工 模拟 控制 器 的 操作 ， 如 练习 5.5 中 所 
说 的 那样 。 但 是 ， 如 果 这 一 机 器 不 是 特别 简单 ， 手 工 做 就 会 特别 元 长 而 枯燥 。 在 这 一 节 里 ， 
我 们 要 为 用 寄存 器 机 器 语言 描述 的 机 器 构造 一 个 模拟 器 。 这 一 模拟 器 是 一 个 Scheme 程序 ， 其 
中 包括 四 个 界面 过 程 。 第 一 个 过 程 根据 一 个 寄存 器 机 器 的 描述 ， 为 这 部 机 器 构造 一 个 模型 
(一 个 数据 结构 ， 其 中 的 各 个 部 分 对 应 于 被 模拟 机 器 的 各 个 组 成 部 分 ) ， 另 外 三 个 过 程 使 我 们 
可 以 通过 操作 这 个 模型 ， 去 模拟 相应 的 机 器 : 

(make-machine <register-names> <operations> <controller>) 
构造 并 返回 机 器 的 模型 ， 其 中 包含 了 给 定 的 寄存 器 、 操 作 和 控制 器 。 

(set-register-contents! <machine-model> <register-name> <value>) 

将 一 个 值 在 和 给 定 机 器 的 一 个 被 模拟 的 寄存 器 里 。 

(get-register-contents <machine-model> <register-name> } 
返回 给 定 机 器 里 一 个 被 模拟 的 寄存 器 的 内 容 。 

(start <machine-model>) | 
模拟 给 定 机 器 的 执行 ， 从 相应 控制 器 序列 的 开始 处 启动 ， 直 至 到 达 这 一 序列 的 结束 时 停止 。 

作为 说 明 这 些 过 程 如 何 使 用 的 实例 ， 我 们 可 以 定义 下 面 的 9cd-machine， 为 5.1.1 节 的 
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GCD 机 器 定义 一 个 模型 ; 


(define gcd-machine 
(make-machine 


"(a b t) 
(list (list ’rem remainder) (list = =)) 
*(test-b 

(test (op =) (reg b) (const 0)) 


(branch (label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label test-b)) 
gcd-done) )) 


make-machine 的 第 一 个 参数 是 一 个 寄存 器 名 字 的 表 ， 下 一 参数 是 一 个 表格 (两 个 元 素 的 表 
的 表 ) ， 其 中 的 每 个 对 偶 包 括 一 个 操作 的 名 字 和 实现 这 一 操作 ( 即 ， 对 于 给 定 的 同样 输入 值 ， 
能 够 产生 出 同样 的 输出 值 ) 的 一 个 Scheme 过 程 。 最 后 一 个 参数 描述 了 相应 控制 器 ， 用 一 个 标 
号 和 机 器 指令 的 表 表 示 ， 就 像 在 5.1 节 里 那样 。 l 

为 了 用 这 一 机 器 去 计算 GCD， 我 们 需要 设置 输入 寄存 器 ， 启 动 这 部 机 器 ， 在 模拟 结束 时 
检查 计算 结果 : 

(set-register-contents! gcd-machine "a 206) 

done 

(set-register-contents! gcd-machine "b 40) 

done 


(start gcd-machine) 
done 


(get-register-contents gcd-machine a) 
2 


这 个 计算 的 运行 速度 比 直接 用 Scheme 写 出 的 gcd 过 程 慢 得 多 ， 因 为 我 们 是 在 模拟 低级 的 机 器 
指令 ， 例 如 assign ， 而 使 用 的 却 是 比 它 高 级 得 多 的 操作 。 
练习 5.7 ”用 这 个 模拟 器 检查 你 在 练习 5.4 中 设计 的 机 器 。 


5.2.1 机 器 模型 


由 make-machine 生 成 的 机 器 模型 被 表示 为 一 个 包含 局 部 变量 的 过 程 ， 其 中 采用 了 第 3 
章 里 开发 的 消息 传递 技术 。 为 了 实现 这 一 模型 ，make-machine 在 开始 时 调用 过 程 make-~ 
new-machine ,构造 出 所 有 寄存 器 机 器 的 机 器 模型 里 都 需要 一 些 公共 部 分 。 由 make-new- 
machine 构 造 出 的 基本 机 器 模型 ， 从 本 质 上 说 就 是 一 个 容器 ， 其 中 包含 了 若干 个 寄存 器 和 一 
个 堆栈 ， 还 有 一 个 执行 机 制 ， 它 一 条 一 条 地 处 理 控制 器 指令 。 

在 此 之 后 ，make-machine 将 扩充 这 一 基本 模型 (通过 给 它 传递 消息 )， 把 现在 要 定义 
的 特殊 机 器 的 寄存 器 、 操 作 和 控制 器 加 进去 。 它 首先 为 新 机 器 里 需要 提供 的 每 个 寄存 器 名 字 
分 配 一 个 寄存 器 ， 并 安装 好 这 一 机 器 所 指定 的 各 种 操作 。 最 后 ， 它 用 一 个 汇编 程序 《在 下 面 
的 5.2.2 节 讨论 ) 把 控制 器 列表 变换 为 新 机 器 所 用 的 指令 ， 并 将 它们 安装 为 这 一 机 器 的 指令 序 
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列 。make-machine 返 回 修改 后 的 机 器 模型 作为 值 。 


(define (make-machine register-names ops controller-text) 
(let ((machine (make-new-machine) )) 
(for-each (lambda (register-name) 
( (machine ’allocate-register) register-name) ) 
register-names) 
( (machine ’install-operations) ops) 
( (machine ’install-instruction-sequence) 
(assemble controller-text machine) ) 


machine} ) 


寄存 器 
我 们 把 一 个 寄存 器 表示 为 一 个 带 有 局 部 状态 的 过 程 ， 就 像 第 3 章 里 那样 , make-register 
过 程 创 建 这 种 寄存 器 ， 它 们 里 面 保存 着 一 个 值 ， 可 以 访问 或 者 修改 : 


(define (make-register name) 
(let ((contents °*.nassigned*) ) 
(define (dispatch message) 
(cond ((eq? message *get) contents) 

((eq? message ’set) 
(lambda (value) (set! contents value) )) 
(else 
(error "Unknown request -- REGISTER" message) ))) 

dispatch) ) 


下 面 过 程 用 于 访问 这 些 寄存 器 : 
(define (get-contents register) 
(register ‘get)) 


(define (set-contents! register value) 
((register ’set) value)) 


堆栈 
我 们 把 堆栈 也 表示 为 一 个 带 有 局 部 状态 的 过 程 。make-stack 过 程 创 建 起 一 个 堆栈 ， 其 
局 部 状态 就 是 一 个 包含 着 这 一 堆栈 里 的 数据 项 的 表 。 堆 栈 接受 的 请 求 包括 将 一 个 数据 项 放 和 人 
堆栈 的 push ， 以 及 将 数据 项 从 堆栈 里 去 掉 并 返回 它 的 pop 。initialize 将 堆栈 初始 化 为 空 。 
(define (make-stack) 
(let ((s '())) 
(define (push x) 
(set! s (cons x s))) 
(define (pop) 
(if (null? s) 
(error "Empty stack -- POP") 
(let ((top (car s))) 
(set! s (cdr s)) 
top))) 
(define (initialize) 
(set! s 7()) 
"done) 
(define (dispatch message) 


(cond ((eg? message ’push) push) 
((eq? message ‘pop) (pop)) 
((eq? message ’initialize) (initialize) ) 
(else (error "Unknown request -- STACK" 
message)))) 
dispatch) ) 
下 面 过 程 用 于 访问 堆栈 : 
(define (pop stack) 
(stack ’pop)) 


(define (push stack value) 
((stack ’push) value) ) 


基本 机 器 

过 程 make-new-machine 如 图 $-13 所 示 ， 它 构造 起 一 个 对 象 ， 其 内 部 状态 包括 了 一 个 堆 
栈 ， 另 外 还 有 一 个 初始 为 空 的 指令 序列 和 一 个 操作 的 表 ， 开 始 时 这 个 表 里 只 包含 一 个 初始 化 
堆栈 的 操作 ;还 有 一 个 寄存 器 的 列表 ， 初 始 时 包含 两 个 分 别称 为 flag 和 pc (表示 “程序 计数 
器 ”，program counter) 的 寄存 器 。 内 部 过 程 aAl1locate-register 用 于 向 寄存 器 列表 中 加 
和 人 新 项 ， 内 部 过 程 o00okup~register 在 这 个 列表 里 查找 寄存 器 。 

寄存 器 fl1ag 用 于 控制 被 模拟 机 器 的 分 支 动作 。test 指 令 设置 fl1ag 的 内 容 ， 表 示 检 测 的 
结果 ( 真 或 者 假 ) 。branch 指令 通过 检查 fl1ag 的 内 容 确定 是 否 需 要 转移 。 

在 机 器 的 运行 中 ， pc 寄存 器 决定 了 指令 的 执行 顺序 。 这 一 顺序 由 内 部 过 程 execute 实 现 。 
在 这 个 模拟 模型 里 ， 每 条 机 器 指令 就 是 一 个 数据 结构 ， 其 中 包含 了 一 个 无 参 过 程 ， 称 为 指令 
执行 过 程 ， 调 用 这 一 过 程 就 能 模拟 相应 指令 的 执行 。 在 模拟 运行 时 ，pc 总 是 指向 指令 序列 里 
下 一 条 需要 执行 的 指令 的 开始 位 置 。execute 取 得 这 条 指令 ， 通 过 调用 与 之 对 应 的 指令 执行 
过 程 ， 完 成 相应 的 执行 。 这 一 循环 重复 进行 ， 直 到 再 也 没有 需要 执行 的 指令 为 止 ( 也 就 是 说 ， 
直到 pc 指向 了 指令 序列 的 结束 )。 

作为 操作 的 一 部 分 ， 每 个 指令 执行 过 程 都 将 修改 Pc ， 使 之 指向 下 一 条 需要 执行 的 指令 。 
branch 和 goto 指 令 直 接 修改 pc ， 使 之 指向 一 个 新 的 位 置 ， 其 他 所 有 指令 都 简单 地 增加 pc 的 
值 ， 使 它 指向 序列 中 的 下 一 条 指令 。 可 以 看 到 ， 每 次 对 execute 的 调用 都 将 再 次 调用 
execute ， 但 这 并 不 会 产生 一 个 无 穷 循环 ， 因 为 指令 执行 过 程 的 执行 会 改变 Pc 的 内 容 。 

make-new-machine 返 回 一 个 dispatch 过 程 ， 这 一 过 程 实现 对 内 部 状态 的 消息 传递 访 
问 。 请 注意 ， 启 动 这 一 机 器 就 是 把 Pc 设 置 到 指令 序列 的 开始 并 调用 execute。 

为 了 方便 起 见 ， 一 部 机 器 除了 有 设置 和 检查 寄存 器 内 容 的 过 程 之 外 ， 我 们 还 为 stazrt 的 
操作 提供 另 一 个 过 程 性 界面 ， 如 5.2 节 开始 时 所 描述 的 : 


(define (start machine) 
(machine ’start))} 


(define (get-register-contents machine register-name) 
(get-contents (get-register machine register-name) ) ) 


(define (set-register-contents! machine register-name value) 
(set-contents! (get-register machine register-name) value) 


*done) ` 
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(define (make-new-machine) 
(let ((PC (make-register "Pc)) 
(flag (make-register ’flag)) 
(stack (make-stack) ) 
(the-instruction-sequence 7())) 
(let ((the-ops 
(list (list ’initialize-stack 
(lambda () (stack ’initialize))))) 
(vegister-table 
(list (list "pc pc) (list ’flag flag)))) 
(define (allocate-register name) 
(if (assoc name register-table) 
(error "Multiply defined register: " name) 
(set! register-table 
(cons (list name (make-register name) ) 
register-table) )) 
’register-allocaced) 
(define (lookup-register name) 
(let ((val (assoc name register-table) )) 
(if val 
(cadr val) 
(error "Unknown register:" name)))) 
(define (execute) 
(let ((insts (get-contents pc))) 
(if (null? insts) 
"done 
(begin 
((instruction-execution-proc (car insts))) 
(execute))))) 
(define (dispatch message) 
(cond ((eq? message ’start) 
(set-contents! pc the-instruction-sequence) 
(execute) ) 
((eq? message ’install-instruction-sequence) 
(lambda (seq) (set! the-instruction-sequence seq) )) 
((eq? message ’allocate-register) allocate-register) 
((eq? message ’get-register) lookup-register) 
( (eq? message ’install-operations) 
(lambda (ops) (set! the-ops (append the-ops ops)))) 
((eq? message ’stack) stack) 


( (eq? message operations) the-ops) 
(else (error “Unknown request -~ MACHINE" message) ))) 


dispatch) )) 


图 5-13 过程 make-new-machine ， 它 实现 基本 机 器 模型 


这 些 过 程 (以 及 5.2 和 5.3 节 里 的 许多 其 他 过 程 ) 里 都 使 用 了 下 面 过 程 ， 其 中 用 给 定 的 名 字 在 一 
部 给 定 的 机 器 里 查看 有 关 寄 存 器 的 内 容 : 


(define (get-register machine reg-name) 
((machine ’get-register) reg-name)) 


5.2.2 汇编 程序 


这 一 汇编 程序 将 一 部 机 器 的 控制 器 表达 式 序 列 翻 译 为 与 之 对 应 的 机 器 指令 的 表 ， 每 条 指 
令 都 带 着 相应 的 执行 过 程 。 从 整体 上 看 ， 这 个 汇编 程序 很 像 我 们 在 第 4 章 里 研究 过 的 各 种 求 值 
器 一 一 它 有 一 个 输入 语言 (目前 情况 下 就 是 寄存 器 机 器 语言 )， 以 及 对 于 这 一 语言 里 的 每 个 类 
型 必须 执行 的 适当 动作 。 

为 每 条 指令 生成 一 个 执行 过 程 的 技术 ， 也 就 是 我 们 在 4.1.7 节 里 采用 的 ， 为 加 快 求 值 器 的 
速度 ， 把 分 析 工作 与 运行 时 的 执行 动作 分 离 的 技术 。 正 如 在 第 4 章 已 经 看 到 过 的 ， 对 于 Scheme 
表达 式 的 大 部 分 的 有 用 分 析 ， 都 可 以 在 不 知道 变量 实际 值 的 情况 下 完成 。 与 此 类 似 ， 在 这 里 ， 
对 寄存 器 机 器 语言 表达 式 的 许多 有 用 分 析 ， 也 可 以 在 不 知道 机 器 寄存 器 的 实际 内 容 的 情况 下 
完成 。 举 例 来 说 ， 我 们 可 以 用 指向 寄存 器 对 象 的 指针 代替 对 寄存 器 的 引用 ， 可 以 用 指向 标号 
所 指定 的 指令 序列 中 的 位 置 的 指针 代替 对 相应 标号 的 引用 。 

在 能 够 开始 生成 指令 执行 过 程 之 前 ， 这 个 汇编 程序 还 必须 知道 所 有 标号 的 引用 位 置 。 为 
此 它 首先 扫描 控制 器 的 正文 ， 从 指令 序列 中 分 辨 出 各 个 标号 。 在 扫描 这 一 正文 的 过 程 中 ， 汇 
编程 序 构造 起 一 个 指令 的 表 和 另 一 个 列表 ， 列 表 里 为 每 个 标号 关联 一 个 指 到 指令 表 里 的 指针 。 
汇编 程序 而 后 扩充 这 样 得 到 的 指令 表 ， 为 每 条 指令 插入 一 个 执行 过 程 。 

过 程 assemble 是 这 个 汇编 程序 的 主要 入 口 ， 它 以 一 个 控制 器 正文 和 相应 机 器 模型 作为 
参数 ， 返 回 存储 在 模型 里 的 指令 序列 。assemble 调 用 extract-labels， 这 个 过 程 根据 所 
操 供 的 控制 器 正文 构造 出 初始 的 指令 表 和 标号 列表 。extract~labels 的 第 二 个 参数 是 一 个 
过 程 ， 需 要 调用 它 去 处 理 上 面 得 到 的 结果 。 这 个 过 程 使 用 update-~insts! 生成 指令 执行 过 
程 ， 将 其 插入 指令 表 里 ， 并 返回 修改 之 后 的 表 。 


(define (assemble controller-text machine) 
(extract-labels controller-text 
(lambda (insts labels) 
(update-insts! insts labels machine) 


insts))) 


extract-labels 的 参数 是 一 个 表 text (也 就 是 控制 器 指令 表达 式 的 序列 ) 和 一 个 过 程 
receive。receive 将 被 用 两 个 值 调 用 : (1) 一 个 指令 数据 结构 的 表 insts ， 其 中 每 个 指令 
数据 结构 包含 一 条 来 自 Lext 的 指令 ，(2) 一 个 名 字 为 1abe1s 的 表格 ， 其 中 是 来 自 text 的 各 
个 标号 ， 它 们 都 关联 于 相应 标号 在 表 insts 里 的 位 置 。 
(define (extract-labels text receive) 
(if (null? text) 
(receive *() °()) 
(extract-labels (cdr text) 
(lambda (insts labels) 
(let ((next-inst (car text))) 
(if (symbol? next-inst) 
(receive insts 
(cons (make-label-entry next-inst 
insts) 
labels) ) 
(receive (cons (make-instruction next-inst) 


insts) 
labels))))))) 


extLract-1LIabels 的 工作 方式 是 顺序 扫描 text 里 的 各 个 元 素 ， 逐 渐 积 累 起 insts 和 
labels 。 如 果 一 个 元 素 是 个 符号 〈 因 此 就 是 一 个 标号 ) ， 它 就 将 适当 的 条 目 加 入 表格 I1abels ， 
否则 就 把 这 个 元 素 加 入 到 insts 表 里 ”。 

update~insts! 修改 指令 表 ， 原 来 这 里 只 包含 指令 的 正文 ， 现 在 要 加 入 对 应 的 执行 过 程 : 

(define (update-insts! insts labels machine) 

(let ((pe (get-register machine ’pc)) 
(flag (get-register machine ’flag)) 
(stack (machine ’stack) ) 

(ops (machine ’operations) )) 
(for-each 
(lambda (inst) 
(set-instruction-execution-proc! 
inst 
(make-execution-procedure 
(instruction-text inst) labels machine 
pe flag stack ops))) 
insts))) 


机 器 指令 的 数据 结构 也 就 是 指令 正文 和 对 应 的 执行 过 程 的 对 偶 。 在 extract-labels 构 
造 这 些 指令 时 ， 这 些 执行 过 程 还 不 能 用 。 它 们 是 后 来 由 update-instsl! 插 入 的 。 
(define (make-instruction text) 
(cons text'’())) 


289 在 这 里 使 有 receive 过程 ， 是 作为 一 种 有 效 地 返回 两 个 值 (Labels 和 insts ) 的 方式 ， 这 样 就 不 必 做 出 一 
个 复合 数据 结构 去 保存 它们 。 另 一 实现 方式 是 返回 这 两 个 值 的 序 对 : 


(define (extract-labels text) 
(if (null? text) 
(cons '(} *()) 
(let ((result (extract-labels (cdr text)))) 
(let ((insts (car result)) (labels (cdr result))) 
(let ((mext-inst (car text))) 
(if (symbol? next-inst) 
(cons insts 
(cons (make-label-entry next-inst insts) labels)) 

(cons (cons (make-instruction next-inst) insts) 


Labels))))))) 
汇编 程序 应 该 采用 如 下 方式 调用 它 ; 


(define (assemble controller-text machine) 
(let ((result (extract-labels controller-text) )) 
(let (({insts (car result)) (labels (cdr result))) 

(update-insts! insts labels machine) 

insts))) 
你 也 可 以 认为 ， 这 里 对 receive 的 使 用 展示 了 一 个 返回 多 个 值 的 优雅 方法 ， 或 者 简单 地 将 它 看 成 不 过 是 一 个 
程序 设计 技巧 。 向 receive 这 样 的 参数 被 作为 下 一 个 被 调用 过 程 ， 这 种 过 程 通常 称 为 “继续 ”过 程 。 请 回忆 
一 下 ， 在 4.3.3 节 的 amb 求 值 器 里 实现 回溯 控制 结构 时 ， 使 用 的 也 是 这 种 继续 过 程 。 
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(define (instruction-text inst) 
{car inst)) 


(define (instruction-execution-proc inst) 


{cdr inst)) 


(define (set-instruction-execution-proc! inst proc) 
(set-cdr! inst proc)) 


我 们 的 模拟 器 并 不 使 用 这 些 指 令 正 文 ， 但 还 是 把 它们 保存 在 这 里 。 将 指令 正文 留 到 排除 程序 
错误 时 ， 可 能 带 来 许多 方便 ( 见 练习 5.16 ) 。 
标号 列表 里 的 元 素 是 序 对 : 
(define (make-label-entry label-name insts) 
(cons label-name insts) ) 


下 面 过 程 用 于 在 这 个 列表 里 查找 条 目 : 


(define (lookup-label labels label-name) 
(let ((val (assoc label-name labels))) 


(if val 
(cdr val) 
(error "Undefined label -- ASSEMBLE" label-name)))) 
练习 5.8 下 面 寄 存 器 机 器 代码 有 歧义 ， 因 为 其 中 的 标号 here 有 不 止 一 个 定义 : 
start 
(goto (label here)) 


here 
{assign a (const 3)) 
(goto (label there) ) 
here 
‘(assign a (const 4)) 
(goto (label there) ) 


there 
对 于 上 面 写 出 的 模拟 器 ， 当 控制 到 达 there 时 ， 寄 存 器 a 的 内 容 是 什么 ?请 修改 过 程 
extract-labels, 使 汇编 程序 在 发 现 同一 标号 用 于 指明 两 个 不 同位 置 时 ， 能 发 出 一 个 错 
误 信号 。 
5.2.3 为 指令 生成 执行 过 程 


汇编 程序 调用 make-execution-procedure ,为 一 条 指令 生成 一 个 执行 过 程 。 这 很 像 
4.1.7 节 里 求 值 器 中 的 analyze 过 程 。 这 一 过 程 也 基于 指令 的 类 型 ， 把 生成 适当 的 执行 过 程 的 
工作 分 派出 去 。 


(define (make-execution-procedure inst labels machine 
pe flag stack ops) 
(cond ((eq? (car inst) ‘assign) 
(make-assign inst machine labels ops pc)) 
((eq? (car inst) ‘test) 
(make-test inst machine labels ops flag pc)) 
((eq? (car inst) "branch ) 
(make-branch inst machine labels flag pc)) 
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((eq? (car inst) ’goto) 
(make-goto inst machine labels pc)) 
((eq? (car inst) ’save) 
(make-save inst machine stack pc)) 
((eq? (car inst) restore) 
(make-restore inst machine stack pc)) 
((eq? (car inst) ’perform) 
(make-perform inst machine labels ops pc)) 
(else (error "Unknown instruction type -- ASSEMBLE" 
inst)))) 


对 于 这 个 寄存 器 机 器 语言 里 的 每 类 指令 ， 在 这 里 都 有 一 个 生成 器 ， 其 功能 就 是 构造 出 适 
当 的 执行 过 程 。 这 些 过 程 的 细节 由 相应 寄存 器 机 器 语言 里 每 条 具体 指令 的 语法 和 意义 确定 。 
我 们 采用 数据 抽象 ， 将 寄存 器 机 器 表达 式 的 语法 细节 与 通用 的 执行 机 制 隔离 开 ， 就 像 前 面 对 
4.1.2 节 的 求 值 器 所 采用 的 做 法 ， 这 里 用 一 些 语法 过 程 提取 出 一 条 指令 里 的 各 个 部 分 ， 并 对 它 
们 进行 分 类 。 
assign 指 令 
ji famake-assignihHlassignig4 : 
(define (make-assign inst machine labels operations pc) 
(let ((target 
(get-register machine (assign-reg-name inst) )) 
(value-exp (assign-value-exp inst) )) 
(let ((value-proc 
(if (operation-exp? value-exp) 
(make-operation-exp 
value-exp machine labels operations) 
(make-primitive-exp 
(car value-exp) machine labels)))) 
(lambda () ; execution procedure for assign 


(set-contents! target (value-proc) ) 
(advance-pc pc))))) 


make-assign 用 了 几 个 选择 函数 ， 从 assign 指 令 里 提取 出 目标 寄存 器 的 名 字 (指令 的 第 二 
ATH) 和 值 表达 式 (形成 指令 里 剩余 部 分 的 表 ) : 


(define (assign-reg-name assign-instruction) 
(cadr assign-instruction) ) 


(define (assign-value-exp assign-instruction) 
(cddr assign-instruction) ) 


get-register 用 寄存 器 名 的 名 字 去 查找 ， 产 生 对 应 的 目标 寄存 器 对 象 。 如 果 有 关 的 值 是 一 
个 操作 的 结果 ， 这 个 值 表达 式 就 被 送 给 make-operation-exp， 否则 就 送 给 make- 
primitive-exp。 这 些 过 程 (下 面 给 出 ) 还 要 进一步 分 析 值 表达 式 ， 并 为 它 生成 一 个 执行 
过 程 。 这 是 一 个 称 为 value-proc 的 无 参 过 程 ， 在 模拟 中 ， 当 需要 为 寄存 器 赋值 生成 实际 的 
值 时 就 会 调用 这 个 过 程 。 请 注意 ， 查 找 寄存 器 名 字 和 分 析 值 表达 式 的 工作 ， 都 只 需 在 汇编 时 
做 一 次 ， 而 不 是 在 指令 模拟 时 每 次 做 。 这 样 将 能 节省 工作 ， 也 是 我 们 采用 执行 过 程 的 原因 。 
这 一 做 法 与 4.1.7 节 的 求 值 器 里 将 程序 分 析 工 作 从 执行 中 分 离 出 来 有 着 直接 的 对 应 。 


由 make-assign 返 回 的 结果 就 是 assign 指 令 的 执行 过 程 。 当 这 个 过 程 被 调用 时 〈 由 机 
器 模型 的 execute 过 程 调用 )， 它 将 用 执行 Value-proc 得 到 的 结果 设置 目标 寄存 器 的 内 容 。 
而 后 通过 运行 下 面 过 程 更 新 pc ， 使 之 指向 下 一 条 指令 。 

(define (advance-pc pc) 

(set-contents! pc (cdr (get-contents pc)))) 


advance-pc 是 每 条 指令 的 正常 结束 操作 ， 除 了 branch 和 goto 之 外 。 


test 、branch 和 goto 指 令 

make-test 以 类 似 方式 处 理 test 指 令 。 它 提取 出 描述 了 需要 检测 的 条 件 的 表达 式 ， 并 
为 它 生 成 一 个 执行 过 程 。 在 模拟 时 ， 对 应 于 有 关 条 件 的 过 程 被 调用 ， 检 测 结 果 赋 给 f1ag 寄 存 
器 ， 而 后 更 新 pc : 


(define (make-test inst machine labels operations flag pc) 
(let ((condition (test-condition inst))) 
(if (operation-exp? condition) 
(let ((condition-proc 
(make-operation~exp 
condition machine labels operations)) ) 
(lambda () 
(set-contents! flag (condition-proc) ) 
(advance-pc pc))) 
(error "Bad TEST instruction -- ASSEMBLE" inst)))) 


(define (test-condition. test-instruction) 
(cdr test-instruction) ) 
branch 指 令 的 执行 过 程 检查 EfLag 寡 存 器 的 内 容 ， 或 者 是 将 pc 的 内 容 设置 为 分 支 的 目标 
(如 果 需 要 执行 分 支 ) ， 或 者 是 简单 地 更 新 Pc (如 果 不 要 分 支 )。 请 注意 ,一 条 branch 指 令 里 
所 指定 的 目标 必须 是 一 个 标号 ，make-branch 过 程 要 求 这 件 事 。 还 请 注意 标号 也 是 在 汇编 
时 查找 ， 而 不 是 在 模拟 branch 指 令 的 时 候 再 查找 。 
(define {make-branch inst machine labels flag pc) 
(let ((dest (branch-dest inst))) 
(if (label-exp? dest) 
(let ((insts 
(lookup-label labels (label-exp-label dest)))) 
(lambda () 
(if (get-contents flag) 
(set-contents! pc insts) 


(advance-pe pc)))) 
(error "Bad BRANCH instruction -- ASSEMBLE" inst)))) 


(define (branch-dest branch-instruction) 
(cadr branch-instruction) ) 
goto 指 令 的 情况 与 分 支 类 似 ， 这 里 的 目标 可 以 用 一 个 标号 或 者 一 个 寄存 器 描述 ， 而 且 也 
不 需要 检测 条 件 。 这 里 总 将 pc 设置 为 新 的 目标 位 置 。 
(define (make-goto inst machine labels pc) 


(let ((dest (goto-dest inst))) 
(cond ((label-exp? dest) 


(let ((insts 
(lookup-label labels 
(label-exp-label dest)))) 
(lambda () (set-contents! pc insts)))) 
((rvegister-exp? dest) 
(let ((reg 
(get-register machine 
(register-exp-reg dest)))) 


(lambda () 
(set-contents! pe (get-contents reg))))) 
(else (error "Bad GOTO instruction -- ASSEMBLE" 
inst))))) 


(define (goto-dest goto-instruction) 
(cadr goto-instruction) ) 


其 他 指令 
堆栈 指令 save 和 restore 简 单 地 对 指定 寄存 器 使 用 堆栈 ， 并 且 更 新 pc : 


(define (make-save inst machine stack pc) 
(let ((reg (get-register machine 
(stack-inst-reg-name inst)))) 
(lambda () 、 
(push stack (get-contents reg) ) 
(advance-pc pc)))) 


(define (make-restore inst machine stack pc) 
(let ((reg (get-register machine 
(stack-inst-reg-name inst)))) 
(lambda () 
(set-contents! reg (pop stack) ) 
(advance-pe pc)))) 


(define (stack-inst-reg-name stack-instruction) 
(cadr stack-instruction) ) 


最 后 一 类 指令 由 make-perform 处 理 ， 它 为 需要 执行 的 动 作 生成 有 关 执行 过 程 。 在 模拟 
时 执行 相应 的 动作 过 程 并 更 新 pc。 


(define (make-perform inst machine labels operations pc) 
(let ((action (perform-action inst))) 
(if (operation-exp? action) 
(let ((action-proc 
(make-operation-exp 
action machine labels operations) )) 
(lambda () 
(action-proc) 
(advance~pc pc))) 
(error "Bad PERFORM instruction -- ASSEMBLE" inst)))) 


(define (perform-action inst) (cdr inst)) 


子 表 达 式 的 执行 过 程 
在 为 一 个 寄存 器 赋值 (make-assign )， 或 者 为 其 他 操作 提供 输入 时 (make-operation- 


exp ， 见 下 )， 可 能 需要 使 用 一 个 reg 、1abel 或 者 const 表 达 式 的 值 。 下 面 过 程 为 这 些 表达 
式 生 成 出 一 个 执行 过 程 ， 在 模拟 中 产生 出 这 些 子 表达 式 的 值 : 


(define (make-primitive-exp exp machine labels) 
(cond ((constant-exp? exp) 
{let ((c (constant-exp-value exp))) 
(lambda () c))) 
((label-exp? exp) 
(let ((insts 
(lookup-label labels 
(label-exp-label exp)))) 
(lambda () insts))) 
((register-exp? exp) 
(let ((r (get-register machine 
(register-exp-reg exp)))) 


(lambda () (get-contents r)))) 
(else 
(error "Unknown expression type -- ASSEMBLE" exp)))) 


reg、label 和 const 表 达 式 的 语法 形式 由 下 面 过 程 确定 : 


(define (register-exp? exp) (tagged-list? exp ’reg)) 

(define (register-exp-reg exp) (cadr exp)) 

(define (constant-exp? exp) (tagged-list? exp ‘const)) 

(define (constant-exp-value exp) (cadr exp)) 

(define (label-exp? exp) (tagged-list? exp ‘label)) 

(define (label-exp-label exp) (cadr exp)) 

在 assign、perform 和 test 指 令 里 ， 可 能 需要 将 一 个 机 器 操作 (由 一 个 op 表达 式 描述 ) 
的 应 用 到 某 些 操作 对 象 (由 zeg 和 const 表 达 式 描述 )。 下 面 过 程 为 一 个 “操作 表达 式 ” (一 
个 包含 着 一 条 指令 里 的 操作 和 操作 对 象 表达 式 的 表 ) 生成 一 个 执行 过 程 : 


(define (make-operation-exp exp machine labels operations) 
(let ((op (lookup-prim (operation-exp-op exp) operations) ) 

(aprocs 

(map (lambda (e) 

(make-primitive-exp e machine labels) ) 
(operation-exp-operands exp)))) 
(lambda () 
(apply op (map (lambda (p) (p)) aprocs))))) 


操作 表达 式 的 语法 由 下 面 过 程 确定 : 
(define (operation-exp? exp) 
(and (pair? exp) (tagged-list? (car exp) ‘op))) 
(define (operation-exp-op operation-exp) 
(cadr (car operation-exp) )) 


(define (operation-exp-operands operation-exp) 
(cdr operation-exp) ) 


可 以 看 到 ， 这 里 对 于 操作 表达 大 式 的 处 理 很 像 4.1.7 节 的 求 值 器 里 的 analyze-~application 过 程 
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里 对 过 程 应 用 的 处 理 。 我 们 要 为 每 个 操作 对 象 生成 一 个 执行 过 程 。 模 拟 时 将 调用 这 些 对 应 于 操 
作对 象 的 过 程 ， 得 到 它们 的 值 ， 而 后 将 模拟 有 关 操 作 的 Scheme 过 程 应 用 于 这 些 值 。 找 出 模拟 过 
程 的 方式 ， 就 是 用 操作 的 名 字 到 机 器 的 操作 表格 里 查找 : 


(define (lookup-prim symbol operations) 
(let ((val (assoc symbol operations) )) 
(if val 
(cadr val) 
(error "Unknown operation -- ASSEMBLE" symbol)))) 


练习 5.9 在 上 面 对 于 机 器 操作 的 处 理 中 ， 除 了 允许 它们 对 常量 和 寄存 器 的 内 容 进行 操作 
外 ， 还 允许 它们 处 理 标号 。 请 修改 上 述 表 达 式 处 理 过 程 ， 加 上 一 个 条 件 ， 要 求 这 些 操作 只 能 
用 于 寄存 器 和 常量 。 

练习 5.10 ”请 为 寄存 器 机 器 指令 设计 一 种 新 的 语法 形式 ， 而 后 修改 这 个 模拟 器 ， 使 模拟 
器 能 采用 你 的 新 语法 。 你 能 实现 你 的 新 语法 ， 而 且 在 修改 中 除了 语法 过 程 之 外 不 修改 本 节 的 
模拟 器 里 的 任何 部 分 吗 ? 

练习 5.11 ”我们 在 5.1.4 节 引入 save 和 restore 时 ， 并 没有 说 明 如 果 试 图 恢复 一 个 并 不 是 
以 前 最 后 保存 的 寄存 器 ， 那 会 出 现 什么 情况 。 例 如 下 面 的 序列 : 


(save y) 
(save x) 
(restore y) 


对 于 这 里 restore 的 意义 有 几 种 合理 的 可 能 性 : 

a) (restore y) 把 最 后 存 和 人 堆栈 里 的 值 放 入 y， 无 论 这 个 值 原来 来 自 哪个 寄存 器 。 这 
也 是 上 面 模 拟 器 中 的 行为 方式 。 请 说 明 如 何 利 用 这 种 方式 的 优点 ， 从 5.1.4 节 (参见 图 5-12) 
的 斐 波 那 契 机 器 中 删 去 一 条 指令 。 

b) (restore y) 把 最 后 存 人 堆栈 里 的 值 放 入 y， 但 只 是 在 这 个 值 原来 确实 来 自 y 的 情况 
下 ， 否 则 就 发 出 一 个 错误 消息 。 请 修改 模拟 器 ， 使 之 按 这 种 方式 活动 。 你 需要 修改 save， 使 
它 不 但 把 值 存 和 人 堆栈， 还 要 存 入 寄存 器 的 名 字 。 

c) (restore y) 把 来 自 y 的 最 后 存 人 堆栈 里 的 值 放 入 y ， 而 不 管 在 保存 了 之 后 又 有 哪些 
寄存 器 的 值 存 入 或 者 恢复 。 请 修改 模拟 器 ， 使 它 能 按照 这 种 方式 活动 。 你 将 需要 为 每 个 寄存 
器 关联 一 个 堆栈 ， 还 需要 修改 initialize-stack 操 作 ， 让 它 初始 化 所 有 的 寄存 器 堆栈 。 

练习 5.12 ”这 个 模拟 器 可 用 于 帮助 我 们 确定 为 实现 一 个 采用 给 定 控制 器 的 机 器 所 需要 的 
数据 通路 。 请 扩充 这 个 汇编 程序 ， 将 下 面 信息 存储 到 机 器 模型 里 ; 

。 一 个 指令 的 表 ， 其 中 删除 了 所 有 的 重复 ， 并 按照 指令 的 类 型 保存 (assign, goto% 

等 ) ， 

。 一 个 用 于 保存 入 口 点 的 寄存 器 的 表 (其 中 没有 重复 ) ， 这 些 和 人 口 点 都 有 goto 指 令 引 用 ， 

。 一 个 使 用 了 save 或 者 restore 的 寄存 器 的 表 (其 中 没有 重复 ) ， 

。 对 于 每 个 寄存 器 ， 一 个 对 它 的 赋值 来 源 的 表 (其 中 没有 重复 )。 例 如 ， 对 于 图 5-11 的 阶 
乘机 器 ,寄存 器 val 的 赋值 来 源 包括 (const 1) 和 ((op *) (reg n) (reg 
val)), 

请 扩充 有 关机 器 的 消息 传递 界面 ， 提 供 对 这 些 新 信息 的 访问 机 制 。 为 了 测试 你 的 分 析 器 ， 请 
定义 图 $-12 的 斐 波 那 契机 器 ， 并 检查 所 列 出 的 各 个 表 。 
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练习 5.13 ”请 修改 上 面 的 模拟 器 ， 使 它 可 以 直接 利用 控制 器 序列 去 确定 机 器 里 需要 哪些 
寄存 器 ， 不 必 另 将 一 个 寄存 器 表 作 为 nake-machine 的 参数 ， 不 采用 在 make-machine 里 预 
先 分 配 这 些 寄存 器 的 方式 ， 你 可 以 在 汇编 指令 的 过 程 中 ， 第 一 次 遇 到 一 个 寄存 器 时 完成 它 的 
分 配 。 | 


5.2.4 监视 机 器 执行 


模拟 的 用 途 不 仅 在 于 可 用 于 验证 所 提出 的 机 器 的 正确 性 ， 还 能 帮助 度量 机 器 的 性 能 。 举 
例 说 ， 我 们 可 以 在 自己 的 模拟 程序 里 安装 一 个 “测量 仪器 ”， 记 录 在 计算 中 使 用 堆栈 操作 的 次 
数 。 要 做 好 这 件 事 ， 我 们 应 该 修改 被 模拟 的 堆栈 ， 记 录 将 寄存 器 保存 到 堆栈 里 的 次 数 和 堆栈 
达到 的 最 大 深度 的 轨迹 ， 如 下 面 所 示 。 我 们 还 需要 在 基本 机 器 模型 里 增加 一 个 操作 ， 用 于 对 
应 对 于 堆栈 的 统计 数据 ， 并 在 make~new-machine 里 将 the-ops 初 始 化 为 : 


(list (list ’initialize-stack 
(lambda () (stack ’initialize))) 
(list ’print-stack-statistics 
(lambda () (stack ’print-statistics)))) 


这 里 是 make-stack 的 新 定义 : 
(define (make-stack) 
(let ((8 °()) 
(number-pushes 0) 
(max-depth 0) 
(current-depth 0)) 
(define (push x) 
(set! s (cons x s)) 
(set! number-pushes (+ 1 number-pushes) ) 
(set! current-depth (+ 1 current-depth) ) 
(set! max-depth (max current-depth max-depth) ))} 
(define (pop) 
(if (null? s) 
(error "Empty stack -- POP") 
(let ((top (car s))) 
(set! s (cdr s)) 
(set! current-depth (- current-depth 1)) 
top))) 
(define (initialize) 
(set! s '()) 
(set! number-pushes 0) 
(set! max-depth 0) 
(set! current-depth 0) 
*done) 
(define (print-statistics) 
(newline) 
(display (list *total-pushes 
’maximum-depth ’ 
(define (dispatch message) 
(cond ((eq? message ’push) push) 
((eq? message ’pop) (pop)) 


number-pushes 
max-depth) )) 


((eq? message initialize) (initialize) ) 
( (eq? message ’print-statistics) 
(print-statistics) ) 
(else 
(error "Unknown request -- STACK" message) ))) 
dispatch) ) 
练习 5.15 到 5.19 描 述 了 其 他 一 些 在 监视 和 排除 程序 错误 方面 很 有 用 的 特征 ， 可 以 考虑 将 它们 加 
入 寄存 器 机 器 模拟 器 中 。 
练习 5.14 ”请 度量 由 图 5-11 所 示 的 阶乘 机 器 对 各 种 小 的 n 值 计算 n! 时 ， 所 执行 的 堆栈 压 入 
次 数 和 最 大 深度 。 根 据 你 得 到 的 数据 确定 有 关 的 公式 ， 对 于 任何 n>1， 基 于 n 描 述 压 入 操作 的 
次 数 和 在 计算 n! 时 的 最 大 堆栈 深度 。 请 注意 ， 这 两 个 公式 都 是 n 的 线性 函数 ， 因 此 请 设法 确定 
其 中 的 两 个 常数 。 为 了 打印 统计 数据 ， 你 将 需要 扩充 这 一 阶乘 机 器 ， 增 加 初始 化 堆栈 和 打印 
统计 结果 的 指令 。 你 还 可 能 想 修改 有 关机 器 ， 使 它 能 反复 地 将 值 读 入 xn， 计算 其 阶乘 并 打印 结 
果 (就 像 我 们 在 图 5-4 里 对 GCD 机 器 所 做 的 那样 ) ， 使 你 以 后 再 也 不 必 反 复 去 调用 get- 
register-contents, set-register-contents! ffstart, 
练习 5.15 ”给 寄存 器 机 器 模拟 器 增加 指令 计数 功能 。 也 就 是 说 ， 让 这 一 机 器 模型 维持 所 
执行 指令 的 数目 。 扩 充 这 一 机 器 模型 ， 使 它 能 接受 一 个 新 消息 ， 打 印 出 当时 的 指令 计数 值 并 
将 计数 器 重新 设置 为 0 。 
练习 5.16 ”扩充 上 述 模拟 器 ， 提 供 指令 追踪 功能 。 也 就 是 说 ， 在 每 条 指令 被 执行 之 前 ， 
让 模拟 器 打印 出 这 一 指令 的 正文 。 让 扩充 后 的 机 器 模型 能 接受 trace-on 和 trace-off 消 息 ， 
并 能 相应 地 打开 或 者 关闭 追踪 功能 。 
练习 5.17 ”扩充 练习 5.16 的 指令 追踪 功能 ， 使 得 在 打印 一 条 指令 之 前 ， 模 拟 器 先 打印 出 在 
控制 序列 里 正好 位 于 这 条 指令 之 前 的 标号 。 在 做 这 件 事情 时 ， 请 小 心地 保证 它 不 会 干扰 了 指 
令 计数 功能 (练习 5.15 )。 你 需要 让 模拟 器 保存 必要 的 标号 信息 。 
练习 5.18 ”请 修改 第 5.2.1 节 里 的 make-register 过 程 ， 使 寄存 器 可 以 被 追踪 。 寄 存 器 
应 该 能 接受 打开 和 关闭 追踪 的 消息 。 当 一 个 寄存 器 被 追踪 时 ， 一 旦 给 这 个 寄存 器 赋值 RA 
打印 出 寄存 器 的 名 字 ， 寄 存 器 原来 的 内 容 和 当时 将 要 赋值 的 新 内 容 。 请 扩充 机 器 模型 的 界面 ， 
以 允许 你 打开 或 者 关闭 对 任何 特定 寄存 器 的 追踪 。 
练习 5.19 Alyssa P. Hacker 希 望 在 模拟 器 里 有 上 断 点 功能 ， 以 帮助 她 排除 机 器 设计 中 的 错 
误 。 你 现在 被 雇佣 来 为 她 安装 这 种 特征 。 她 希望 能 够 搞 述 控制 序列 里 的 任何 位 置 ， 使 模拟 器 
能 停止 在 那里 ， 并 使 她 能 够 检测 机 器 的 状态 。 你 需要 实现 一 个 过 程 : 


(set-breakpoint <machine> <label> <n>) 
它 将 在 第 n 条 指令 之 前 的 给 定 标 号 后 面 设置 一 个 断 点 。 例 如 ， 

(set-breakpoint gcd-machine 'test~-b 4) 
将 在 9cd-machine 里 给 寄存 器 a 赋值 前 安装 一 个 断 点 。 当 模拟 器 到 达 这 个 断 点 时 ， 它 应 打印 
那个 标号 和 断 点 的 偏 移 量 ， 并 停止 指令 的 执行 。 这 样 Alyssa 就 可 以 用 get-register- 
contents 和 set-register-contents! 去 操作 被 模拟 机 器 的 状态 。 此 后 她 应 该 能 让 机 器 
继续 执行 ， 用 


(proceed-machine <machine>) 


她 还 应 该 可 以 用 下 面 方式 删除 某 个 特定 断 点 
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(cancel-breakpoint <machine> <label> <n>) 


或 者 用 下 面 方式 删除 所 有 断 点 : 


(cancel-all-breakpoints <machine>) 


5.3 存储 分 配 和 废料 收集 


在 5.4 节 里 ， 我 们 将 要 说 明 如 何 把 一 个 Scheme 求 值 器 实现 为 一 部 寄存 器 机 器 。 为 了 简化 这 
一 讨论 ， 下 面 将 假定 在 我 们 的 寄存 器 机 器 里 可 以 安装 好 一 个 表 结 构 存 储 器 ， 其 中 对 于 表 结 构 
数据 的 基本 操作 都 是 机 器 的 基本 过 程 。 当 我 们 需要 集中 精力 考虑 Scheme 解释 器 里 的 控制 机 制 
时 ， 假 定 存在 这 样 一 个 存储 器 是 一 种 很 有 用 的 抽象 ， 但 这 并 没有 反应 当前 计算 机 中 实际 的 基 
本 数据 操作 的 情况 。 为 了 得 到 有 关 一 个 Lisp 系 统 如 何 工 作 的 一 种 更 完整 的 认识 ， 我 们 还 必须 
去 考察 表 结构 可 以 怎样 以 一 种 与 常规 的 计算 机 存储 器 相 容 的 方式 表示 。 

有 关 表 结构 的 实现 需要 考虑 两 方面 问题 。 首 先是 一 个 纯粹 的 表示 问题 : 如 何 去 表 示 Lisp 
序 对 的 “盒子 和 指针 ”结构 ， 其 中 只 使 用 到 典型 计算 机 存储 器 的 存储 单元 和 寻 址 能 力 。 第 二 
个 问题 ， 是 需要 关心 如 何 将 对 存储 的 管理 作为 一 个 计算 过 程 。Lisp 系 统 的 操作 强烈 地 依赖 于 
连续 创建 新 数据 对 象 的 能 力 ， 包 括 那些 被 解释 的 Lisp 过 程 里 显 式 创建 的 各 种 对 象 ， 以 及 由 解 
释 器 本 身 创建 的 对 象 ， 例 如 环境 和 参数 表 等 等 。 如 果 计 算 机 里 有 数量 无 穷 的 可 以 快速 寻 址 的 
存储 器 ， 那 么 连续 不 断 地 创建 新 对 象 就 不 会 有 问题 。 但 是 ， 实 际 的 计算 机 存储 器 只 有 有 穷 的 
规模 (实在 可 惜 )。 因 此 Lisp 系统 需要 提供 一 种 自动 存储 分 配 功能 ， 以 支撑 一 种 无 穷 存 储 器 的 
假象 。 当 一 个 数据 对 象 不 再 需要 时 ， 分 配给 它 的 存储 就 自动 回收 ， 并 可 用 于 构造 新 的 数据 对 
月 。 存 在 着 多 种 能 提供 这 样 的 自动 存储 分 配 的 技术 。 我 们 将 要 在 这 一 蔬 里 讨论 的 方法 称 为 度 
村 收集 。 


5.3.1 将 存储 看 作 向 重 


常规 计算 机 的 存储 器 可 以 看 作 是 一 串 排 列 整齐 的 小 隔 间 ， 每 个 小 隔 间 里 可 以 保存 一 点 信 
息 。 这 里 的 每 个 小 隔 间 有 一 个 具有 唯一 性 的 名 字 ， 称 为 它 的 地 址 或 者 位 置 。 典 型 的 存储 器 系 
统 提供 了 两 个 基本 操作 ， 一 个 能 取出 保存 在 一 个 特定 位 置 的 数据 ， 另 一 个 能 将 新 的 数据 赋 给 
指定 的 位 置 。 我 们 可 以 做 存储 器 地 址 的 增 量 操作 ， 以 支持 对 某 一 组 小 隔 间 的 顺序 访问 。 更 一 
般 的 情况 是 ， 许 多 重要 的 数据 操作 都 要 求 将 存储 器 地 址 也 作为 数据 来 看 待 和 处 理 ， 以 便 可 以 
将 地 址 保存 到 存储 位 置 里 ， 并 能 在 机 器 的 寄存 器 里 对 它们 做 各 种 操作 。 表 结构 的 表示 就 是 这 
种 地 址 算术 的 一 个 具体 应 用 。 

为 了 模拟 计算 机 的 存储 器 ， 我 们 采用 一 种 新 的 数据 结构 ， 称 为 向 量 。 抽象 地 看 ,一 个 向 
量 也 是 一 个 复合 数据 对 象 ， 其 中 各 个 元 素 都 可 以 通过 一 个 整数 下 标 访问 ， 这 种 访问 所 需 的 时 
BSAA PRE”. Hi FRE. 我 们 用 Scheme 里 的 两 个 完成 向 量 操作 的 过 如， 

。(vector-ref <vector> <n>) 返回 向 量 里 的 第 n 个 元 素 。 

。 (vector-set! <vector> <n> <value>) 将 向 量 里 的 第 个 元 素 设 置 为 指定 值 。 

举例 说 ， 如 果 Vv 是 一 个 向 量 ， 那 么 ，(Vector-ref v 5) 将 取得 向 量 V 里 的 第 5 个 元 素 ， 而 


290 我 们 也 可 以 将 存储 器 表示 为 数据 项 的 表 。 但 是 这 样 做 时 ， 访 问 时 间 就 不 会 与 下 标 无 关 了 ， 因 为 要 访问 其 中 的 
第 "个 元 素 需 要 做 % 一 1 次 cdr 操作 。 
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(vector-set! v 5 7) 把 向 量 Vv 里 的 第 5 个 元 素 修改 为 7。” 对 于 计算 机 存储 器 而 言 ， 这 种 
访问 可 以 通过 地 址 算术 实现 ， 其 中 采用 描述 一 个 向 量 在 存储 器 里 的 开始 位 置 的 基 址 加 上 一 个 
下 标 ， 这 种 下 标 描述 的 是 向 量 里 某 个 特定 元 素 的 偏 移 量 。 


Lisp 数 据 的 表示 

我 们 可 以 用 向 量 实现 表 结 构 存 储 器 所 需 的 基本 序 对 结构 。 让 我 们 设想 计算 机 的 存储 器 被 
分 成 了 两 个 向 量 ，the-cars 和 the-cdrs 。 这 时 我 们 就 可 以 采用 下 面 方式 表示 表 结 构 了 : 
指向 序 对 的 指针 就 是 到 这 两 个 向 量 的 下 标 ， 一 个 序 对 的 car 就 是 向 量 the-cars 里 具有 指定 
下 标的 项 ， 该 序 对 的 cdr 部 分 就 是 向 量 the-cdrs 里 具有 指定 下 标的 项 。 我 们 还 需要 为 那些 
不 是 序 对 的 对 象 ( 例 如 数 和 符号 ) 确定 表示 方式 ， 需 要 有 一 种 方式 来 区 分 是 这 种 数据 还 是 那 
种 数据 。 完 成 这 些 事情 的 方法 很 多 ， 但 它们 都 可 以 归结 为 采用 某 种 带 类 型 的 指针 ， 也 就 是 说 ， 
现在 需要 扩充 指针 的 概念 ， 使 之 包含 有 关 数 据 类 型 的 信息 所。 数据 类 型 使 系统 能 辨别 是 指向 
序 对 的 指针 ( 它 包 括 “ 序 对 ”数据 类 型 和 一 个 到 存储 器 向 量 的 下 标 )， 还 是 指向 其 他 种 类 的 数 
据 的 指针 ( 它 包 含有 关 某 种 数据 类 型 的 信息 和 某 些 用 于 表示 该 类 型 的 数据 的 其 他 东西 )。 认 为 
两 个 数据 对 象 是 同一 个 东西 (eq?) 的 条 件 就 是 它们 的 指针 相同 ”。 图 5-14 显 示 的 是 采用 这 种 
方法 表示 表 ( (1 2) 3 4) 的 情况 ,这 个 表 的 盒子 和 指针 表示 也 显示 在 图 中 。 图 中 用 字母 前 
缀 标明 类 型 信息 。 这 样 ， 指 向 下 标 为 5 的 序 对 的 指针 标的 是 p5， 空 表 用 指针 e0 表 示 ， 指 向 数 4 
的 指针 标的 是 用 n4 。 在 盒子 和 指针 图 里 ， 我 们 在 每 个 序 对 的 左下 方 标 了 一 个 向 量 下 标 ， 表 示 
这 个 序 对 的 car 和 cdr 存 储 的 地 方 。 在 the-cars 和 the-cdrs 里 空白 的 地 方 可 能 保存 了 其 
他 数据 结构 的 序 对 (在 这 里 不 关心 它们 )。 


((1 2) 3 4) 


Index 0 1 2 3 4 5 6 7 8 


the-cars 


the-cdrs 


图 5-14 Ze ((1 2) 3 4) 的 方块 指针 图 和 存储 器 向 量 表示 


Dl 为 完整 起 见 ， 我 们 还 要 描述 一 个 构造 向 量 的 make-vector 操 作 。 但 在 目前 的 应 用 里 ， 我 们 只 是 使 用 向 量 去 
模拟 计算 机 存储 器 的 固定 划分 情况 。 

292 这 与 我 们 在 第 2 章 为 处 理 通用 操作 而 引进 的 “ 带 标志 数据 ”的 思想 完全 一 样 。 当 然 ， 在 这 里 的 数据 类 型 位 于 
基本 的 机 器 层面 上 ， 而 不 是 在 表 的 基础 上 构造 出 来 的 。 

m 类 型 信息 可 以 采用 各 种 方式 编码 ， 具 体 做 法 依赖 于 Lisp 系统 的 实现 所 在 的 机 器 细节 。Lisp 程 序 执行 的 效率 在 
很 大 程度 上 依赖 于 所 做 出 的 这 种 选择 有 多 么 聪明 ， 但 是 ， 想 把 好 的 选择 形式 化 为 一 般 性 的 设计 原则 却 非常 困 
难 。 实 现 带 类 型 指针 的 最 直接 方式 是 在 每 个 指针 里 都 分 配 固定 的 一 组 二 进 制 位 作为 类 型 域 ， 用 于 做 类 型 的 纺 
码 。 在 设计 这 样 的 表示 时 ， 必 须 处 理 的 重要 问题 包括 下 面 这 些 : 表示 类 型 需要 多 少 个 二 进 制 位 ? 向 量 的 下 标 
必须 有 多 大 ? 用 于 对 指针 的 类 型 域 操作 的 基本 机 器 指令 的 效率 如 何 ? 有 些 机 器 为 有 效 操作 类 型 域 提供 了 特殊 
的 硬件 ， 这 种 机 器 也 被 称 为 是 带 标志 体系 结构 的 机 器 。 


指向 一 个 数值 的 指针 ， 例 如 n4， 也 完全 可 能 同时 包含 着 指明 数值 对 象 的 类 型 信息 以 及 数 4 
的 表示 本 身 ”“”。 如 果 需 要 处 理 的 数值 太 大 ， 无 法 在 固定 大 小 的 指针 空间 里 表示 ， 可 以 用 一 个 
大 数 数据 类 型 ， 此 时 就 是 让 指针 指向 一 个 表 ， 在 其 中 存储 这 个 大 数 里 的 各 个 部 分 车。 

一 个 符号 也 可 以 表示 为 一 个 带 类 型 的 指针 ， 它 指向 一 个 字符 序列 ， 这 个 字符 序列 形成 了 
该 符号 的 输出 表示 形式 。 这 一 序列 是 由 Lisp 读 入 程序 在 输入 时 第 一 次 遇 到 这 一 字符 序列 时 构 
造 起 来 的 。 因 为 我 们 希望 同一 个 符号 的 两 个 实例 被 eq? 认定 为 “同一 个 ”符号 ， 而 希望 eq? 只 
是 简单 地 检测 指针 相等 ， 因 此 我 们 就 必须 保证 ， 当 读 和 程序 两 次 看 到 同一 个 符号 时 ， 它 一 定 
能 用 同一 个 指针 (指向 相应 的 字符 序列 ) 表示 这 两 个 出 现 。 为 了 做 到 这 一 点 ， 读 人 程序 一 直 
维护 着 它 所 遇 到 的 所 有 符号 的 一 个 表格 ， 按 照 传统 ， 这 称 为 对 象 表 (obarray ) 。 当 读 和 程序 遇 
到 了 一 个 字符 串 ， 并 考虑 据 此 构造 一 个 符号 时 ， 它 就 会 去 检查 对 象 表 ， 看 看 前 面 是 否 已 经 看 
到 过 同样 的 字符 串 。 如 果 前 面 没 看 到 过 ， 它 就 用 这 一 字符 串 构 造 出 一 个 新 符号 (指向 新 的 字 
符 序列 的 带 类 型 指针 ) ， 并 将 这 个 指针 加 入 对 象 表 里 。 如 果 读 入 程序 已 经 看 到 过 这 个 字符 串 ， 
它 就 直接 返回 保存 在 对 象 表 里 的 符号 指针 。 将 字符 串 用 这 种 唯一 指针 取代 的 过 程 称 为 加 入 
(interning) 一 个 符号 。 


基本 表 操 作 的 实现 

有 了 上 面 的 表示 方式 ,我们 就 可 以 将 寄存 器 机 器 里 的 各 个 “基本 ” 表 操 作 代 换 为 一 个 或 
者 几 个 基本 向 量 操作 了 。 下 面 将 使 用 两 个 寄存 器 the~cars 和 the-cdrs ， 用 它们 标识 与 之 
对 应 的 内 存 向 量 ， 假 定 vector-ref 和 vector-set! 是 可 以 使 用 的 基本 向 和 量 操作 。 我 们 还 


要 假定 有 对 指针 的 算术 操作 (增加 一 个 指针 的 值 ， 用 一 个 序 对 的 指针 作为 向 量 的 下 标 ， 或 者 
加 起 两 个 数 )， 它 们 都 将 自动 地 应 用 到 带 类 型 指针 的 下 标 部 分 。 

举例 说 ， 我 们 可 以 让 寄存 器 机 器 支持 下 面 的 指令 : 

(assign <reg,> (op car) (reg <reg.>)) 

(assign <reg,> (op cdr) (reg <reg.>)) 
如 果 我 们 分 别 将 它们 实现 为 : 

(assign <reg,> (op vector-ref) (reg the-cars) (reg <reg:>)) 


(assign <reg,> (op vector-ref) (reg the-cdrs) (reg <reg,>)) 


(perform (op set-car!) (reg <reg,>) (reg <reg,>)) 

(perform (op set-cdr!) (reg <reg,>) (reg <reg.>)) 
将 实现 为 

(perform 


(op vector-set!) (reg the-cars) (reg <reg,>) (reg <reg2>)) 


24 有 关 数 值 如 何 表示 的 决定 ， 也 确定 了 我 们 能 否 用 eg? ( 它 检测 指针 的 相等 ) 检测 两 个 数值 的 相等 与 否 。 如 果 
指针 里 包含 的 是 数值 本 身 ， 那 么 相等 的 数值 就 会 有 相同 的 指针 值 。 但 是 如 果 指 针 里 包含 的 是 保存 数 的 位 置 的 
下 标 ， 那 么 ， 要 想 保 证 相等 的 数 也 具有 相同 的 指针 ， 我 们 就 需要 小 心安 排 ， 不 能 让 同一 个 数 存 人 多 个 位 置 


里 。 
95 这 就 像 是 将 一 个 数 写成 一 个 数字 的 序列 ， 除 了 这 里 的 每 个 “数字 ”有 所 不 同 之 外 ， 它 的 取 值 可 以 是 位 于 0 到 
某 个 可 能 保存 在 一 个 指针 里 的 最 大 的 数 之 间 的 一 个 值 。 
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(perform 

(op vector-~set!) (reg the-cdrs) (reg <reg,>) (reg <reg,>)) 

执行 cons 时 需要 分 配 一 个 闲置 未 用 的 下 标 ， 将 cons 的 参数 在 人 向 量 the-cars 和 the- 
cdrs 里 由 这 个 下 标 确定 的 位 置 。 我 们 还 要 假定 有 一 个 特殊 的 寄存 器 Erzee， 它 保存 着 一 个 序 
对 指针 ， 总 是 指向 下 一 个 可 用 下 标 ， 而 且 我 们 可 以 增加 这 一 指针 的 下 标 部 分 ， 以 便 找 到 下 一 
SABA, EPL, HS: 


(assign <reg,> (op cons) (reg <reg.>) (reg <reg;>)) 


FAP Ti RS BR PES BY” : 
(perform 
(op vector-set!) (reg the-cars) (reg free) (reg <reg.>)) 
(perform 
(op vector-set!) (reg the-cdrs) (reg free) (reg <reg3> ) ) 


(assign <reg,> (reg free) ) 
(assign free (op +) (reg free) (const 1)) 


操作 eg? 

(Op eq?) (reg <regi>) (reg <reg2>) 
简单 检测 寄存 器 的 所 有 域 是 否 相 等 ， 而 像 Paiz?、nul1? 、symbo1? 和 number? 一 类 谓词 都 
只 检测 指针 的 类 型 域 。 ‘ 

堆栈 的 实现 

虽然 我 们 的 寄存 器 机 器 里 使 用 了 堆栈 ， 但 在 这 里 却 不 需要 做 任何 特殊 事情 ， 因 为 堆栈 可 
以 用 表 来 模拟 。 堆 栈 可 以 是 一 个 用 于 保存 值 的 表 ， 由 一 个 特定 寄存 器 the-stack 指 向 。 这 样 ， 
(save <reg>) 就 可 以 实现 为 : 

(assign the~stack (op cons) (reg <reg>) (reg the-stack)) 
类 似 地 ，(restore <reg>) 可 以 实现 为 : 

(assign <reg> (op car) (reg the-stack)) 

(assign the-stack (op cdr) (reg the-stack)) 
而 (perform (op initialize-stack)) 可 以 实现 为 : 


(assign the~stack (const ())) 


这 些 操 作 都 可 以 进一步 基于 上 面 给 出 的 向 量 操作 给 出 解释 。 在 常规 计算 机 体系 结构 里 ， 堆 栈 
另行 分 配 为 一 个 单独 的 向 量 常 有 很 大 优越 性 。 采 用 这 种 做 法 ， 对 于 堆栈 的 压 人 和 弹出 操作 都 
可 以 通过 增加 或 者 减少 向 量 下 标的 方式 实现 。 

练习 5.20 ”请 画 出 由 下 面 表 达 式 产生 的 表 结构 的 盒子 和 指针 表示 ， 以 及 对 应 的 存储 器 向 
量 表示 的 图 形 (就 像 图 5-4 里 那样 ) 。 


(define x (cons 1 2)) 
(define y (list x x)) 


2% 也 有 找 自由 存储 的 其 他 方式 。 举 例 说 ， 我 们 也 可 以 将 所 有 未 用 的 序 对 链接 起 来 ， 形 成 一 个 自由 表 。 在 这 里 的 
自由 位 置 是 连续 的 (并 因此 可 以 通过 增加 指针 值 的 方式 访问 )， 是 因为 这 里 采用 了 一 种 紧缩 式 的 废料 收集 程 
序 ， 我 们 将 在 5.3.2 节 看 到 有 关 的 情况 。 

3 从 本 质 上 说 ， 这 就 是 基于 set-car! 和 set-cdr! 的 cons 实 现 ， 如 3.3.1 节 所 述 。 在 那里 的 实现 中 所 用 的 
get-new~pair ， 现 在 通过 tree 指 针 实现 了 。 
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假定 free 指针 开始 时 的 值 是 p1 。 表 示 Xx 和 Yy 的 值 的 是 哪些 指针 ? 

练习 5.21 ”为 下 面 过 程 实现 寄存 器 机 器 。 假 定 表 结构 存储 操作 可 以 作为 机 器 的 基本 操作 
使 用 : 

a) 递归 的 count-leaves: 


(define (count-leaves tree) 
(cond ((null? tree) 0) 
((not (pair? tree)) 1) 
(else (+ (count-leaves (car tree) ) 
(count-leaves (cdr tree)))))) 


b) 递归 的 count-1leaves ， 带 有 一 个 显 式 的 计数 器 : 


(define (count-leaves tree) 
(define (count-iter tree n) 
(cond ((null? tree) n) 
((not (pair? tree)) (+ n 1)) 
(else (count-iter (cdr tree) 
(count-iter (car tree) n))))) 


({count-iter tree 0)) 
练习 5.22 ”练习 3.12 和 3.3.1 节 给 出 了 一 个 apPend 过 程 ， 它 连接 起 两 个 表 ， 构 成 一 个 新 
表 ， 还 有 另 一 个 过 程 append! ， 它 直接 将 两 个 表 粘 连 到 一 起 。 请 为 实现 这 两 个 操作 各 设计 一 
个 寄存 器 机 器 ， 假 定 表 结构 存储 操作 是 可 用 的 基本 操作 。 


5.3.2 维持 一 种 无 穷 存储 的 假象 


在 5.3.1 节 所 勾画 的 表示 方式 能 够 解决 表 结构 的 问题 ， 当 然 这 里 还 需要 有 一 个 前 提 ， 那 就 
是 需要 有 无 穷 数量 的 存储 。 如 果 采 用 实际 的 计算 机 ， 我 们 最 终 总 会 用 光 所 有 用 于 构造 新 序 对 
的 自由 空间 %。 然 而 ， 典 型 计算 中 产生 的 大 部 分 序 对 只 是 用 于 保存 计算 的 中 间 结 果 ， 在 这 些 
结果 被 访问 之 后 ， 有 关 的 序 对 就 不 再 有 用 了 一 一 它们 变 成 了 废料 。 例 如 ， 计 算 

(accumulate + 0 (filter odd? (enumerate-interval 0 n))) 

将 构造 起 两 个 表 : 枚 举 出 的 表 和 对 枚 举 进行 过 滤 的 结果 表 。 在 这 里 的 累计 工作 完成 之 后 ， 这 
两 个 表 就 都 不 需要 了 ， 为 它们 分 配 的 存储 可 以 回收 。 如 果 我 们 能 做 出 一 种 安排 周期 性 地 收 
集 起 所 有 的 废料 ， 而 且 对 存储 的 这 种 重复 使 用 的 速度 与 构造 新 序 对 的 速率 大 致 差不多 ， 那 么 
我 们 就 能 维持 一 种 假象 ， 好 像 这 里 存在 着 无 穷 数量 的 存储 器 。 

为 了 回收 这 些 序 对 ,我 们 必须 有 一 种 方式 来 确定 原先 分 配 的 哪些 序 对 已 经 不 再 需要 了 
(这 一 说 法 实际 上 意味 着 它们 的 内 容 对 今后 的 计算 不 再 有 影响 了 )。 我 们 下 面 要 考察 的 方法 称 
为 度 料 收集 。 废 料 收集 是 基于 如 下 的 认识 : 在 Lisp 解 释 过 程 中 的 任何 时 刻 ， 有 可 能 影响 未 来 . 
的 计算 过 程 的 对 象 ， 也 就 是 从 当前 机 器 寄存 器 里 的 指针 出 发 ， 经 过 一 系列 car 和 cd 操作 能 够 


298 这 名 话 将 来 也 可 能 不 成 立 ， 因 为 存储 器 有 可 能 变 得 足够 大 ， 以 至 在 一 部 计算 机 的 存在 期 间 不 可 能 用 完 它 。 举 
例 说 ， 一 年 里 大 约 有 3 x 103 微 种 ， 因 此 如 果 我 们 每 个 微 秒 做 一 次 cons ， 大 约 需 要 有 10 个 存储 单元 就 可 以 构 
造 出 一 台 机 器 ， 它 可 以 运行 30 年 而 不 会 用 光 所 有 的 存储 器 。 按 照 今天 的 标准 ， 这 样 的 存储 器 似乎 太 大 了 ,但 
在 物理 上 这 并 不 是 不 可 能 的 。 而 在 另 一 方面 ， 处 理 器 的 速度 也 在 变 得 更 快 ， 明 天 的 一 台 计 算 机 可 能 有 着 一 大 
批 处 理 器 ， 在 一 个 内 存 上 并 行 操作 ， 因 此 使 用 存储 的 速度 也 可 能 远 远 快 于 上 面 的 假定 。 
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执行 废料 收集 的 方法 也 很 多 。 我 们 将 要 在 这 里 考察 的 方法 称 为 停止 并 复制 ， 其 基本 思想 
就 是 将 存储 器 分 成 两 半 ，, 分 为 “工作 存储 区 ”和 “自由 存储 区 ”。 当 cons 需 要 构造 序 对 时 ， 
它 就 在 工作 存储 区 里 分 配 它们 。 当 工作 存储 区 满 的 时 候 就 执行 废料 收集 ， 确 定位 于 工作 存储 
器 里 的 所 有 有 用 序 对 的 位 置 ， 并 将 它们 复制 到 自由 存储 区 里 的 一 些 连续 位 置 去 。 确 定 有 用 序 
对 的 方式 是 从 机 器 的 寄存 器 出 发 ,追踪 所 有 的 car 和 cdr 指针。 由 于 我 们 不 复制 废料 ， 因 此 可 
以 预期 还 会 剩 下 一 些 自由 存储 ， 可 供 分 配给 新 的 序 对 。 此 外 ， 原 来 工作 存储 区 里 也 不 再 有 有 
用 的 东西 了 ， 因 为 其 中 有 用 的 序 对 都 已 复制 。 这 样 ， 如 果 我 们 交换 工作 存储 区 和 自由 存储 区 
的 角色 ， 计 算 就 可 以 继续 进行 下 去 ， 在 新 的 工作 存储 区 〈 它 也 就 是 原来 的 自由 存储 区 ) 里 分 
配 新 的 序 对 。 当 这 一 存储 区 满 时 ， 我 们 又 可 以 将 其 中 有 用 的 序 对 复制 到 新 的 自由 存储 区 〈 它 
也 就 是 原来 的 工作 存储 区 )  。 


停止 并 复制 废料 收集 的 实现 

现在 我 们 要 用 自己 的 寄存 器 机 器 语言 ， 给 出 这 种 停止 并 复制 算法 的 更 多 细节 。 现 在 假定 
存在 着 一 个 称 为 root 的 寄存 器 ， 其 中 包含 一 个 指针 ， 它 指向 了 一 个 结构 ， 该 结构 最 终 能 够 指 
向 所 有 可 以 访问 的 数据 。 这 件 事情 很 容易 安排 ， 我 们 只 需 在 废料 收集 即将 开始 时 将 机 器 里 所 
有 寄存 器 的 内 容 保存 到 一 个 预先 分 配 好 的 表 里 ， 并 让 root 指向 这 个 表 ”。 我 们 还 假定 ， 除 了 
当前 的 工作 存储 区 外 ， 还 存在 着 一 个 自由 存储 区 ， 可 以 把 有 用 的 数据 复制 进去 。 当 前 工作 存 
储 区 由 两 个 向 量 组 成 ， 其 基 址 分 别 存放 在 称 为 the-cars 和 the-cdrs 的 寄存 器 里 ， 自 由 存 
储 区 的 基 址 存放 在 寄存 器 new-cars 和 new-cdrs 里 。 

当 计算 耗 尽 了 当前 工作 存储 区 里 的 所 有 自由 单元 时 ， 就 触发 了 废料 收集 。 也 就 是 说 ， 事 
情 发 生 在 某 次 cons 操 作 企 图 去 增加 free 指 针 ， 使 它 超出 当前 工作 存储 向 量 范围 的 时 候 。 当 
废料 收集 完成 时 ，root 指 针 将 指向 新 的 存储 区 ， 从 root 出 发 可 以 访问 的 所 有 对 象 都 已 经 移 
入 新 的 存储 区 。 而 Eree 指 针 指 向 新 存储 区 里 的 下 一 个 位 置 ， 新 的 序 对 将 从 那里 分 配 。 此 外 ， 
工作 存储 区 和 自由 存储 区 的 角色 也 交换 了 一 一 新 的 序 对 将 在 新 的 存储 区 里 分 配 ， 从 free 指 针 
所 指 的 位 置 开始 。( 原 先 的 ) 工作 存储 区 现在 已 经 变 成 可 用 的 新 存储 区 ， 它 将 用 于 下 一 次 废料 


2%9 假定 这 里 的 堆栈 按照 5.3.1 节 的 描述 用 表 的 形式 表示 ， 因 此 位 于 堆栈 里 的 数据 项 都 可 以 通过 堆栈 寄存 器 访问 。 
300 这 一 思想 是 Minsky 发 明 并 最 早 实现 的 ， 作 为 MIT 电子 学 实验 室 里 郑 DP-1 所 做 的 Lisp 系统 的 一 部 分 。 Fenichel 
和 Yochelson (1969) 进一步 发 展 了 这 一 思想 ， 并 将 它 用 于 Multics 分 时 系统 中 的 Lisp 实现 。 后 来 Baker (1978 ) 
开发 出 这 一 思想 的 一 个 “实时 ”版 本 ， 其 中 不 需要 在 废料 收集 时 将 计算 停 下 来 。Baker 的 思 想 又 得 到 Hewitt 、 
Lieberman 和 Moon 的 进一步 发 展 (参见 Lieberman and Hewitt 1983 ) ， 以 利用 实际 中 的 一 种 情况 : 计算 中 得 到 
的 一 些 结构 更 具 变动 性 ， 而 另 一 些 结构 则 更 持久 些 。 
另 一 种 常用 的 废料 收集 技术 是 标记 -- 清扫 方 靶 。 其 工作 过 程 包括 追踪 从 机 器 寄存 器 出 发 可 以 访 问 的 所 有 
结构 ， 在 遇 到 每 个 结构 时 做 好 标记 。 而 后 扫描 整个 存储 区 ， 将 所 有 没有 标记 的 位 置 作为 废料 “ 扫 入 ”自由 空 
间 ， 使 其 可 以 重新 使 用 。 有 关 标 记 一 清扫 方法 的 更 完整 讨论 可 参见 Allen 1978, 
Minsky-Fenichel-Yochelson 的 算法 已 经 成 为 实用 的 大 型 存储 系统 的 主导 算法 ， 因 为 它 只 需 要 检查 存储 器 
里 的 有 用 部 分 。 标 记 -- 清扫 方法 的 情况 与 此 不 同 ， 那 里 的 清扫 阶段 必须 检查 存储 区 区 的 所 有 部 分 。 停 止 并 复制 
方法 的 另 一 优势 在 于 它 是 一 种 紧缩 型 废料 收集 算法 。 也 就 是 说 ， 在 废料 收集 阶 段 结束 时 ， 有 用 数据 都 被 移 到 
一 片 连续 存储 位 置 中 ， 所 有 的 废料 都 被 挤 了 出 来 。 对 于 使 用 虚拟 存储 器 的 机 器 而 言 ， 这 样 可 能 得 到 很 可 观 的 
性 能 提升 ， 因 为 在 这 种 系统 里 ， 访问 非常 分 散 的 存储 地 址 可 能 需要 更 多 的 换 页 操作 。 
301 这 一 寄存 器 表 里 并 不 包含 用 于 存储 分 配 系统 的 寄存 器 一 -Toot 、the-cars、the-cdxs， 以 及 这 一 节 里 引 
进 的 其 他 寄存 器 。 
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收集 。 图 5-15 显 示 的 是 在 一 次 废料 收集 之 前 和 之 后 的 存储 安排 情况 。 


废料 收集 之 前 


the-cars 
有 用 数据 与 废料 混合 工作 存储 区 
the-cdrs 


new-cars ore 
空闲 存储 区 空闲 存储 区 

new-cdrs 
new-cars 废弃 存储 区 新 空闲 
new-cdrs .存储 区 
the-cars ` 

有 用 数据 空闲 区 新 工作 
the-cdrs 存储 区 


free 
图 5-15 废料 收集 过 程 完成 存储 区 的 重新 配置 


废料 收集 过 程 中 的 状态 控制 也 就 是 维持 两 个 指针 ，free 和 scan。 它 们 被 初始 化 到 新 存 
储 区 的 开始 位 置 。 在 算法 开始 时 ,我们 把 root 所 指向 的 序 对 ( 根 ) 重新 分 配 到 新 存储 区 的 开 
始 位 置 。 在 复制 了 这 个 序 对 之 后 ，root 指 针 也 将 被 调整 为 指向 这 一 新 位 置 ，free 指 针 的 值 
.被 增加 。 此 外 ， 还 要 在 这 一 序 对 原来 的 位 置 加 上 标记 ， 说 明 这 个 位 置 的 内 容 已 经 移 走 了 。 标 
记 方 法 如 下 : 在 原 序 对 的 car 位 置 里 放 一 个 特殊 标记 ， 表 示 这 是 一 个 已 经 移 走 的 对 象 RK 
传统 ， 这 种 对 象 称 为 破碎 的 心 ) ， 在 其 cdr 位 置 里 放 一 个 前 向 指针 ， 指 向 这 个 对 象 移动 后 
的 新 位 置 。 

在 为 根 重新 分 配 之 后 ， 废 料 收 集 程序 就 进入 了 它 的 基本 循环 。 在 这 个 算法 的 每 一 步 ， 扫 
描 指针 scan (初始 时 指向 重新 分 配 的 根 ) 指向 的 是 一 个 本 身 已 经 移入 新 存储 区 的 对 象 ， 但 它 
的 car 和 cdr 指 针 仍然 指 着 老 存储 区 里 的 对 象 。 现 在 要 重新 分 配 这 样 的 被 指 对 象 ， 并 相应 增加 


302 术语 破碎 的 心 是 David Cressey 创 造 的 ， 他 写 出 了 MDL 的 废料 收集 系统 。MDEL 是 20 世纪 70 年 代 早期 在 MIT 开 
发 的 一 种 Lisp 方 言 。 
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scan 指 针 的 值 。 为 了 重新 分 配 一 个 对 象 〈 例 如 由 我 们 正在 扫描 的 那个 序 对 的 caz 指 针 指 向 的 
对 象 ) ， 我 们 需要 检查 它 ， 看 看 这 一 对 象 是 否 已 经 移 走 (看 这 个 对 象 的 car 位 宣 是 否 存放 着 一 
个 破碎 的 心 标记 ) 。 如 果 该 对 象 还 没有 移 走 ， 我 们 就 将 它 复制 到 由 free 所 指 的 位 置 ， 更 新 
free, 在 这 个 对 象 的 老 位 置 里 设置 破碎 的 心 标志 和 前 向 指针 ， 并 更 新 指向 这 个 对 象 的 指针 
(在 现在 的 假设 里 ， 也 就 是 正 被 扫描 的 序 对 里 的 car 指针 )， 使 之 指向 刚刚 确定 的 新 位 置 。 如 
果 这 一 对 象 已 经 移 走 ， 那 么 就 利用 它 的 前 向 指针 (可 以 从 破碎 的 心中 的 cdr 位置 找到 ) 替换 
正 被 扫描 的 序 对 里 的 指针 。 最 终 所 有 可 访问 的 对 象 都 完成 了 移动 和 扫描 ， 此 时 scan 指 针 将 超 
过 free 指 针 ， 这 一 过 程 就 结束 了 。 

我 们 可 以 用 一 部 寄存 器 机 器 的 指令 序列 描述 这 种 停止 并 复制 算法 。 重 新 分 配 一 个 对 象 的 
基本 步骤 由 一 个 称 为 relocate-old-zesult-in-new 的 子 程序 完成 。 这 个 子 程序 的 参数 
是 指向 需要 移动 的 对 象 的 指针 ， 它 来 自 一 个 称 为 019 的 寄存 器 。 子 程序 为 指定 对 象 重新 分 配 
存储 (在 这 一 过 程 中 ， 也 就 是 增 大 free 的 值 )， 将 重新 分 配 后 的 对 象 的 地 址 放 入 另 一 个 称 为 
new 的 寄存 器 ， 最 后 利用 分 支 指令 ， 按 照 保存 在 寄存 器 relocate-continue 里 的 人 口 点 返 
回 。 在 开始 进行 废料 收集 时 ， 我们 在 初始 化 free 和 scan 之 后 调用 这 个 子 程序 ， 为 root 指 针 
做 重新 分 配 。 在 完成 了 root 的 重新 分 配 后 ， 我 们 就 将 root 指 针 设 置 到 新 的 根 位 置 ， 而 后 进 
入 废料 收集 程序 的 主 循环 。 
begin-garbage-collection 

(assign free (const 0)) 

(assign scan (const 0)) 

(assign old (reg root)) 

(assign relocate-continue (label reassign-root)) 
(goto (label relocate-old-result-in-new)) 

reassign-root 
(assign root (reg new)) 
(goto (label gc-loop)) 


在 废料 收集 程序 的 主 循环 里 ， 我 们 必须 检查 是 否 还 存在 着 需要 扫描 的 对 象 。 完 成 此 事 的 
方式 就 是 检查 scan 指 针 是 否 已 经 与 Eree 指 针 重 合 。 如 果 这 两 个 指针 相等 ， 那 么 所 有 可 以 访 
问 对 象 都 已 完成 了 重新 分 配 ， 现 在 就 可 以 分 支 到 9c-f1ip 去 了 。 在 那里 需要 做 一 些 清理 工作 ， 
使 我 们 能 继续 进行 前 面 中 断 下 来 的 计算 。 如 果 还 有 需要 扫描 的 序 对 ， 我 们 就 调用 子 程序 ， 为 
下 一 个 序 对 的 car 做 重新 分 配 (将 那个 指针 car 放 入 01d)， 并 设置 relocate-continue 寄 
存 器 ， 使 子 程序 能 够 返回 到 更 新 car 指 针 的 位 置 。 


gc-loop 
(test (op =) (reg scan) (reg free)) 
(branch (label gc-flip)) 
(assign old (op vector-ref) (reg new-cars) (reg scan) } 
(assign relocate-continue (label update-car)) 
(goto (label relocate-old-result-in-new) ) 


在 update-car 之 后 ,我 们 修改 被 扫描 的 这 个 序 对 的 car 指 针 ， 而 后 去 处 理 这 个 序 对 的 
cdr 指 针 。 这 次 完成 重新 分 配 之 后 返回 到 update-cdr。 在 对 cdr 的 重新 分 配 和 更 新 之 后 ， 
对 于 这 一 序 对 的 扫描 已 经 完成 ， 此 时 就 可 以 继续 进行 主 循环 了 。 


update-car 


x~ 
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(perform 

(Op vewtor-set!) (reg new-cars) (reg scan) (reg new)) 
(assign old (op vector-ref) (reg new-cdrs) (reg scan) ) 
(assign relocate-continue (label update-cdr) ) 

(goto (label relocate-old-result-in-new) ) 


update-cdr 
(perform 
(op vector-set!) (reg new-cdrs) (reg scan) (reg new)) 
(assign scan (op +) (reg scan) (const 1)) 
(goto (label gc-loop)) 


子 程序 relocate-old-Iesult-in-new 按 如 下 方式 重新 分 配对 象 : 如 果 要 求 重新 分 
配 的 对 象 (hold) 不 是 序 对 ， 那 么 子 程序 就 返回 指向 该 对 象 的 同一 个 指针 ， 并 不 做 任 
何 修改 (在 new 里 )。 举 例 说 ， 如 果 现 在 扫描 到 一 个 序 对 ， 其 car 部 分 是 数 4。 如 果 我 们 像 
5.3.1 节 所 言 ， 将 这 个 car 部 分 表示 为 h4 ， 那 么 我 们 当然 希望 “重新 分 配 ” 后 的 car 指针 仍然 
是 n4。 如 果 情 况 不 是 这 样 ( 遇 到 的 是 序 对 ) ， 那 么 就 必须 执行 重新 分 配 操作 。 如 果 要 求 重新 分 
配 的 位 置 里 包含 着 一 个 破碎 的 心 标记 ， 那 就 说 明 该 序 对 已 经 移 走 了 ， 因 此 需要 提取 出 其 中 的 
前 向 地 址 (从 破碎 的 心里 的 cdr 位 置 )， 并 在 new 里 返回 这 个 地 址 。 如 果 指 针 o1ld 指 向 的 是 一 
个 尚未 移动 的 序 对 ， 那 就 把 这 个 序 对 移 到 新 存储 区 里 的 第 一 个 自由 位 置 (由 free 指 向 )， 将 
破碎 的 心 标志 和 前 向 指针 存 和 人 这 一 序 对 的 老 位 置 ， 设 置 好 这 个 破碎 的 心 。relocate-~old- 
result-in-new 用 寄存 器 oLldcr 保 存 由 olLd 指 向 的 对 象 的 caz 或 者 cdr30 。 


relocate-old-result-in-new 
(test (op pointer-to-pair?) (reg old)) 
(branch (label pair)) 
(assign new (reg old)) 
(goto (reg relocate-continue) ) 
pair 
(assign older (op vector-ref) (reg the-cars) (reg old)) 
(test (op broken-heart?) (reg oldcr)) 
(branch (label already-moved) ) 
(assign new (reg free)) ; new location for pair 
;; Update free pointer. 
(assign free (op +) (reg free) (const 1)) 
;; Copythe car and cdr to new memory. 
(perform (op vector-set!) 
(reg new-cars) (reg new) (reg oldcr)) 
(assign older (op vector-ref) (reg the-cdrs) (reg old) ) 
(perform (op vector-set!) 
(reg new-cdrs) (reg new) (reg oldcr)) 
+3 Construct the broken heart. 
(perform (op vector-set!) 
(reg the-cars) (reg old) (const broken-heart) ) 


303 这 一 废料 收集 程序 使 用 了 一 个 低级 谓词 pointer-to-pair? ， 而 没有 用 表 结 构 操 fPair? ， 这 是 因为 在 真 
实 的 系统 里 ， 有 许多 不 同 的 东西 都 需要 为 了 废料 收集 而 当 作 序 对 来 处 理 。 举 例 说 ， 在 一 个 符合 IEEE 标 准 的 
Scheme 系统 里 ， 一 个 过 程 对 象 也 可 能 被 实现 为 一 类 特别 的 “ 序 对 "， 它 们 就 不 会 满足 Pair? 谓 词 。 如 果 只 是 
为 了 模拟 ， 那 么 我 们 就 可 以 用 pair? 实 现 Pointer-to-Pair? 。 


(perform 
(op vector-set!) (reg the-cdrs) (reg old) (reg new)) 
(goto (reg relocate-continue) ) 
already-moved 
(assign new (op vector-ref) (reg the-cdrs) (reg old)) 
(goto (reg relocate-continue) ) 
在 这 一 废料 收集 过 程 的 最 后 ， 我 们 还 需要 交换 老 存 储 区 和 新 存储 区 的 角色 ， 为 此 只 需 交 
换 指针 的 值 ， 将 the-cars 与 new-carSs 交 换 ，the-cdrsgs 与 new-cdrs 交 换 。 这 样 就 已 经 做 
好 了 准备 ， 可 以 在 下 次 存储 区 耗 尽 时 执行 下 一 次 废料 收集 了 。 


gc-flip 
(assign temp {reg the-cdrs)) 
(assign the-cdrs (reg new-cdrs)) 
(assign new-cdrs (reg temp)) 
(assign temp (reg the~-cars) ) 
(assign the-cars (reg new-cars) ) 
(assign new-cars (reg temp) ) 


5.4 显 式 控制 的 求 值 器 


在 5.1 节 里 ， 我 们 看 到 如 何 将 简单 的 Scheme 程序 变换 为 寄存 器 机 器 的 描述 。 下 面 将 要 对 一 
个 更 复杂 的 程序 做 这 种 变换 。 这 里 将 要 处 理 的 就 是 4.1.1 节 到 4.1.4 节 讨论 的 元 循环 求 值 器 ， 该 
程序 说 明了 一 个 Scheme 解 释 器 的 行为 可 以 怎样 用 一 对 过 程 eval 和 appPly 描 述 。 在 本 节 里 ， 
我 们 将 要 开发 一 个 显 式 控制 求 值 器 ， 用 以 说 明 求 值 过 程 中 所 用 的 过 程 调用 的 参数 传递 的 基础 
机 制 ， 说 明 如 何 基于 寄存 器 和 堆栈 操作 描述 这 种 机 制 。 除 此 之 外 ， 显 式 控制 求 值 器 还 可 以 作 
为 Scheme 解释 器 的 一 种 实现 ， 而 且 ， 描 述 这 一 实现 时 所 用 的 语言 也 非常 接近 常规 计算 机 的 本 
机 机 器 语言 。 这 个 求 值 器 可 以 在 5.2 节 的 寄存 器 机 器 模拟 器 上 执行 。 换 一 个 看 法 ， 它 也 可 以 用 
作 构 造 一 个 机 器 语言 的 Scheme 求 值 器 实现 的 出 发 点 ， 或 者 甚至 是 作为 一 个 求 值 scheme 表 达 式 
的 特殊 机 器 的 出 发 点 。 图 5-16 显 示 的 就 是 这 样 一 个 硬件 实现 : 一 片 作为 Scheme 求 值 器 的 硅 忆 
片 。 这 一 芯片 的 设计 者 就 是 从 描述 一 部 寄存 器 机 器 的 数据 通路 和 控制 器 规范 开始 ， 类 似 于 我 
们 将 要 在 本 节 里 描述 的 求 值 器 ， 而 后 利用 设计 自动 化 工具 程序 ， 构 造 出 集成 电路 的 布线 ”。 


寄存 器 和 操作 

在 设计 显 式 控制 求 值 器 时 ， 我 们 必须 描述 用 于 这 部 寄存 器 机 器 的 各 种 操作 。 在 采用 抽象 
语法 的 方式 描述 元 循环 求 值 器 时 使 用 了 一 些 过 程 ， 例 如 quoted? 和 make-~procedure。 为 
了 实现 相应 的 寄存 器 机 器 ， 我 们 就 需要 将 这 些 过 程 展开 为 基本 的 表 结 构 操作 序列 ， 在 我 们 的 
寄存 器 机 器 上 实现 这 些 操作 。 当 然 ， 这 样 做 会 使 这 个 求 值 器 变 得 非常 长 ， 使 它 的 基本 结构 被 
许多 细节 和 弄 得 很 不 清楚 。 为 使 这 一 展示 更 清晰 一 些 ， 我 们 将 把 4.1.2 节 中 给 出 的 语法 过 程 A 
及 在 4.1.3 和 4.1.4 节 给 出 的 表示 环境 和 其 他 运行 时 数据 的 过 程 ， 都 作为 这 一 寄存 器 机 器 的 基本 
操作 。 如 果 要 完整 地 描述 这 一 求 值 器 ， 使 它 能 用 低级 的 机 器 语言 编程 实现 ， 或 者 在 硬件 中 实 
现 ， 我 们 就 需要 用 更 基本 的 操作 取代 这 些 操作 ， 还 要 用 到 5.3 节 所 解释 的 表 结构 实现 。 

我 们 的 Scheme 求 值 器 寄存 器 机 器 里 包含 了 一 个 堆栈 和 七 个 寄存 器 : exp. env, val, 
continue、proc、argl1 和 unev。exp 用 于 掌握 住 被 求 值 的 表达 式 ，env 里 包含 着 这 一 求 


su 有 关 这 个 芯片 及 其 设计 方法 的 更 多 信息 ， 可 以 参见 Batali, et al. 1982, 
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值 的 进行 所 在 的 环境 。 在 求 值 结束 时 ，val 里 包含 着 通过 在 指定 环境 里 求 值 表 达 式 得 到 的 结 
果 。continue 寄 存 器 用 于 实现 递归 ， 就 像 5.1.4 节 里 所 解释 的 那样 (这 一 求 值 器 需要 调用 其 
自身 ， 因 为 对 一 个 表达 式 的 求 值 将 要 求 对 其 中 的 子 表达 式 求 值 ) 。 寄 存 器 Pproc、argl 和 
unev 用 在 求 值 组 合式 的 时 候 。 


图 5-16 实现 了 一 个 Scheme 求 值 器 的 芯片 


我 们 将 不 再 画 数据 通路 图 去 说 明 求 值 器 里 的 寄存 器 与 操作 如 何 连接 ， 也 不 准备 罗列 出 这 
一 机 器 中 所 有 操作 。 这 些 都 隐 含 在 求 值 器 的 控制 器 里 ， 下 面 要 介绍 它 的 各 方面 细节 。 


5.4.1 显 式 控制 求 值 器 的 内 核 


这 一 求 值 器 的 核心 部 分 是 从 eval-dispatch 开 始 的 指令 序列 ， 它 对 应 于 4.1.1 节 中 描述 
的 元 循环 求 值 器 里 的 eval 过 程 。 当 控制 器 从 eval-dispatch 开 始 工作 时 ， 它 将 在 由 env 确 
定 的 环境 里 对 由 exp 确 定 的 表达 式 求 值 。 当 这 一 求 值 完成 时 ,控制 器 将 进入 保存 在 寄存 器 
continue 里 的 入 口 点 , 而 Val 寄 存 器 里 保存 着 表达 式 的 值 。 就 像 元 循环 求 值 器 里 的 eVval 一 
样 ， eval-dispatch 的 结构 也 是 一 个 基于 被 求 值 表达 式 的 类 型 的 分 情况 分 析 ”。 


eval-dispatch 
(test (op self-evaluating?) (reg exp)) 
(branch (label ev-self-eval) ) 
(test (op variable?) (reg exp)) 
(branch (label ev-variable) ) 
(test (op quoted?) (reg exp) ) 
(branch (label ev-quoted) ) 
(test (op assignment?) (reg exp)) 
(branch (label ev-assignment) ) 
(test (op definition?) (reg exp)) 
(branch (label ev-definition) ) 
(test (op if?) (reg exp)) 


w 
S 
a 


在 这 个 求 值 器 里 ， 分 派 采 用 一 系列 test 和 branch 指 令 描 述 。 也 可 以 换 一 种 方式 ， 采 用 一 种 数据 导向 的 风格 
写 出 它 来 (在 真实 的 系统 里 常常 是 这 样 ) ， 以 避免 执行 一 系列 检测 的 需要 ， 并 能 有 利于 定义 新 的 表达 式 类 型 。 
一 台 特 别 为 运行 Lisp 而 设计 的 机 器 中 很 可 能 包含 一 条 dispatch-on-type 指 令 ， 它 能 有 效 地 执行 这 种 数据 
导向 的 分 派 工作 。 


54 BRRR B 385 


{branch {label ev-if)) 

(test (op lambda?) (reg exp)) 

(branch (label ev-lambda)) 

(test (op begin?) (reg exp)) 

(branch (label ev-begin)) 

(test (op application?) (reg exp)) 
(branch (label ev-application) ) 

(goto (label unknown-expression-type) } 


简单 表达 式 的 求 值 
数 和 字符 串 (它们 都 是 自 求 值 的 )、 变 量 、3 引 号 式 和 lambda 表 达 式 中 都 没有 需要 进一步 
求 值 的 子 表达 式 ， 对 于 它们 ， 求 值 器 简单 地 将 正确 的 值 放 入 val 寄 存 器 里 ， 并 从 continue 
所 描述 的 入 口 点 继续 执行 下 去 。 对 简单 表达 式 的 求 值 由 下 面 的 控制 器 代码 完成 : 
ev-self-eval 
{assign val (reg exp)) 
(goto (reg continue)) 
ev-variable 
(assign val (op lookup-variable-value) (reg exp) (reg env)) 
(goto (reg continue) ) 
ev-quoted e 
(assign val (op text-of-quotation) (reg exp)) 
(goto (reg continue) ) 
ev-lambda 
(assign unev (op lambda-parameters) (reg exp)) 
(assign exp (op lambda-body) (reg exp)) 
(assign val (op make-procedure) 
(reg unev) (reg exp) (reg env)) 
(goto (reg continue) ) 


请 注意 ev-lambda 怎 样 利用 unev 和 exp 寄 存 器 保存 参数 和 lambda 表 达 式 的 体 ， 使 它们 可 以 
作为 参数 ， 与 env 里 的 环境 一 起 传递 给 make-procedure 操 作 。 

过 程 应 用 的 求 值 

过 程 应 用 由 组 合式 描述 ， 其 中 包含 了 运算 符 和 运算 对 象 。 这 个 运算 符 是 一 个 子 表达 式 ， 
其 值 是 一 个 过 程 ， 而 运算 对 象 是 一 些 子 表达 式 ， 它 们 的 值 就 是 这 个 过 程 应 该 作用 于 的 实际 参 
数 。 在 元 循环 求 值 器 里 ，eval 处 理 过 程 应 用 的 方式 是 递归 地 调用 自己 ， 去 求 值 组 合式 里 的 每 
个 元 素 ， 而 后 将 结果 送 给 app1LyY， 由 它 去 执行 实际 过 程 应 用 。 显 式 控制 求 值 器 也 需要 做 同样 
的 事情 ， 那 些 递 归 调 用 都 通过 goto 指 令 实现 ， 还 需要 用 堆栈 保存 起 一 些 寄存 器 ， 以 便 在 递归 
调用 返回 之 后 恢复 它们 。 在 每 个 调用 之 前 ， 我 们 都 需要 仔细 辩 明 哪些 寄存 器 必须 保存 《因为 
后 面 还 需要 它们 的 值 ) *. 

在 对 过 程 应 用 求 值 时 ， 我 们 首先 求 值 运算 符 以 产生 出 一 个 过 程 ， 这 个 过 程 后 来 要 被 应 用 
于 求 值得 到 的 那些 实际 参数 。 为 了 完成 运算 符 的 求 值 ， 我 们 需要 将 它 移 人 exP 寄 存 器 并 转 回 


w 在 把 用 过 程 性 语言 (例如 Lisp ) 描述 的 算法 翻译 为 寄存 器 机 器 语言 时 ， 这 个 问题 特别 重要 ， 其 中 的 细 枝 末 方 
很 多 。 如 果 不 采用 只 保存 必须 保存 的 东西 的 方式 ， 我 们 也 可 以 在 每 次 递归 调用 之 前 保存 所 有 寄存 器 (除了 
val 之 外 )。 这 种 方式 称 为 框架 堆栈 方式 ， 它 当然 能 工作 ， 但 是 却 可 能 保存 了 一 些 并 不 必须 保存 的 寄存 器 。 
对 那 种 堆栈 操作 代价 部 贵 的 系统 ， 这 样 做 可 能 对 系统 性 能 产生 很 大 影响 。 将 那些 后 面 不 再 需要 的 检查 保存 起 
来 ， 还 可 能 维持 了 一 些 原本 可 以 经 过 废料 收集 ， 回 到 自由 空间 重复 使 用 的 无 用 数据 。 


到 eval-dispatch 。 位 于 env 寄 存 器 里 的 环境 就 是 求 值 这 个 运算 符 时 所 需要 的 正确 环境 。 
但 是 我 们 还 是 需要 保存 起 这 一 环境 ， 以 便 将 来 用 于 运算 对 象 的 求 值 。 在 这 里 还 必须 把 运算 对 
象 提 取出 来 存 和 人 unev， 并 将 它 保存 到 堆栈 里 。 还 要 设 好 continue， 使 得 eval-dispatch 
能 在 运算 符 求 值 完 毕 之 后 回 到 ev-appl-did-operator 。 在 做 这 件 事情 之 前 ， 必 须 先 把 
continue 的 原 值 存 人 堆栈 ， 这 个 值 告诉 控制 器 在 完成 过 程 应 用 之 后 应 转向 何 处 。 
ev-application 
(save continue) 
(save env) 
(assign unev (op operands) (reg exp)) 
(save unev) 
(assign exp (op operator) (reg exp)) 
(assign continue (label ev-appl-did-operator) ) 
(goto (label eval-dispatch) ) 
在 对 于 运算 符 子 表达 式 的 求 值 返回 后 ， 我 们 需要 继续 去 求 值 组 合式 里 的 各 个 运算 对 象 ， 
并 将 求 出 的 实际 参数 积累 到 一 个 表 里 ， 保 存 到 arg1 中 。 为 此 ， 我 们 需要 首先 恢复 未 求 值 的 运 
算 对 象 及 其 求 值 环境 ， 并 将 arg1 初 始 化 为 一 个 空 表 。 而 后 将 Proc 寄存 器 设置 为 求 值 运算 符 
产生 出 的 那个 过 程 。 如 果 当 时 没有 运算 对 象 ， 我 们 就 直接 转 到 appPly-dispatch。 如 果 有 运 
算 对 象 ， 那 么 就 将 proc 保 存 到 堆栈 里 ， 并 开始 执行 参数 求 值 循环 。 


ev-appl-did-operator 
(restore unev) ; the operands 
(restore env) 
(assign argl (op empty-arglist)) 
(assign proc (req val)) ; the operator 
(test (op no-operands?) (reg unev)) 
(branch (label apply-dispatch) ) 
(save proc) 
每 执行 一 次 参数 求 值 循环 ， 完 成 对 取 自 unev 里 的 表 里 的 一 个 参数 的 求 值 ， 并 把 结果 积累 
到 argl 里。 在 求 值 一 个 运算 对 象 时 ， 我们 也 把 它 放 入 exp 寄 存 器 ， 并 在 设置 continue 寄 存 
器 后 转 到 eval-dispatch ， 以 便 这 个 积累 实际 参数 的 阶段 还 能 继续 下 去 。 在 转移 之 前 ， 还 
需要 保存 至 今 已 积累 起 来 的 实际 参数 (保存 在 arzg1 里 )， 求 值 环境 (保存 在 env) ， 以 及 剩 下 
的 那些 尚未 求 值 的 参数 (保存 在 unev )。 对 于 最 后 一 个 参数 的 求 值 是 一 种 特别 情况 ， 由 下 面 
的 ev~app1LI-1Last-arg 处 理 。 
ev-appl-operand-loop 
(save argl) 
(assign exp (op first-operand) (reg unev)) 


307 我 们 需要 为 4.1.3 节 里 求 值 器 的 数据 结构 过 程 增加 下 面 两 个 操作 参数 表 的 过 程 : 
(define (empty-arglist)“()) 


(define (adjoin-arg arg arglist) 
(append arglist (list arg))) 
还 需要 增加 下 面 的 语法 过 程 ， 以 检查 组 合式 的 最 后 参数 ; 


(define (last-operand? ops) 
(null? (cdr ops))) 
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(test (op last-operand?) (reg unev)) 

(branch (label ev-appl-last-arg) ) 

(save env) 

(save unev) 

(assign continue (label ev-appl-accumulate-arg) )} 
(goto (label eval-dispatch) ) 


在 完成 了 对 一 个 运算 对 象 的 求 值 后 ， 这 个 值 就 被 累积 到 arg1 的 表 里 ， 而 后 将 这 一 参数 从 
unev 里 尚未 求 值 的 运算 对 象 表 中 删除 ， 并 继续 对 下 面 的 参数 求 值 。 
ev-appl-accumulate-arg 
(restore unev) 
(restore env) 
(restore argl) 
(assign argl (op adjoin-arg). (reg val) (reg argl)) 
(assign unev (op rest-operands) (reg unev)) 
(goto (label ev-appl-operand-loop) ) 


最 后 一 个 参数 的 求 值 需要 不 同 的 处 理 方式 。 这 次 在 转 人 eval-dispatch 之 前 ， 已 经 不 
再 需要 保存 环境 和 未 求 值 参数 的 表 了 ， 因 为 在 最 后 一 个 运算 对 象 求 值 之 后 ， 它 们 也 都 不 需要 
了。 这 样 ， 我 们 将 从 这 一 求 值 返回 到 一 个 特殊 的 入 口 点 ev-appl-accum-1last-arg， 在 那 
里 恢复 实际 参数 表 ， 并 将 新 的 实际 参数 放 进 去 ， 恢 复 前 面 保存 的 过 程 并 转 去 执行 过 程 应 用 ”。 
ev-appl-last-arg 
(assign continue (label ev-appl-accum-last-arg)) 
(goto (label eval-dispatch) ) 
ev-appl-accum-last-arg 
(restore argl) 
(assign argl (op adjoin-arg) (reg val) (reg argl)) 
(restore proc) 
(goto (label apply-dispatch) ) 
参数 求 值 循 环 的 细节 情况 确定 了 解释 器 对 组 合式 中 各 个 运算 对 象 的 求 值 顺 序 (BI, KE 
到 右 或 者 从 右 到 左 一 一 见 练习 3.8)。 元 循环 求 值 器 并 没有 明确 规定 这 一 顺序 ， 而 是 由 它 的 实现 
所 在 的 那个 基础 Scheme 继承 得 到 自己 的 控制 结构 ”。 因为 first-operand 选 择 函 数 (ME 
ev-appL-operand-loop 里 ， 用 于 从 unev 提 取 顺 序 的 各 个 运算 对 象 ) 用 car 实 现 ， 而 选择 
函数 rest-operands 用 cdr 实 现 ， 现在 这 个 显 式 控制 求 值 器 将 采用 从 左 到 右 的 顺序 求 值 组 
合式 里 的 各 个 运算 对 象 。 
过 程 应 用 
入 口 点 apply-dispatch 对 应 于 元 循环 求 值 器 的 apPPlY 过 程 。 在 我 们 到 达 apP1ly- 
dispatch 的 时 候 ， 寄 存 器 Proc 里 包含 着 需要 应 用 的 过 程 ，arg1 里 包含 着 过 程 将 要 去 应 用 
的 已 经 求 出 值 的 实际 参数 表 。 保 存 起 的 continue 值 (最 开始 是 返回 到 eval-dispatch,， 


208 对 最 后 参数 采用 这 种 特殊 的 优化 处 理 方式 ， 称 为 胡 求 值 的 尾 递归 (Wand 1980)。 如 果 我 们 把 对 于 第 一 个 参 
数 的 求 值 也 作为 特殊 情况 对 待 ， 那 么 就 可 能 使 参数 表 的 求 值 更 加 高 效 。 因为 这 将 使 我 们 可 以 推迟 对 arg1 的 
初始 化 ， 直 到 做 完 第 一 个 参数 的 求 值 ， 因 此 也 避免 了 保存 arg1 的 工作 。 在 5.5 节 的 编译 器 执行 了 这 种 优化 
(请 与 5.5.3 节 的 construct-arglist 过 程 做 一 个 比较 Je 

3 在 元 循环 求 值 器 里 ， 运算 对 象 的 求 值 顺序 是 由 4.1.1 节 中 位 于 过 程 1ist-of-values 里 的 cons 对 参数 的 求 值 
顺序 确定 的 (参见 练习 .1)。 


在 ev-application 保 存 的 ) 在 堆栈 里 ， 它 告诉 我 们 在 得 到 了 过 程 应 用 的 结果 之 后 应 该 返回 
到 哪里 。 当 这 次 应 用 完成 后 ， 控 制 器 将 转移 到 由 保存 起 的 continue 值 所 确定 的 入 口 点 ， 过 
程 应 用 的 结果 存放 在 val 里 。 就 像 元 循环 求 值 器 里 的 apply 一 样 ， 现 在 也 有 两 种 情况 需要 考 
虚 ， 因 为 被 应 用 的 过 程 可 能 是 基本 过 程 ， 也 可 能 是 组 合 过 程 。. 
apply-dispatch 

(test (op primitive-procedure?) (reg proc)) 

(branch (label primitive-apply) ) 

(test (op compound-procedure?) {reg proc)) 

(branch (label compound-apply)) 

(goto (label unknown-procedure-type) ) 

我 们 假定 每 个 基本 过 程 的 实现 方式 都 保证 它 能 从 arg1 获 取 自 己 的 实际 参数 表 ， 并 将 结果 
存 人 val 里 。 为 了 描述 这 一 机 器 如 何 处 理 基 本 过 程 ， 我 们 就 必须 提供 一 个 控制 器 的 指令 序列 ， 
实现 每 一 个 基本 过 程 ， 并 为 primitive-apply 做 好 一 种 安排 ,使 之 能 分 派 到 由 Proc 的 内 容 
确定 的 基本 过 程 的 指令 序列 。 由 于 我 们 感 兴 趣 的 是 求 值 过 程 的 结构 ， 而 不 是 基本 过 程 的 细节 ， 
这 里 将 不 做 上 面 所 说 的 事情 ， 而 仅仅 用 一 个 apply-primitive-procedure 操 作 ， 表 示 把 
pzoc 里 的 过 程 应 用 于 arg1 里 的 实际 参数 。 为 了 能 用 5.2 节 的 模拟 器 去 模拟 这 个 求 值 器 RN 
用 了 一 个 过 程 app1Y-Primitive-procedure ， 它 基于 基础 的 Scheme 系统 去 执行 有 关 的 过 
程 应 用 ， 这 与 在 前 面 4.1.4 节 元 循环 求 值 器 里 的 做 法 一 样 。 在 计算 出 基本 过 程 应 用 的 值 之 后 ， 
我 们 恢复 寄存 器 continue ， 并 转 到 它 所 指定 的 入 口 点 。 


primitive-apply 
(assign val (op apply-primitive-procedure) 
{reg proc) 
(reg argl)) 
(restore continue) 
(goto (reg continue) ) 


在 应 用 一 个 组 合 过 程 时 ， 这 里 采用 的 做 法 也 与 元 循环 求 值 器 里 相同 。 我 们 将 构造 起 一 个 
框架 ， 其 中 把 过 程 的 形式 参数 约束 于 对 应 的 实际 参数 ， 用 这 一 框架 扩充 过 程 所 携带 的 环境 ， 
并 在 这 一 扩充 后 的 环境 里 求 值 构成 过 程 体 的 表达 式 序列 。 有 关 表 达 式 序列 的 求 值 问题 由 下 面 
5.4.2 节 描述 的 ev-sequence 处 理 。 


compound-apply 
(assign unev (op procedure-parameters) (reg proc)) 
(assign env (op procedure-environment) (reg proc)) 
(assign env (op extend~environment ) 
(reg unev) (reg argl) (reg env)) 
(assign unev (op procedure-body) (reg proc)) 
(goto (label ev-sequence) ) 


在 这 个 解释 器 里 ， 只 有 在 compound-apP17 处 需要 给 env 寄 存 器 赋 一 个 新 值 。 正 如 在 元 
循环 求 值 器 里 一 样 ， 这 个 新 环境 是 在 过 程 所 携带 的 环境 的 基础 上 构造 起 来 的 ， 加 入 了 实际 参 
数 表 与 相应 的 变量 表 的 约束 。 


5.4.2 序列 的 求 值 和 尾 递归 
在 显 式 控制 求 值 器 里 ,位 于 ev-sequence 的 部 分 与 元 循环 求 值 器 里 的 eval~sequence 
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过 程 类 似 。 它 处 理 过 程 体 里 或 者 显 式 的 begin 表 达 式 里 的 表达 式 序列 。 
在 求 值 显 式 的 begin 表 达 式 时 ， 我 们 先 把 被 求 值 的 表达 式 序 列 放 入 unev, 将 continue 
保存 到 堆栈 里 ， 而 后 转 跳 到 ev~sequence。 
ev-begin x 
(assign unev (op,pegin-actions) (reg exp)) 
(save continue) 
(goto (label ev-sequence) ) 
对 于 过 程 体 里 的 隐 式 序列 的 处 理 ， 就 是 直接 从 compound-apply 跳 到 ev-sequence。 在 这 
一 点 ， 所 需 的 continue 已 经 保存 在 堆栈 里 ， 这 是 由 ev-application 保 存 的 。 
位 于 ev-sequence 的 入 口 和 ev-sequence-continue 形 成 了 一 个 循环 TA 中 顺序 
地 求 值 序列 里 的 一 个 个 表达 式 。 尚 未 求 值 的 表达 式 表 保存 在 unev 。 在 对 一 个 表达 式 求 值 之 前 ， 
我 们 要 检查 这 个 序列 里 是 否 还 有 另外 的 表达 式 需 要 求 值 。 如 果 有 ， 那 么 就 把 剩 下 的 未 求 值 表 
达 式 (在 unev 里 ) 和 当时 的 环境 (在 env 里 ) 保存 到 堆栈 ， 因为 在 求 值 那些 表达 式 时 还 需要 
用 这 个 环境 。 然 后 去 调用 eval-dispatch 完 成 表达 式 的 求 值 。 从 这 一 求 值 返回 后 ， 在 ev- 
sequence-continue 处 恢复 保存 起 来 的 两 个 寄存 器 。 
对 序列 里 最 后 一 个 表达 式 采 用 了 不 同 的 处 理 方式 ， 由 入 口 点 ev-sequence-last-exp 
处 理 。 因 为 到 这 时 ， 求 值 完 这 个 表达 式 后 已 经 没有 其 他 表达 式 了 ， 因 此 在 转 信 eval- 
dispatch 之 前 就 不 需要 保存 unev 和 env。 整 个 序列 的 值 也 就 是 最 后 这 个 表达 式 的 值 ， 因 此 ， 
在 对 最 后 这 个 表达 式 的 求 值 完成 后 已 经 不 必 再 做 其 他 事情 ， 只 需要 从 当时 堆栈 里 保存 的 入 口 
点 继续 下 去 (这 是 由 ev-application 或 者 ev-begin 保 存 的 )。 此 时 不 应 该 采用 准备 好 
continue 为 eval-dispatch 做 好 返回 这 里 的 安排 ， 而 后 从 堆栈 里 恢复 continue 并 从 这 
个 入口 点 继续 的 方式 ， 而 是 在 转 到 eval-dispatch 前 ， 直 接 从 堆栈 里 恢复 continue。 这 
就 使 eval-dispatch 在 完成 了 这 里 的 表达 式 求 值 之 后 ， 能 够 从 continue 里 的 那个 入 口 点 
继续 下 去 。 


ev-sequence 
{assign exp (op first-exp) (reg unev)) 
{test (op last-exp?) (reg unev)) 
(branch (label ev-sequence-last-exp)) 
(save unev) 
(save env) 
(assign continue (label ev-sequence-continue) ) 
(goto (label eval-dispatch) ) 
ev-sequence-continue 
(restore env) 
(restore unev) 
(assign unev (op rest-exps) (reg unev) ) 
(goto (label ev-sequence) ) 
ev-sequence-last-exp 
(restore continue) 
(goto (label eval-dispatch) ) 


尾 递归 
在 第 1 章 里 我 们 说 过 ， 由 例如 下 面 过 程 描述 的 计算 


(define (sqrt-iter guess x) 
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(if (good-enough? guess x) 
guess 
(sqrt-iter (improve guess x) 
x))) 

She LEMAR. WME BEE eI GET 它 自身 定义 ) MERE 
说 ， 求 值 器 在 从 对 sqrt-iter 的 一 个 调用 转 到 下 一 个 调用 时 ， 完 全 本 必 保存 信息 6。 如 果 一 
个 求 值 器 在 执行 像 sqrt-iter 这 样 的 过 程 时 ， 采 用 的 方式 能 使 在 该 过 程 继 续 调用 自身 时 不 需 
要 增加 存储 ， 这 种 求 值 器 就 称 为 尾 递 归 求 值 器 。 在 第 4 章 里 求 值 器 的 元 循环 实现 中 ， 我 们 并 没 
有 描述 清楚 该 求 值 器 是 否 为 尾 递归 的 ， 因 为 那个 求 值 器 从 基础 Scheme 系统 继承 了 保存 状态 的 
机 制 。 对 于 现在 的 显 式 控制 求 值 器 ， 我 们 当然 就 可 以 追踪 全 部 的 求 值 过 程 ， 仔 细 观 察 在 过 程 
调用 时 堆栈 里 的 信息 堆积 情况 。 

我 们 这 里 的 求 值 器 确实 是 尾 递归 的 ， 因 为 在 求 值 一 个 序列 里 的 最 后 一 个 表达 式 时 ， 求 值 
器 是 直接 转 到 eval-dispatch ， 并 没有 把 任何 信息 存 信 堆栈。 这样 ， 对 于 序列 里 最 后 一 个 
表达 式 的 求 值 一 -即使 这 是 一 次 过 程 调用 (就 像 在 sqrt-iter 里 ， 过 程 体 里 的 最 后 表达 式 也 
就 是 那里 的 i1£ 表 达 式 ， 该 表达 式 将 归结 到 一 个 对 sqrt-iter 的 调用 ) 一 一 也 不 会 导致 向 堆栈 
里 积累 任何 信息 11。 

如 果 我 们 不 想 利用 这 一 情况 带 来 的 益处 (在 这 里 完全 不 必 保存 信息 )， 那 么 也 可 以 采用 如 
下 方式 实现 eval-sequence， 以 同样 方式 统一 处 理 序列 里 所 有 的 表达 式 一 一 将 寄存 器 内 容 
存 人 堆栈， 求 值 表达 式 ， 返 回 时 恢复 寄存 器 。 重 复 地 这 样 做 ， 直 至 完成 所 有 表达 式 的 求 值 '”。 

ev-sequence 

(test (op no-more-exps?) (reg unev)) 

(branch (label ev-sequence-end)}) 

(assign exp (op first-exp) (reg unev)) 

(save unev) 

(save env) 

(assign continue (label ev-sequence-continue) ) 

(goto (label eval-dispatch)} 
ev-sequence-continue 

(restore env) 

(restore unev) 

(assign unev (op rest-exps) (reg unev)) 

(goto (label ev-sequence) ) 
ev-sequence-end 

(restore continue) 

(goto (reg continue) ) 


这 看 起 来 好 像 只 是 对 前 面 有 关 序 列 求 值 的 代码 做 了 一 点 小 变动 ， 仅 有 的 不 同 点 就 是 对 序 


00 在 5.1 节 里 ， 我 们 已 经 看 到 过 如 何在 一 个 寄存 器 机 器 里 实现 这 种 计算 过 程 ， 那 里 并 没有 堆栈 ， 计 算 过 程 的 状态 
都 保存 在 一 组 固定 的 寄存 器 里 。 

m 用 在 ev-sequence 里 的 尾 递归 实现 ， 是 许多 编译 程序 里 所 采用 的 一 种 有 名 的 优化 技术 的 变形 。 在 编译 一 个 
过 程 时 ， 如 果 这 一 过 程 的 最 后 是 一 个 过 程 调用 ， 那 么 就 可 以 用 直接 跳 到 该 过 程 入 口 点 来 取代 这 个 调用 。 像 我 
们 在 本 节 中 所 做 的 这 样 ， 将 这 一 策略 构筑 到 解释 器 里 ， 就 为 整个 语言 提供 了 统一 的 优化 。 

3? no-more-exps? 可 以 采用 下 面 的 定义 : 


(define (no-more-exps? seq) (null? seq)) 
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列 里 最 后 一 个 表达 式 也 像 对 其 他 表达 式 一 样 处 理 ， 使 之 穿 过 保存 和 恢复 循环 。 对 于 任何 表达 
式 ， 修 改 后 的 解释 器 仍 将 给 出 同样 的 值 。 但 是 ， 对 于 尾 递归 实现 而 言 ， 这 一 改动 却 是 致命 的 ， 
因为 如 果 现 在 要 返回 ， 那 就 必须 是 在 序列 里 的 最 后 一 个 表达 式 完 成 求 值 之 后 ， 因 为 这 时 才能 
恢复 所 保存 的 (无 用 的 ) 寄存 器 值 。 在 侯 套 的 过 程 调用 中 ， 这 些 额 外 的 保存 值 就 会 积累 起 来 。 
由 于 这 种 情况 ， 像 sqrt-itez 一 类 的 过 程 所 需 的 空间 也 就 会 正比 于 迭代 的 次 数 ， 而 不 再 是 常 
量 空间 了 。 这 种 差异 可 能 变 得 非常 重要 ， 举 例 来 说 ， 在 采用 尾 递归 时 ， 一 个 无 穷 循环 也 可 以 
只 通过 过 程 调 用 机 制 来 表述 : 

(define (count n) 

(newline) 

(display n) 

(count (+ n 1))) 
如 果 没 有 尾 递归 ， 这 个 过 程 最 终 会 用 光 所 有 的 堆栈 空间 ， 而 要 想 表 述 选 代 型 的 计算 ， 就 必须 
有 过 程 调 用 之 外 的 其 他 机 制 了 。 


5.4.3 条 件 、 赋 值 和 定义 


与 元 循环 求 值 器 的 情况 一 样 ， 这 里 对 各 种 特殊 形式 的 处 理 ， 也 是 通过 有 选择 地 求 值 表达 
式 里 的 一 些 部 分 。 对 于 if 表 达 式 ， 我 们 必须 求 值 其 谓词 部 分 ， 并 基于 谓词 的 值 确定 是 求 值 它 
的 推论 部 分 昵 ， 还 是 求 值 它 的 替代 部 分 。 

在 求 值 其 谓词 部 分 之 前 ， 我 们 需要 把 if 表达 式 本 身 保存 起 来 ， 以 便 后 来 可 以 从 中 提取 出 
推论 部 分 或 者 替代 部 分 。 我 们 也 要 保存 当时 的 环境 ， 后面 求 值 推论 部 分 或 者 替代 部 分 时 还 需 
要 用 它 。 还 要 保存 起 continue， 因 为 将 来 还 要 根据 它 返 回 到 等 着 这 个 i£ 的 值 的 那个 表达 式 
去 ， 继 续 进 行 该 表达 式 的 求 值 。 

ev-if 

(save exp) ; save expression for later 
(save env) 

(save continue) 

(assign continue (label ev-if-decide) ) 

(assign exp (op if-predicate) (reg exp)) 

(goto (label eval-dispatch)) ; evaluate the predicate 


当 我 们 从 对 谓词 的 求 值 返回 时 ， 需 要 检查 得 到 的 值 是 真 还 是 假 ， 并 根据 这 一 检查 的 结果 ， 
把 表达 式 的 推论 部 分 或 者 替代 部 分 放 入 exp 里 ， 而 后 转向 eval-~dispatch。 请 注意 ， 在 这 
里 重新 恢复 了 env 和 continue ， 就 是 为 设置 好 eval-dispatch， 使 之 具有 正确 的 环境 以 及 
接受 if 表 达 式 值 的 正确 继续 位 置 。 
ev-if-decide 
(restore continue) 
{restore env) 
(restore exp) 
(test (op true?) (reg val)) 
(branch (label ev-if-consequent } ) 
ev-if-alternative 
{assign exp (op if-alternative) (reg exp)) 
(goto (label eval-dispatch) ) 
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ev-if-consequent 
(assign exp (op if-consequent) (reg exp)) 
(goto (label eval-dispatch) ) 


赋值 和 定义 

赋值 由 ev-assignment 处 理 ， 当 eval-dispatch 在 exp 里 过 到 了 赋值 表达 式 ， 控 制 
就 会 转 到 这 里 。 位 于 ev-assignment 的 代码 首先 求 出 赋值 中 表达 式 部 分 的 值 ， 而 后 把 这 一 
新 值 装 入 环境 里 。 这 里 假定 set~variable-value! 是 一 个 可 用 的 机 器 操作 。 


ev-assignment 
(assign unev (op assignment-variable) (reg exp)) 
(save unev) ; save variable for later 
(assign exp (op assignment-value) (reg exp) ) 
(save env) 
(save continue) 
(assign continue (label ev-assignment-1) ) 
(goto (label eval-dispatch)) ; evaluate the assignment value 
ev-assignment-1 
(restore continue) 
(restore env) 
(restore unev) 
(perform 
(op set-variable-value!) (reg unev) (reg val) (reg env)) 
(assign val (const ok)) 
(goto (reg continue) } 


定义 的 处 理 方式 与 此 类 似 ， 
ev-definition 
(assign unev (op definition-variable) (reg exp)) 
(save unev) ; save variable for later 
(assign exp (op definition-value) (reg exp) ) 
(save env) 
(save continue) 
(assign continue (label ev-definition-1)) 
(goto (label eval-dispatch)) ; evaluate the definition value 
ev-definition-1 
(restore continue) 
(restore env) 
(restore unev) 
(perform 
(op define-variable!) (reg unev) (reg val) (reg env)) 
(assign val (const ok)) 
(goto (reg continue) ) 


练习 5.23 ”请 扩充 这 个 求 值 器 ， 以 处 理 cond、1et 等 等 的 派生 表达 式 〈 见 4.1.2 节 ) 。 你 可 
以 假定 cond->if 等 等 语法 变换 都 是 可 用 的 机 器 操作 ， 以 “蒙混 过 关 ”” 。 

练习 5.24 ”请 将 cond 直 接 实现 为 一 个 新 的 特殊 形式 ， 而 不 是 将 它 归结 到 if 。 你 将 不 得 不 
构造 一 个 循环 ， 上 顺序 检 查 cond 里 各 个 子 句 的 谓词 ， 直 至 找到 一 个 真 的 ,而 后 用 eV- 


3 这 并 不 真 的 就 是 “蒙混 过 关 ” 。 在 实际 从 空白 开始 实现 时 ， 我 们 很 可 能 在 用 这 种 显 式 控制 求 值 器 先 去 解释 一 
个 Scheme 程序 ， 完 成 例如 cond->if 这 样 的 源 代 码 层次 的 变换 ， 在 实际 执行 前 先 运 行 这 个 程序 。 
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Sequence 去 求 值 这 一 子 句 中 的 动作 序列 。 
练习 5.25 ”请 基于 4.2 节 的 情 性 求 值 器 修改 这 个 求 值 器 ， 使 它 能 采用 正则 顺序 去 求 值 。 


5.4.4 求 值 器 的 运行 


有 了 这 个 显 式 控制 求 值 器 之 后 , 我 们 从 第 1 章 开 始 的 一 个 开发 也 就 到 达 了 终点 。 在 此 期 间 ， 
我 们 研究 了 求 值 过 程 的 一 系列 越 来 越 精确 的 模型 。 我 们 从 相对 非 形 式 的 代 换 模型 开始 ， 而 后 
在 第 3 章 里 将 其 扩充 为 一 个 环境 模型 ， 使 我 们 能 够 处 理 状态 和 变化 。 在 第 4 章 的 元 循环 求 值 器 
里 ， 我 们 用 Scheme 本 身 作 为 语言 ， 以 便 把 表达 式 求 值 过 程 中 环境 结构 的 构造 情况 显 式 地 表现 
出 来 。 现 在 有 了 寄存 器 机 器 ， 我 们 已 经 更 加 仔细 地 观看 了 求 值 器 里 有 关 存储 管理 、 参 数 传递 
和 控制 的 机 制 。 在 每 一 个 新 的 描述 层次 上 ， 我 们 都 提出 了 一 些 问 题 ， 并 解决 了 一 些 意 义 含糊 
的 情况 ， 而 在 前 面 的 对 求 值 过 程 的 处 理 不 那么 精确 的 层次 上 ， 这 些 根 本 就 不 会 出 现 。 为 了 理 
解 显 式 控制 求 值 器 的 行为 ， 我 们 可 以 去 模拟 执行 它 ， 并 监视 其 执行 过 程 。 7 
现在 要 为 我 们 的 求 值 器 机 器 安装 一 个 驱动 循环 ， 它 扮演 着 4.1.4 节 里 driver-1loop 过 程 
的 角色 。 这 一 求 值 器 将 反复 打印 出 提示 ， 读 入 一 个 表达 式 ， 通 过 转 到 eval-dispatch 去 求 
值 这 个 表达 式 ， 最 后 打印 出 结果 。 下 面 的 指令 序列 形成 了 这 一 显 式 控制 求 值 器 中 控制 器 序列 
的 最 前 面 一 部 分 …: 
read-eval-print-loop 
(perform (op initialize-stack) ) 
(perform 
(Op prompt-for-input) (const ";;; EC-Eval input:")) 
(assign exp (op read) ) 
(assign env (op get-global-environment) ) 
(assign continue (label print-result) ) 
(goto (label eval-dispatch)) 
print-result 
(perform 
(Op announce-output) (const ";;; EC-Eval value:")) 
(perform (op user-print) (reg val)) 
(goto (label read-eval-print-loop) ) 
当 我 们 在 一 个 过 程 中 遇 到 了 错误 时 (例如 ， 由 apP1y-dispatch 指 明 的 “未 知 过 程 类 型 
错误 ”)， 我 们 需要 打印 错误 信息 并 返回 到 驱动 循环 。 


unknown-expression-type 
(assign val (const unknown-expression-type-error) } 
(goto (label signal-error) ) 


au 在 这 里 ， 我 们 假定 cead 和 若干 打印 操作 都 可 以 作为 机 器 的 基本 操作 使 用 ， 这 样 的 假定 在 模拟 中 很 有 用 ， 但 
在 实践 中 却 是 不 实际 的 。 这 些 操作 实际 上 都 是 非常 复杂 。 在 实践 中 ， 我 们 同样 需要 基于 低级 的 输入 输出 操作 
实现 它们 ， 这 种 低级 操作 的 例子 如 将 一 个 字符 送 到 某 设备 ， 或 者 从 某 设备 取 一 个 字符 。 

为 了 支持 get-global-environment 操 作 ， 我 们 定义 : 


(define the-global-environment (setup-environment ) ) 


(define (get-global-environment ) 
the-global-environment) 


315 也 存在 一 些 特殊 错误 ， 我 们 可 能 更 希望 由 解释 器 去 处 理 它们 。 但 这 种 事情 不 那么 简单 。 请 看 练习 5.30。 


unknown-procedure-type 
(restore continue) ; clean up stack (from apply-dispatch) 
(assign val (const unknown-procedure-type-error) ) 
(goto (label signal-error) ) 


signal-error 
(perform (op user-print) (reg val)) 
(goto (label read-eval-print-loop) ) 


为 了 模拟 的 需要 ， 我 们 在 每 次 穿 过 这 一 驱动 循环 时 都 做 一 次 堆栈 的 初始 化 ， 因 为 在 出 现 
错误 (例如 遇 到 未 定义 的 变量 ) 导致 循环 中 断 之 后 ， 堆 栈 有 可 能 不 空 “。 
如 果 把 从 5.4.1 节 到 3.4.4 节 的 代码 片段 组 合 到 一 起 ， 我 们 就 构造 出 了 一 个 求 值 器 机 器 模型 。 
现在 就 可 以 用 5.2 节 里 的 寄存 器 机 器 模拟 器 去 运行 它 了 。 
{define eceval 
(make-machine 
‘(exp env val proc argl continue unev) 
eceval-operations 
*( 
read-eval-print-loop 
< 如 上 给 出 的 完整 的 机 器 控制 器 > 
) ) ) 


我 们 还 必须 定义 一 些 Scheme 过 程 ， 去 模拟 这 个 求 值 器 里 使 用 的 所 有 基本 操作 。 这 些 也 就 是 我 
们 在 4.1 节 定义 元 循环 模拟 器 时 所 定义 的 那些 过 程 ， 还 有 在 5.4 节 的 各 个 脚注 里 定义 的 那些 过 
程 。 

(define eceval-operations 


(list (list ’self-evaluating? self-evaluating) 


<eceval 机 器 操作 的 完整 列表 > ) ) 
现在 我 们 已 经 可 以 初始 化 有 关 的 全 局 环境 ， 并 运行 这 个 求 值 器 了 : 


(define the-global-environment (setup-environment) } 
{start eceval) 


;;; EC-Eval input: 
(define (append x y) 
(if (null? x) 
Yy 
(cons (car x) 
(append (cdr x) y)))) 

;;; EC-Eval value: 
ok 
;;; EC-Eval input: 
(append "(a b c) (de f)) 
373 EC-Eval value: 
(abcdef) 


当然 ， 以 这 种 方式 求 值 表 达 式 ， 所 需 的 时 间 将 远 远 长 于 我 们 直接 把 它们 送 给 Scheme ， 因 


ak 我们 也 可 以 仅仅 在 出 现 错 误 之 后 才 去 初始 化 堆栈 。 但 是 ， 在 驱动 循环 里 完成 此 事 ， 能 使 我 们 更 方便 地 监视 求 
值 器 的 执行 ， 下 面 将 讨论 这 方面 的 问题 。 
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为 在 这 个 模拟 过 程 中 涉及 到 许多 层次 。 我 们 的 表达 式 由 显 式 控制 求 值 器 求 值 ， 这 个 求 值 器 是 
通过 一 个 Scheme 程序 模拟 的 ， 而 那个 程序 本 身 又 被 Scheme 解释 器 求 值 。 
监视 求 值 器 的 执行 性 能 
模拟 可 以 成 为 指导 求 值 器 的 实际 实现 的 一 种 有 力 工具 。 模 拟 不 仅 使 人 更 容易 去 探索 寄存 
器 机 器 设计 的 各 种 变形 ， 也 使 人 更 容易 监视 被 模拟 求 值 器 的 执行 性 能 。 举 例 说 ， 性 能 中 的 一 
个 重要 因素 就 是 求 值 器 对 于 堆栈 的 使 用 是 否 非常 有 效 。 我 们 只 需要 用 一 个 特殊 的 模拟 器 版 本 
定义 求 值 器 寄存 器 机 器 ， 在 其 中 收集 有 关 堆 栈 使 用 的 各 种 统计 信息 ( 见 5.2.4 节 )， 并 且 在 这 个 
求 值 器 的 print-result 入口 点 增加 了 一 条 打印 统计 信息 的 指令 ， 就 可 以 观察 在 求 值 各 种 表 
达 式 时 堆栈 操作 的 执行 次 数 了 : 
print-result 
(perform (op print-stack-statistics) ); added instruction 
(perform 


(op announce-output) (const ";;; EC-Eval value:")) 


。 3 same as before 


与 求 值 器 的 交互 ， 现 在 看 起 来 是 下 面 的 样子 : 
333 EC-Eval input: 
(define (factorial n) 
(if (= n 1) 
1 
(* (factorial (- n 1)) n))) 
(total-pushes * 3 maximum-depth = 3) 
373 EC-Eval value: 
ok 
;;}; EC-Eval input: 
(factorial 5) 
(total-pushes = 144 maximum-depth = 28) 
+33 EC-Eval value: 
120 


注意 ， 求 值 器 的 驱动 循环 将 在 每 次 交互 开始 时 重新 初始 化 堆栈 ， 因 此 ， 这 样 打印 出 的 统计 信 
息 也 就 是 在 对 前 一 表达 式 求 值 中 所 用 的 堆栈 操作 次 数 。 

练习 5.26 ”请 利用 上 述 的 受 监视 堆栈 考察 求 值 器 的 尾 递归 性 质 〈 见 5.4.2 节 )。 启动 求 值 器 
并 定义 下 面 取 自 1.2.1 节 的 迭代 型 factorial 过 程 : 


(define (factorial n) 
(define (iter product counter) 
(if (> counter n) 
product 
(iter (* counter product) 
(+ counter 1)))) 
{iter 1 1)) 


用 一 个 比较 小 的 n 值 运行 这 一 过 程 。 记 录 下 对 每 个 值 计算 中 时 的 最 大 堆栈 深度 和 压 栈 次 数 。 
a) 你 会 发 现 求 值 n! 时 的 最 大 堆栈 深度 是 与 9 无 关 的 。 这 个 深度 是 什么 ? 
b) 根据 你 得 到 的 数据 确定 一 个 公式 ， 对 于 任何 之 1， 它 都 基于 n 的 值 描述 了 在 求 值 r! 中 所 
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用 的 总 的 压 栈 操作 次 数 。 请 注意 ， 这 里 的 次 数 应 该 是 "的 一 个 线性 函数 ， 因 此 你 需要 确定 其 中 
的 两 个 常量 。 
练习 5.27 与 练习 5.26 做 一 个 比较 ， 研究 下 面 这 个 采用 递归 方式 求 阶乘 的 过 程 的 行为 : 
(define (factorial n) 
(if (= n 1) 
1 
(* (factorial (- n 1)) n))) 
ist TEE A HE ee eT EEE fn 1, ER Bn it BA ERR Re AR BE 
FILER AS Fs Bet RE TR A AD eB GE aR PR ER ERY) 。 将 你 的 试验 结果 总 结 在 
下 面 表 里 ， 在 表 中 各 个 空格 里 填 入 基于 n 的 适当 表达 式 。 


递归 的 阶乘 


堆栈 的 最 大 深度 是 求 值 器 在 执行 计算 中 所 用 存储 空间 量 的 一 个 度量 ， 压 栈 次 数 则 对 应 于 求 值 
所 需 的 时 间 。 

练习 5.28 ”请 修改 上 面 求 值 器 的 定义 ， 像 5.4.2 节 所 说 的 那样 修改 eval-seqguence， 使 
求 值 器 不 再 是 尾 递归 的 。 重 新 运行 你 在 练习 5.26 和 练习 5.27 里 做 的 试验 ， 以 此 说 明 上 面 两 个 
factorial 过 程 版 本 现在 需要 的 空间 都 随 输 入 线性 增长 。 

练习 5.29 ”请 监视 在 树 型 递归 的 斐 波 那 契 计算 中 堆栈 操作 的 情况 : 


(define (fib n) 
(if (< n 2) 
n 
(+ (fib (- n 1)) (fib (- n 2))))) 


a) 给 出 一 个 基于 mn 的 公式 ， 描 述 对 * >2 计 算 Fib(n) 时 所 需 的 最 大 堆栈 深度 。 提 示 : 在 1.2.2 
节 我 们 普 经 说 过 ， 这 一 过 程 所 需 的 空间 随 着 "线性 增长 。 

b) 给 出 一 个 基于 n 的 公式 ， 描 述 对 "> 2 计算 Fib(m) 时 所 需 的 全 部 压 栈 操作 次 数 。 你 将 发 
现 这 一 压 栈 次 数 (对 应 于 计算 所 需 的 时 间 ) 将 随 着 "指数 地 增长 。 提 示 : 令 5(n) 是 计算 Fib(n) 
中 所 用 的 压 栈 次 数 ， 你 应 能 论证 ， 存 在 着 某 个 与 无 关 的 “开销 ”常数 k， 可 以 基于 S(n 一 1)， 
So -2) 和 常数 k 写 出 一 个 表示 S(n) 的 公式 。 请 给 出 这 个 公式 ， 并 说 明 k 是 什么 。 而 后 说 明 S(n) 
可 以 表述 为 a Fib(n +1) +b， 并 请 给 出 a 和 4b 的 值 。 

练习 5.30 ”我 们 的 求 值 器 现在 只 能 捕捉 两 类 错误 并 发 出 信号 一 一 未 知 的 表达 式 类 型 ， 以 及 
未 知 的 过 程 类 型 。 其 他 错误 将 使 这 个 求 值 器 退出 读 入 RE- 打印 循环 。 当 我 们 用 寄存 器 机 
器 模拟 器 运行 这 个 求 值 器 时 ， 这 些 错误 都 只 能 由 基础 的 Scheme 系统 去 捕 撮 。 这 种 情况 类 似 于 
当 用 户 程序 出 了 一 个 错时 计算 机 就 会 震 台 了。 做 好 一 个 真正 的 处 理 错误 的 系统 是 一 个 大 项 目 ， 
但 理解 在 这 里 会 遇 到 什么 问题 ， 却 很 值得 花 一 点 时 间 。 


317 非常 遗 全 ， 这 正 是 常规 的 基于 编译 的 语言 系统 (例如 C ) 的 普遍 情况 。 在 UNIX 里 出 现 这 种 情况 时 系统 会 “内 
板 印 载 "， 在 DOS/Windows 里 它 将 变 成 大 灾难 。Macintosh 机 器 将 显示 出 一 个 爆炸 的 炸弹 图 画 ， 并 给 人 提供 重 
新 引导 计算 机 的 机 会 一 一 如 果 你 幸运 的 话 。 
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a) 出 现在 求 值 过 程 中 的 错误 ， 例 如 企图 访问 未 约束 的 变量 ， 可 以 通过 修改 查询 操作 的 
方式 捕捉。 可 以 让 它 在 遇 到 这 种 情况 时 返回 一 个 可 辨认 的 条 件 码 ， 要 求 这 个 条 件 码 不 是 任何 
用 户 变量 的 可 能 值 。 这 样 ， 求 值 器 就 可 以 检查 这 一 条 件 码 ， 如 果 需 要 时 就 转 到 signal- 
error 去 。 请 在 上 面 求 值 器 里 找 出 所 有 需要 修改 的 地 方 ， 并 设法 更 正之 。 为 此 需要 做 很 多 
工作 。 

b) 更 糟糕 的 是 处 理由 基本 操作 的 应 用 产生 出 错误 信号 的 问题 ， 例 如 要 用 0 去 除 ， 或 者 企图 
去 求 一 个 符号 的 car 。 在 专业 水 平 的 高 质量 系统 里 ， 系 统 将 检查 每 个 基本 操作 的 应 用 ， 因 为 
安全 性 也 是 这 些 基本 操作 的 一 部 分 。 举 个 例子 ， 在 每 次 调用 car 之 前 都 需要 确认 其 参数 确实 
是 序 对 。 如 果 参 数 不 是 序 对 ， 那 么 这 一 应 用 就 会 将 一 个 可 辨认 的 条 件 码 返回 给 求 值 器 ， 导 致 
求 值 器 报告 一 个 错误 。 我 们 也 可 以 在 寄存 器 机 器 模拟 器 中 安排 好 这 些 事情 ， 在 那里 让 每 个 基 
本 过 程 检查 自己 的 参数 的 可 用 性 ， 在 出 问题 时 返回 适当 的 可 辨认 的 条 件 码 。 这 样 ， 求 值 器 里 
的 primitive-app1y 代 码 就 可 以 检查 这 里 的 条 件 码 ， 在 需要 时 转 到 signal-error。 请 构 
造 起 这 一 结构 并 使 之 能 够 工作 。 这 是 一 个 很 大 的 工作 课题 。 


5.5 编译 


5.4 节 的 显 式 控制 求 值 器 是 一 部 寄存 器 机 器 ， 它 的 控制 器 能 解释 Scheme 程序 。 在 这 一 节 里 ， 
我 们 将 要 看 到 的 是 如 何在 一 部 控制 器 不 是 Scheme 解释 器 的 寄存 器 机 器 上 运行 Scheme 程序 。 

显 式 控制 求 值 器 是 一 部 通用 机 器 一 它 可 以 执行 用 Scheme 语言 描述 的 任何 计算 过 程 。 访 
求 值 器 的 控制 器 与 它 的 数据 通路 和 谐 地 相互 配合 ， 以 执行 所 需要 的 计算 过 程 。 也 就 是 说 ， 这 
一 求 值 器 的 数据 通路 也 是 通用 的 ， 只 要 给 出 一 个 适当 的 控制 器 ， 它 们 就 足以 执行 我 们 所 需要 
的 任何 计算 ?2 。 

作为 商品 的 通用 计算 机 也 是 寄存 器 机 器 ， 它 们 的 组 织 形式 也 是 围绕 着 一 组 寄存 器 和 一 组 
操作 ， 这 些 东 西 构成 了 一 个 高 效 而 又 方便 的 数据 通路 集合 。 通 用 计算 机 的 控制 器 也 是 一 个 寄 
存 器 机 器 语言 的 解释 器 ， 该 语言 与 我 们 前 面 看 到 的 东西 类 似 。 这 样 的 一 个 语言 被 称 为 这 台 计 
算 机 的 本 机 语言 ， 或 称 为 机 器 语言 。 用 这 种 机 器 语言 写 出 的 程序 就 是 指令 的 序列 ， 它 们 使 用 
这 部 机 器 的 数据 通路 。 例 如 ， 我 们 完全 可 以 将 显 式 控制 求 值 器 的 指令 序列 看 作 是 某 台 通用 计 
算 机 的 一 个 机 器 语言 程序 ， 而 不 是 看 作 一 部 特定 的 解释 器 机 器 的 控制 器 。 

为 了 在 高 级 语言 和 寄存 器 机 器 语言 之 间 的 钢 沟 上 架设 起 一 座 桥梁 ， 存 在 着 两 种 常见 的 策 
略 。 显 式 控制 求 值 器 展示 的 是 一 种 称 为 解释 的 策略 。 此 时 我 们 用 有 关机 器 的 本 机 语言 写 出 一 
个 解释 器 ， 它 设法 配置 好 这 部 机 器 ， 使 它 能 够 执行 某 个 语言 (RET) 的 程序 ， 而 这 一 
源 语言 可 能 与 执行 求 值 的 机 器 的 本 机 语言 完全 不 同 。 这 种 源 语言 的 基本 过 程 被 实现 为 一 个 子 
程序 库 ， 用 给 定 机 器 的 本 机 语言 写 出 。 被 解释 的 程序 ( 称 为 源 程序 ) 用 一 个 数据 结构 表示 。 
解释 器 遍历 这 种 数据 结构 ， 分 析 源 程序 的 情况 。 在 这 样 做 的 过 程 中 ， 它 需要 调用 取 自 库 的 适 
当 的 基本 子 程序 ， 以 模拟 源 程序 所 要 求 的 行为 。 

在 这 一 节 里 ， 我 们 将 要 探讨 另 一 种 称 为 编译 的 策略 。 一 个 针对 某 种 给 定 源 语言 和 某 种 给 


318 这 只 是 一 个 理论 性 的 结论 。 我 们 并 不 想 断 言说， 对 于 作为 一 种 通用 计算 机 而 言 ， 这 一 求 值 器 的 数据 通路 是 特 
别 方便 的 或 者 特别 有 效 的 数据 通路 集合 。 举 例 说 ， 对 于 实现 高 性 能 的 浮 点 计算 ， 或 者 其 中 包含 大 量 对 二 进 制 
序列 操作 的 计算 ， 这 组 数据 通路 就 不 是 很 好 。 


定 机 器 的 编译 器 ,能 够 将 源 程 序 翻译 为 用 这 部 机 器 的 本 机 语言 写 出 的 等 价 程 序 ( 称 为 目标 程 
序 )。 我 们 在 这 一 节 里 将 要 实现 的 编译 器 ， 能 够 将 用 Scheme 写 出 的 程序 ， 番 译 为 可 以 用 显 式 控 
制 求 值 器 的 数据 通路 执行 的 指令 序列 "。 

与 解释 方式 相 比 ， 采 用 编译 方式 可 以 大 大 提高 程序 执行 的 效率 ， 我 们 将 在 下 面 有 关 编 
译 器 的 综述 里 解释 有 关 情 况 。 在 另 一 方面 ,解释 器 则 为 程序 开发 和 排除 错误 提供 了 一 个 更 
强大 的 环境 ， 因 为 被 执行 的 源 代 码 在 运行 期 间 都 是 可 用 的 ， 可 用 去 检查 和 修改 。 此 外 ， 由 
于 整个 基本 操作 的 库 都 在 那里 ， 我 们 可 以 在 排除 错误 的 过 程 中 构造 新 程序 ， 随 时 把 它们 加 
入 系统 中 。 

由 于 看 到 了 编译 和 解释 的 互补 优势 ， 现 代 程序 开发 环境 很 推崇 一 种 混合 的 策略 。Lisp 解 
释 器 通常 都 采用 一 种 组 织 方式 ， 使 得 解释 性 程序 和 编译 性 程序 可 以 相互 调用 。 这 就 使 程序 员 
可 以 编译 那些 自己 认为 已 经 排除 了 错误 的 程序 部 分 ， 从 而 取得 编译 方式 的 效率 优势 ， 而 让 那 
些 正 在 进行 交互 式 开发 和 排 错 的 ， 还 在 不 断 变化 的 程序 部 分 的 执行 仍然 维持 在 解释 模式 之 中 。 
在 下 面 的 编译 器 实现 完成 之 后 ， 在 5.5.7 节 里 ， 我 们 将 要 说 明 如 何 将 它 与 解释 器 连接 ， 产 生出 
一 个 集成 的 编译 器 一 解释 器 开发 环境 。 

有 关 编 译 器 的 综述 

从 结构 和 所 执行 的 功能 上 看 ， 我 们 的 编译 器 都 很 像 前 面 的 解释 器 。 正 因为 此 ， 在 这 个 纺 
译 器 里 分 析 表 达 式 的 机 制 将 与 解释 器 中 使 用 的 东西 类 似 。 进 一 步 说 ,为 了 使 编译 代码 与 解释 
代码 方便 地 互 连 ， 我 们 将 按照 下 面 方式 设计 这 一 编译 器 ， 使 它 产 生 的 代码 遵循 与 解释 器 相同 
的 寄存 器 使 用 规则 ， 执 行 环境 仍 保存 在 env 寄 存 器 里 ， 实 际 参 数 表 在 arg1 寄 存 器 里 积累 ， 被 
应 用 的 过 程 存在 proc 寄 存 器 里 ， 过 程 通 过 val 返 回 它 们 的 值 ， 过 程 将 要 使 用 的 返回 地 址 保存 
在 continue 里 。 一 般 而 言 ， 这 个 编译 器 将 把 一 个 源 程序 翻译 为 一 个 目标 程序 ， 该 目标 程序 
所 执行 的 寄存 器 操作 ， 从 本 质 上 说 ， 也 就 是 解释 器 求 值 同 一 个 源 程 序 时 所 执行 的 操作 。 

这 一 描述 提出 了 一 种 实现 基本 编译 器 的 策略 : 我 们 应 该 以 与 解释 器 同样 的 方式 去 遍历 表 
达 式 。 当 遇 到 解释 器 在 求 值 表 达 式 时 应 该 执行 一 条 寄存 器 指令 时 ， 我 们 不 是 去 执行 这 条 指令 ， 
而 是 将 它 收集 到 一 个 序列 里 。 这 样 得 到 的 指令 序列 就 是 我 们 所 需要 的 目标 代码 。 现 在 就 可 以 
看 到 编译 器 优 于 解释 器 的 地 方 了 。 解 释 器 在 每 次 求 值 一 个 表达 式 时 一 一 例如 ，( 84 96), 
都 需要 去 做 对 这 个 表达 式 的 分 类 工作 (发 现 这 是 一 个 过 程 应 用 )， 需 要 检查 表达 式 的 表 是 否 结 
R 发现 这 里 存在 两 个 运算 对 象 ) 。 而 在 采用 编译 器 的 情况 下 ， 对 这 一 表达 式 的 分 析 只 需要 做 
一 次 ， 也 就 是 在 编译 期 间 生 成 指令 序列 的 时 候 。 在 由 编译 器 产生 出 的 目标 代码 里 ， 只 包含 了 
那些 对 运算 符 和 两 个 运算 对 象 求 值 的 指令 ， 以 及 将 有 关 的 过 程 〈 在 Proc 里 ) 应 用 于 实际 参数 
(在 argl 里 ) 的 指令 。 

这 里 所 看 到 的 ， 实 际 上 也 就 是 我 们 在 4.1.7 节 实现 分 析 型 求 值 器 时 所 采用 的 同一 类 优化 技 
术 。 但 是 ， 在 编译 性 的 代码 里 还 存在 进一步 获得 效率 的 可 能 性 。 在 解释 器 运行 时 ， 它 需要 按 
照 一 种 能 够 适用 于 该 语言 里 的 所 有 表达 式 的 方式 工作 。 一 段 给 定 的 编译 代码 的 情况 则 与 此 完 


一 下 
39 实际 上 ， 运 行 这 种 编译 产生 的 代码 的 机 器 可 以 比 相应 的 解释 器 机 器 更 简单 ， 因 为 我 们 并 设 有 使 用 其 中 的 exp 
和 unev 寄 存 器 。 解 释 器 里 用 这 些 寄存 器 保存 未 求 值 的 表达 式 。 采 用 了 编译 器 之 后 ， 这 些 表 达 式 都 被 构造 到 
寄存 器 机 器 需要 去 执行 的 编译 结果 代码 里 了。 由 于 同样 的 原因 ， 我 们 也 不 再 需要 处 理 表 达 式 语法 的 机 器 操作 。 
但 是 编译 结果 代码 里 将 使 用 另外 几 个 机 器 操作 (用 于 表示 编译 后 的 过 程 对 象 )， 它 们 没有 出 现在 显 式 控制 求 
值 器 机 器 里 。 
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全 不 同 ， 因 为 它 的 目标 就 是 执行 某 个 特定 的 表达 式 。 这 种 差异 可 能 产生 极 大 的 影响 ， 例 如 在 
用 堆栈 保存 寄存 器 方面 。 当 解释 器 求 值 一 个 表达 式 时 ， 它 必须 为 所 有 偶然 可 能 发 生 的 情况 做 
好 准备 。 因 此 ， 在 求 值 一 个 子 表达 式 之 前 ， 解 释 器 就 必须 将 所 有 后 来 可 能 需要 的 寄存 器 存 入 
堆栈 ， 因 为 在 子 表 达 式 里 可 能 做 任何 求 值 工作 。 而 在 另 一 面 ， 编 译 器 就 可 以 去 考察 它 所 处 理 
的 特定 表达 式 ， 在 产生 出 的 代码 里 避免 所 有 并 不 必要 的 堆栈 操作 。 

作为 这 方面 情况 的 一 个 例子 ， 现 在 考虑 组 合式 (£ 84 96)。 在 解释 器 求 值 这 个 组 合式 的 
运算 符 之 前 ， 它 需要 为 这 个 求 值 做 好 准备 ， 将 保存 着 运算 对 象 和 环境 的 寄存 器 都 存 和 堆栈， 
因为 这 些 值 后 来 还 要 使 用 。 而 后 解释 器 去 做 运算 符 的 求 值 ， 在 val 里 得 到 求 值 的 结果 ， 恢 复 
所 有 保存 在 堆栈 里 的 寄存 器 值 ， 最 后 把 val 里 的 结果 移 到 proc。 然 而 ， 在 需要 处 理 的 这 个 特 
定 表达 式 里 ， 运 算 符 也 就 是 符号 ， 对 于 它 的 求 值 由 机 器 操作 1ookup-variable-value 完 
成 ， 在 此 过 程 中 根本 不 会 修改 任何 寄存 器 。 我 们 将 要 在 本 节 里 实现 的 编译 器 就 能 利用 这 一 事 
实 ， 在 产生 出 的 代码 里 ， 它 将 用 下 面 指令 完成 对 这 个 运算 符 的 求 值 工作 : 

(assign proc (op lookup-variable-value) (const f) (reg env)) 
这 一 代码 不 仅 避 免 了 原本 就 没有 必要 的 保存 和 恢复 工作 ， 而 且 直 接 将 找 出 的 值 赋 给 proc。 而 
解释 器 是 先 在 val 里 得 到 这 个 值 ， 而 后 又 把 它 移 到 proc。 

编译 器 还 能 优化 对 环境 的 访问 。 通 过 对 代码 的 分 析 ， 在 许多 情况 下 ， 编 译 器 可 以 确定 在 
哪个 框架 保存 着 某 个 特定 值 ， 并 直接 访问 这 一 框架 ， 而 不 需要 去 执行 lookup-variable- 
value 搜 索 。 我 们 将 在 5.5.6 节 讨论 如 何 实现 这 种 变量 访问 。 当 然 ， 在 那 之 前 ， 我 们 还 是 准备 
集中 精力 ， 讨 论 如 何 完成 上 面 所 描述 的 寄存 器 和 堆栈 优化 。 编 译 器 还 可 以 执行 许多 其 他 优化 
工作 ,例如 将 某 些 基本 操作 “在 线 处 理 ”， 而 不 是 使 用 一 次 通用 的 apply 机 制 ( 见 练习 5.38)。 
但 我 们 将 不 在 这 里 强调 这 些 东 西 。 这 一 节 里 的 主要 目标 ， 就 是 在 一 个 经 过 简化 (但 仍然 很 有 
意思 ) 的 上 下 文中 展示 编译 过 程 里 的 各 种 情况 。 


5.5.1 编译 器 的 结构 


在 4.1.7 节 里 ， 我 们 修改 了 原来 的 元 循环 解释 器 ， 将 分 析 过 程 与 实际 执行 分 离开 。 在 分 析 
每 个 表达 式 后 产生 出 一 个 执行 过 程 ， 它 以 一 个 环境 作为 参数 ， 执 行 所 需 的 操作 。 在 我 们 的 纺 
译 器 里 ， 也 要 做 本 质 上 与 那里 相同 的 分 析 。 但 现在 不 是 要 产生 出 一 个 执行 过 程 ， 而 是 要 生成 
出 一 些 能 够 在 我 们 的 寄存 器 机 器 上 运行 的 指令 序列 。 

这 个 编译 器 里 的 过 程 compile 完 成 最 高 层 的 分 派 ， 它 对 应 于 4.4.1 节 里 的 eval 过 程 ， 
4.1.7 节 里 的 analyze 过 程 , 以 及 在 5.4.1 节 里 的 显 式 控制 求 值 器 里 的 eval-dispatch 入 口 点 。 
这 个 编译 器 很 像 一 个 解释 器 ， 它 也 要 使 用 4.1.2 节 里 定义 的 各 种 表达 式 语法 过 程 ””。compile 
执行 一 个 基于 被 编译 的 表达 式 语法 类 型 的 分 情况 分 析 ， 对 于 每 种 表达 式 类 型 ， 都 将 它们 分 派 
到 一 个 特定 的 代码 生成 器 : 


(define (compile exp target linkage) 
(cond ((self-evaluating? exp) 


20 请 注意 ， 我 们 的 编译 器 是 一 个 Scheme 程序 ， 而 那些 用 于 操作 表达 式 的 语法 过 程 ， 也 是 在 元 循环 求 值 器 里 使 用 
的 真正 的 Scheme 过 程 。 在 另 一 方面 ， 对 于 显 式 控制 求 值 器 ， 我 们 则 假定 了 同样 的 一 组 等 价 的 语法 过 程 可 用 作 
寄存 器 机 器 的 操作 。( 当然 ， 在 Scheme 里 模拟 寄存 器 机 器 时 , 在 我 们 的 寄存 器 机 器 模拟 器 里 使 用 的 确实 是 这 


些 真实 的 Scheme 过 程 。) 


00 FR BME ETF _ 


(compile-self-evaluating exp target linkage) ) 
((quoted? exp) (compile-quoted exp target linkage) ) 
((variable? exp) 

(compile-variable exp target linkage) ) 
((assignment? exp) 

(compile-assignment exp target linkage) ) 
((definition? exp) 

(compile-definition exp target linkage) ) 

((if? exp) (compile-if exp target linkage) ) 
((lambda? exp) (compile-lambda exp target linkage) ) 
((begin? exp) 

(compile-sequence (begin-actions exp) 

target 

linkage) ) 
((cond? exp) (compile (cond->if exp) target linkage) ) 
((application? exp) i 
(compile-application exp target linkage)) 
(else 
(error "Unknown expression type -- COMPILE" exp)))) 


目标 和 连接 

除了 被 编译 表达 式 之 外 ，compile 和 它 所 调用 的 代码 生成 器 还 有 另外 两 个 参数 。 一 个 是 
目标 (target)， 它 描述 的 是 一 个 寄存 器 ， 被 编译 出 的 代码 段 应 该 将 表达 式 的 值 保存 到 这 里 。 
还 有 一 个 称 为 连接 描述 符 (linkage )， 它 描述 的 是 相关 表达 式 的 编译 结果 代码 在 完成 自己 的 执 
行 之 后 ， 应 该 如 何 继续 下 去 。 这 一 连接 描述 符 可 以 要 求 代码 做 下 面 三 件 事情 之 一 : 

。 继 续 序列 里 的 下 一 条 指令 (采用 连接 描述 符 next 表示) 。 

。 从 被 编译 的 过 程 返回 (采用 连接 描述 符 return 表 示 )。 

。 跳 到 一 个 命名 的 入 口 点 (描述 这 种 情况 的 方式 就 是 以 指定 标号 作为 连接 描述 符 ) 。 

举例 来 说 ， 以 val 寄存 器 作为 目标 ， 以 next 作 为 连接 描述 符 编译 表达 式 5 (这 是 一 个 自 求 
值 表 达 式 )， 将 产生 出 下 面 的 指令 

(assign val (const 5)) 
而 用 连接 return 编 译 同一 表达 式 ， 将 产生 下 面 的 指令 序列 


(assign val (const 5)) 
(goto (reg continue) ) 


对 于 第 一 种 情况 ， 执 行将 继续 去 做 序列 里 的 下 一 指令 。 对 于 第 二 种 情况 ， 我 们 将 从 一 个 过 程 
调用 里 返回 。 在 这 两 种 情况 中 ， 表 达 式 的 值 都 被 存放 在 目标 寄存 器 val 里。 


指令 序列 和 堆栈 的 使 用 

每 个 代码 生成 器 都 返回 一 个 指令 序列 ， 其 中 包含 的 是 由 被 编译 表达 式 生成 出 的 目标 代码 。 
由 复合 表达 式 生成 的 代码 ， 是 通过 组 合 起 针对 其 中 的 成 分 表达 式 的 代码 生成 器 的 输出 而 建立 
起 来 的 ， 就 像 前 面 对 复合 表达 式 的 求 值 ， 是 通过 求 值 其 中 的 成 分 表达 式 而 完成 一 样 。 

组 合 指令 序列 的 最 简单 方式 就 是 调用 一 个 名 为 append-instruction-sequences 的 
过 程 。 这 个 过 程 以 任意 数目 的 指令 序列 作为 参数 ， 假 定 这 些 序列 应 该 顺序 执行 。 这 一 过 程 将 
这 些 序列 拼接 起 来 ， 返 回 这 样 组 合 而 成 的 指令 序列 。 也 就 是 说 ， 如 果 <seq1> 和 <seq2> 都 是 指 
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SP, DARKE: 
(append-instruction-sequences <seq\> <seq,>) 
产生 出 的 指令 序列 就 是 


<seq\> 
<seq2> 


如 果 某 个 时 候 需 要 保存 一 些 寄存 器 的 值 ， 编 译 器 的 代码 生成 器 就 会 使 用 preserving， 
它 实现 了 一 种 更 加 精细 的 组 合 指令 序列 的 方式 。pPreserving 有 三 个 参数 ， 一 个 寄存 器 集合 
和 两 个 需要 顺序 执行 的 指令 序列 。preserving 组 合 这 两 个 序列 的 方式 能 够 保证 ， 如 果 其 参 
数 集合 中 的 某 个 寄存 器 的 值 在 第 二 个 指令 序列 里 需要 用 的 话 ， 这 个 值 就 不 会 受到 第 一 个 指令 
序列 执行 的 影响 。 这 也 就 是 说 ， 如 果 第 一 个 序列 里 修改 某 个 寄存 器 ， 而 第 二 个 序列 里 实际 需 
要 这 个 寄存 器 的 原 值 ， 那 么 preserving 就 会 在 把 第 一 个 序列 归并 进来 之 前 ， 在 这 个 序列 的 
外 面包 上 对 这 个 寄存 器 的 一 个 save 和 一 个 restore。 如 果 情 况 不 是 这 样 ，preserving 就 
返回 简单 连接 起 来 的 序列 。 这 样 ， 举 例 来 说 ， 对 于 : 


(preserving (list <regl> <reg:>) <seqi> <seq:>) 


根据 <seq!> 和 <seq;> 里 如 何 使 用 <reg!> 和 <reg2>， 有 可 能 产生 下 面 四 种 序列 之 一 ， 


<seqi> (save <regi>) (save <reg,>) (save <reg.>) 
<seqy> <seq\> <seq\> (save <reg)>) 
(restore <reg\>) (restore <reg,>, <seq\>) 
<seq:>) <seq2> (restore <reg\>) 


(restore <reg:>) 
<seqz> 

通过 采用 preserving 组 合 指令 序列 ， 编 译 器 就 可 以 避免 各 种 不 必要 做 的 堆栈 操作 了 。 
这 一 做 法 也 把 是 否 需 要 生成 save 和 restore 指 令 的 细节 全 部 隔离 在 preserving 过 程 里 ， 
把 这 件 事 情 与 写 各 个 代码 生成 器 时 所 需要 关心 的 问题 分 离开 来 。 事 实 上 ， 各 个 代码 生成 器 都 
不 会 显 式 地 产生 save 和 restore 指 令 。 C 

从 原则 上 说 ， 我 们 完全 可 以 用 一 个 简单 的 指令 的 表 去 表示 一 个 指令 序列 。 如 果 采 用 这 种 
ÉR, append-instruction~sequences 组 合 指令 序列 的 工作 也 就 是 执行 一 次 常规 的 表 
append。 但 是 如 果真 的 那样 做 ，preserving 就 会 变 成 一 个 非常 复杂 的 操作 ， 因 为 它 将 不 
得 不 去 分 析 每 个 指令 序列 ， 设 法 确定 指令 序列 里 使 用 它 的 寄存 器 (参数 ) 的 情况 。 这 不 单 会 
使 preserving 变 得 异常 复杂 ， 也 使 它 非常 低 效 ， 因 为 它 将 必须 去 分 析 自 己 的 每 个 指令 序 
列 参数 ， 即 使 这 些 参数 本 身 也 是 通过 调用 preserving 而 构造 起 来 的 ， 此 时 它们 里 的 各 个 
部 分 都 曾经 分 析 过 。 为 了 避免 这 种 重复 分 析 ， 我 们 将 为 每 个 指令 序列 关联 上 有 关 其 中 寄存 
器 使 用 的 信息 。 当 我 们 构造 起 一 个 简单 的 指令 序列 时 ， 就 会 显 式 地 提供 有 关 的 信息 ， 而 那 
些 组 合 指令 的 过 程 ， 也 会 从 各 个 成 分 序列 的 相关 信息 中 推导 出 组 合 后 产生 的 序列 的 寄存 器 
使 用 信息 。 
一 个 指令 序列 将 包含 三 部 分 信息 : 
。 它 在 序列 中 的 指令 执行 之 前 必须 初始 化 的 那些 寄存 器 的 集合 (我 们 称 这 些 寄 存 器 为 这 个 
序列 所 需要 的 )。 
“在 这 一 序列 中 ， 其 值 会 被 修改 的 那些 寄存 器 的 集合 。 
。 序 列 里 的 实际 指令 (也 称 为 语 身 )。 


我 们 将 把 指令 序列 表示 为 一 个 包含 这 三 个 部 分 的 表 。 这 样 ， 指 令 序列 的 构造 函数 就 是 : 
(define (make-instruction-sequence needs modifies statements) 
(list needs modifies statements) ) 


举 个 例子 ， 设 想 一 个 包含 了 两 条 指令 的 序列 ， 它 在 当前 环境 里 查看 变量 x 的 值 并 将 这 个 值 
赋 给 val ， 而 后 返回 。 这 个 指令 序列 要 求 寄存 器 env 和 continue 已 经 过 初始 化 ， 并 要 修改 琳 
存 器 val 。 因 此 这 个 序列 可 以 如 下 构造 : 


(make-instruction-sequence ‘(env continue) *(val) 
*((assign val 
(op lookup-variable-value) (const x) (reg env)) 
(goto (reg continue) ))) 


我 们 有 时 也 可 能 需要 构造 不 含 语句 的 指令 序列 ， 
(define (empty-instruction-sequence ) 
(make-instruction-sequence ’() '() ’())) 


5.5.4 节 将 给 出 各 种 组 合 指令 序列 的 过 程 。 

练习 5.31 ”在 求 值 一 个 过 程 应 用 时 ， 显 式 控制 求 值 器 总 要 在 运算 符 求 值 的 前 后 保存 和 恢 
复 env 寄 存 器 ， 在 对 每 个 运算 对 象 (除了 最 后 一 个 之 外 ) 求 值 的 前 后 保存 和 恢复 env， 在 对 每 
个 运算 对 象 求 值 的 前 后 保存 和 恢复 arg1 ， 在 求 值 运算 对 象 序列 的 前 后 保存 和 恢复 Proc 。 对 
于 下 面 的 每 个 组 合式 ， 请 说 明 这 其 中 的 那些 save 和 restore 操 作 是 多 余 的 ， 因 此 可 以 由 编 
译 器 里 的 preserving 机 制 删除 : 

(£ °x ’y) 

((£) °x ’y) 

(£ (g °x) Y) 

(£ (g °x) ’y) 

练习 5.32 “采用 了 preserving 机 制 之 后 ， 在 一 个 组 合式 的 运算 符 是 简单 符号 的 情况 下 ， 
编译 器 就 可 以 避免 在 求 值 运算 符 的 前 后 保存 和 恢复 env 寄 存 器 。 我 们 也 可 以 将 这 种 优化 构筑 
到 求 值 器 里 。 实 际 上 ，5.4 节 的 显 式 控制 求 值 器 已 经 做 了 一 种 类 似 的 优化 ， 其 中 将 没有 运算 对 
象 的 组 合式 作为 一 种 特殊 情况 处 理 。 

a) 请 扩充 显 式 控制 求 值 器 ， 使 之 能 识别 出 运算 符 是 符号 的 组 合式 ， 作 为 一 类 特殊 的 表达 
式 ， 并 在 求 值 这 种 表达 式 时 利用 这 一 特殊 事实 。 

b) Alyssa P. Hacker 建 议 ， 求 值 器 应 该 识别 出 更 多 的 我 们 可 能 结合 到 编译 器 里 的 特殊 情况 ， 
并 据 此 完全 剔除 编译 器 的 所 有 优势 。 你 觉得 这 种 想法 怎么 样 ? 
5.5.2 表达 式 的 编译 

在 本 节 和 下 一 节 里 ， 我 们 要 实现 compile 过 程 分 派 的 那些 代码 生成 器 。 

连接 代码 的 编译 

一 般 而 言 ， 每 个 代码 生成 器 的 输出 最 后 都 将 是 一 些 指令 一 一 由 过 程 compile-linkage 
生成 ， 实 现 所 需要 的 连接 。 如 果 这 一 连接 是 return， 那 么 我 们 就 必须 生成 指令 (goto 
(reg continue))。 这 条 指令 需要 continue 寄 存 器 ， 而 且 不 修改 任何 寄存 器 。 如 果 这 一 
连接 是 next ， 那 么 我 们 就 不 需要 包括 任何 指令 进来 。 否 则 相应 的 连接 就 是 一 个 标号 ， 需 要 产 


生 一 条 转向 那个 标号 的 goto 指 令 。 这 条 指令 既 不 需要 也 不 修改 任何 寄存 器 ”。 


(define (compile-linkage linkage) 
(cond ((eq? linkage ’return) 

(make-instruction-sequence ‘(continue) °() 
’( (goto (reg continue))))) 

((eq? linkage ’next) 
(empty-instruction-sequence) ) 

(else 

(make-instruction-sequence °() °() 
‘((goto (label ,linkage))))))) 


连接 代码 将 被 preserving 用 保留 continue 寄 存 器 的 方式 ， 附 加 到 相应 的 指令 序列 之 后 
因为 return 连 接 将 需要 continue 寄 存 器 。 这 样 ， 如 果 这 一 指令 序列 修改 了 人 continue 寄 存 
器 ， 而 连接 代码 又 需要 它 ，continue 的 内 容 就 会 被 保存 和 恢复 。 


(define (end-with-linkage linkage instruction-sequence) 
(preserving '(continue) 
instruction-sequence 
(compile-linkage linkage) )) 


简单 表达 式 的 编译 
对 于 自 求 值 表达 式 、 引 号 表达 式 和 变量 ， fF a i th 4 EDS 


值 赋 给 指定 的 目标 寄存 器 ， 而 后 根据 连接 描述 符 继续 下 去 : 


(define (compile-self-evaluating exp target linkage) 
(end-with-linkage linkage 
(make-instruction-sequence °() (list target) 
‘((assign ,target (const ,exp)))))) 


(define (compile-quoted exp target linkage) 
(end-with-linkage linkage 
(make-instruction-sequence °() (list target) 
‘((assign ,target (const ,(text-of-quotation exp))))}))) 


(define (compile-variable exp target linkage) 
(end-with-linkage linkage 
(make-instruction-sequence (env) (list target) 
‘((assign ,target 
(op lookup-variable-value) 
(const ,exp) 
` (reg env)))))) 


所 有 这 些 赋值 指令 都 修改 目标 寄存 器 ， 查 找 变量 内 容 的 指令 需要 env 寄 存 器 。 

赋值 和 定义 的 处 理 方式 很 像 在 解释 器 里 的 做 法 。 我 们 要 递归 地 生成 出 那些 用 于 计算 所 需 
E (准备 赋 给 变量 ) 的 代码 ， 并 在 它 后 面 附加 一 个 包含 两 条 指令 的 序列 ， 实 际 完成 对 变量 的 
赋值 ， 并 将 整个 表达 式 的 值 (符号 ok) 赋 给 目标 寄存 器 。 这 种 递归 编译 使 用 目标 Yal 和 连接 


32 这 个 过 程 里 使 用 了 Lisp 的 一 种 称 为 反 引号 (或 者 拟 引号 ) 的 特征 ， 这 种 特征 在 构造 表 的 时 候 非 常 方便 。 在 表 
的 前 面 放 一 个 反 引 号 很 像 是 为 它 加 了 引号 ,但 是 这 个 表 里 所 有 加 了 逗号 标记 的 东西 都 将 被 求 值 。 

举 个 例子 ， 如 果 ILinkage 的 值 是 符号 branch25， 那 么 对 “((goto (label ,linkage))) RER 

会 得 到 表 ((gote (label branch25 ))) 。 与 此 类 似 ， 如 果 x 的 值 是 表 (a b c), MA “(1 2 , (car 


x)) 求 出 的 值 就 是 (1 2 a), 
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next ， 所 以 由 此 生成 的 代码 将 把 值 放 入 val ， 并 继续 去 执行 跟随 其 后 的 代码 。 这 里 采用 的 拼 
接 方式 是 保留 env ， 因 为 在 设置 或 者 定义 变量 都 需要 当时 的 环境 ， 而 产生 变量 值 的 代码 可 能 
是 任何 复杂 表达 式 的 编译 结果 ， 其 中 完全 可 能 以 任何 方式 修改 env 寄 存 器 。 
(define (compile-assignment exp target linkage) 
(let ((var (assignment-variable exp) ) 
(get-value-code 
(compile (assignment-value exp) ’val ’next))) 
(end-with-linkage linkage 
(preserving *(env) 
get-value-code 
(make-instruction-sequence (env val) (list target) 
‘((perform (op set-variable-value! ) 
(const ,var) 
(reg val) 
(reg env)) 
(assign ,target (const ok)))))))) 


(define (compile-definition exp target linkage) 
(let ((var (definition-variable exp) ) 
(get-value-code 
(compile (definition-value exp) ’val ‘next))) 
(end-with~-linkage linkage 
(preserving (env) 
get-value-code 
(make-instruction-sequence *(env val) (list target) 
‘((perform (op define-variable!) 
(const ,var) 
(reg val) 
(reg env)) 
(assign ,target (const ok)))))))) 


在 拼接 两 个 指令 序列 时 需要 env 和 val ， 并 要 修改 目标 寄存 器 。 请 注意 ， 虽 然 我 们 为 这 个 序列 
保留 了 env ， 但 是 却 没有 保留 val ， 因 为 get-value-code 的 设计 将 会 显 式 地 把 它 的 返回 值 
放 入 val， 供 这 一 序列 使 用 。( 事 实 上 ， 如 果 我 们 真 去 保留 val 的 值 ， 反 而 会 引进 一 个 错误 ， 
因为 这 将 导致 在 get-value-code 运 行 之 后 又 恢复 了 val 原 来 的 内 容 。) 


条 件 表 达 式 的 编译 
对 给 定 的 目标 和 连接 ， 编 译 一 个 if 表 达 式 而 产生 出 的 指令 序列 将 具有 下 面 形式 : 
< 谓词 的 编译 ， 目 标 为 val, ERA next> 
(test (op false?) (reg val)) 
(branch (label false-branch) ) 
true-branch 
< 以 给 定 目 标 及 连接 或 after-if 对 推论 部 分 的 编译 结果 > 
false-branch 
< 以 给 定 目标 及 连接 对 替代 部 分 的 编译 结果 > 
after-if 


为 了 生成 这 样 的 代码 ， 我 们 需要 编译 其 中 的 谓词 、 推 论 和 替代 部 分 。 为 了 将 得 到 的 代码 
与 检测 谓词 结果 的 代码 组 合 起 来 ， 这 里 还 需要 生成 几 个 新 标号 ， 用 于 标识 出 检测 的 真 假 分 支 
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和 条 件 表达 式 计 算 的 结束 位 置 。 在 安排 这 些 代码 时 ， 我 们 必须 在 谓词 检测 为 假 时 跳 过 真 分 
支 。 稍 微 复 杂 一 些 的 情况 出 现在 对 于 真 分 支 的 连接 处 理 的 位 置 。 如 果 这 个 条 件 表达 式 的 连接 
是 return 或 是 标号 ， 真 分 支 和 假 分 支 都 应 该 使 用 这 个 连接 。 如 果 当 时 的 连接 是 next ， 真 分 
支 的 最 后 就 需要 一 个 跳 过 假 分 支 的 指令 ， 跳 到 标明 这 一 条 件 结束 的 标号 位 置 。 
(define (compile-if exp target linkage) 
(let ((t-branch (make-label *true-branch) ) 
(f-branch (make-label ’false-branch) ) 
(after-if (make-label ’after-if))) 
(let ((consequent-linkage 
(if (eq? linkage ’next) after-if linkage) )) 
(let ((p-code (compile (if-predicate exp) ‘val ’next)) 
(c-code 
(compile 
(if-consequent exp) target consequent-Linkage) ) 
(a-code 
(compile (if-alternative exp) target linkage) )) 
(preserving ’(env continue) 
p-code 
(append-instruction-sequences 
(make~instruction-sequence (val) '() 
‘((test (op false?) (reg val)) 
(branch (label ,f-branch)))) 
(parallel-instruction-sequences 
(append-instruction-sequences t-branch c-code) 
(append-instruction-sequences f-branch a-code)) 
after-if)))))) 


在 谓词 的 前 后 需要 保留 env, 因为 在 真 分 支 和 假 分 支 中 都 可 能 需要 它 ， 还 需要 保留 continue ， 
因为 这 些 分 支 的 连接 代码 可 能 需要 它 。 由 真 分 支 和 假 分 支 生 成 的 代码 (它们 绝 不 会 顺序 执行 ) 
用 另 一 个 特殊 组 合 操作 Parallel-instruction-sequences 拼 接 起 来 ， 这 一 操作 将 在 


5.5.4 节 里 描述 。 
请 注意 ，cond 是 一 个 派生 表达 式 。 因 此 ， 为 了 处 理 它 ， 编 译 器 需要 做 的 全 部 事情 就 是 应 


用 cond->if 变 换 过 程 ( 取 自 4.1.2 节 )， 而 后 编译 得 到 的 if 表 达 式 。 


322 我 们 不 能 像 上 面 所 示 的 那样 直接 采用 标号 true-branch 、false-branch 和 after~if ， 因 为 在 一 个 程序 
里 完全 可 能 有 不 止 一 个 if 。 因 此 编译 器 需要 用 make-1abel1 过 程 生成 新 标号 。 过 程 make-1abel 以 一 个 符 
号 作为 参数 ， 它 将 返回 一 个 新 符号 ， 这 一 标号 以 给 定 的 符号 作为 开始 部 分 。 例 如 ， 连 续 地 反复 调用 (make- 
label 'a) 将 返回 al 、a2 等 等 。 过 程 make-1abel 的 实现 可 以 采用 与 查询 语言 中 生成 唯一 变量 名 类 似 的 方 
式 ， 例 如 下 面 这 样 ， 


(define label-counter 0) 


(define (new-label-number) 
(set! label-counter (+ 1 label-counter) ) 


label-counter) 


(define (make-label name) 
(string->symbol 
(string-append (symbol->string name) 
(number->string (new-label-number))))) 
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表达 式 序 列 的 编译 
对 于 表达 式 序 列 (来自 过 程 体 或 者 显 式 的 begin 表 达 式 ) 的 编译 与 对 它们 的 求 值 一 样 。 
首先 分 别 编译 序列 里 的 每 个 表达 式 一 一 最 后 一 个 表达 式 将 采用 整个 序列 的 连接 ， 其 他 表达 式 
都 用 next 连接 (表示 随后 应 该 执行 序列 里 剩 下 的 部 分 )。 将 各 个 表达 式 编译 得 到 的 指令 序列 
拼接 起 来 ， 形 成 一 个 指令 序列 。 在 这 里 需要 保留 起 env (序列 的 其 余部 分 可 能 需要 它 ) 和 
continue (序列 最 后 的 连接 可 能 需要 它 )。 
(define (compile-sequence seq target linkage) 
(if (last-exp? seq) 
(compile (first-exp seq) target linkage) 
(preserving ’(env continue) 
(compile (first-exp seq) target next) 
(compile-sequence (rest-exps seq) target linkage)))) 
lambda 表 达 式 的 编译 
lambda 表 达 式 构造 出 的 是 过 程 。 一 个 lambda 表 达 式 的 目标 代码 必须 具有 下 面 的 形式 : 
< 构造 过 程 对 象 并 将 它 赋 给 目标 寄存 器 > 
< 连接 > - 
在 编译 Lambda 表 达 式 时 ， 我 们 还 要 生成 出 过 程 体 的 代码 。 虽 然 这 个 体 在 过 程 构造 期 间 并 
不 执行 ， 但 是 ， 将 它 的 目标 代码 插入 到 紧 接 着 1ambda 的 代码 之 后 是 很 方便 的 。 如 果 对 于 
lambda 表 达 式 的 连接 是 一 个 标号 或 者 return ， 这 样 做 就 正好 合适 。 但 是 如 果 当 时 的 连接 是 
next ， 那 么 我 们 就 需要 跳 过 过 程 体 的 代码 ， 此 时 采用 一 个 转 跳 连接 ， 将 相应 的 标号 放 在 过 程 
体 的 后 面 。 这 样 ， 目 标 代码 将 具有 下 面 形 式 : 


< 构造 过 程 对 象 并 将 它 赋 给 目标 寄存 器 > 

< 给 连接 的 代码 > 或 (goto (label after-lambda)) 

< 过 程 体 的 编译 结果 > 

after-lambda 

compile-1ambda 生 成 出 构成 过 程 对象 的 代码 ， 随 后 是 过 程 体 的 代码 。 这 种 过 程 对 象 将 
在 运行 时 构造 起 来 ， 构 造 的 方式 就 是 组 合 起 当时 的 环境 (定义 点 的 环境 ) 和 编译 后 的 过 程 体 
的 入 口 点 (一 个 新 生成 的 标号 ) ”。 

(define (compile-lambda exp target linkage) 

(let ((proc~entry (make-label ’entry)) 
(after-lambda (make~label ‘after-lambda) )) 


(let ((lambda-linkage 
(if (eq? linkage 'next) after-lambda linkage) )) 


323 我 们 需要 几 个 机 器 操作 ， 以 便 实现 表示 编译 后 的 过 程 的 数据 结构 ， 类 似 于 在 4.1.3 节 里 所 描述 的 复合 过 程 的 结 
构 : 
(define (make-compiled-procedure entry env) 


(list ’compiled-procedure entry env)) 


(define (compiled-procedure? proc) 
(tagged-list? proc 'compiled-procedure) ) 


(define (compiled-procedure-entry c-proc) (cadr c-proc)) 


(define (compiled-procedure-env c~proc) (caddr c-proc)) 
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(append-instruction-sequences 
(tack-on-instruction-sequence 
(end-with-linkage lambda-linkage 
(make-instruction-sequence ’(env) (list target) 
‘((assign ,target 
(op make-compiled~procedure) 
(label ,proc-entry) 
(reg env))))) 
(compile-lambda-body exp proc-~entry)) 
after-lambda) ))) 


compile~lambda 采 用 特殊 的 组 合 操 作 tack-on-instruction-sequence ( 见 $.5.4 节 )， 
将 过 程 体 代码 拼接 到 1ambda 表 达 式 的 代码 后 面 。 这 里 没有 用 append-instruction- 
sequences， 因 为 当 执 行进 入 被 组 合 的 序列 时 ， 过 程 体 并 不 是 相应 指令 序列 的 一 部 分 。 将 它 
放 在 这 里 ， 只 不 过 因为 这 是 安放 它 的 一 个 方便 位 置 。 
compile-lambda~body 构造 出 过 程 体 的 代码 。 这 段 代码 的 开始 是 一 个 入 口 点 标号 。 
随后 是 一 些 指令 ， 这 些 指 令 完 成 的 工作 是 将 运行 时 的 执行 环境 转换 到 求 值 过 程 体 的 正确 环 
境 一 一 也 就 是 说 ， 转 换 到 过 程 的 定义 环境 ， 还 要 完成 用 形式 参数 与 这 一 过 程 被 调用 时 的 实际 
参数 约束 的 扩充 。 在 此 之 后 就 是 构成 过 程 体 的 表达 式 序列 的 编译 结果 代码 。 这 个 序列 用 连 
接 return 和 目标 val 进 行 编译 ， 因 此 它 的 结束 是 从 过 程 里 返回 ， 过 程 的 结果 放 在 val 里 。 


(define (compile-lambda-body exp proc~entry) 
(let ((formals (lambda-parameters exp))) 
(append-instruction-sequences 
(make-instruction-sequence '(env proc argl) ’(env) 
‘(,proc-entry 
(assign env (op compiled-procedure-env) (reg proc)) 
(assign env 
(op extend-environment ) 
(const ,formals) 
(reg argl) 
(reg env)))) 
(compile-sequence (lambda-body exp) ‘val ‘return)))) 


5.5.3 组 合式 的 编译 


编译 过 程 中 最 本 质 的 东西 就 是 过 程 应 用 的 编译 。 一 个 组 合式 对 给 定 目标 和 连接 的 编译 结 
果 代 码 具 有 下 面 形式 : 

< 运算 符 的 编译 结果 ， 目 标 为 Proc ， 连 接 为 next> 

< 求 值 运算 对 象 并 构造 实际 参数 表 ， 放 人 arg1l> 

< 用 给 定 的 目标 和 连接 编译 过 程 调 用 的 结果 > 
在 求 值 运算 符 和 运算 对 象 期 间 ， 我 们 可 能 需要 保留 与 恢复 寄存 器 env、proc 和 arg1l。 请 注 
意 ， 在 这 个 编译 器 中 ， 仅 有 这 一 个 地 方 使 用 的 目标 描述 不 是 val。 

这 里 所 需要 的 代码 由 compilLle-application 生 成 。 compile-application 递 归 地 
编译 运算 符 ， 生 成 出 的 代码 把 需要 应 用 的 过 程 放 人 proc;， 而 后 去 编译 各 个 运算 对 象 ， 生 成 出 
对 过 程 应 用 所 需 的 各 个 运算 对 象 求 值 的 代码 。 针 对 各 个 运算 对 象 的 指令 序列 还 要 与 在 arg1 里 
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构造 实际 参数 表 的 代码 组 合 起 来 (通过 construct-arglist)， 得 到 的 实际 参数 表 代码 再 
与 过 程 的 代码 和 执行 过 程 调用 的 代码 (由 compile-procedure-call 生 成 ) 组 合 到 一 起 。 
在 拼接 这 一 代码 序列 的 过 程 中 ， 在 运算 符 求 值 的 前 后 必须 保留 和 恢复 enV (因为 运算 符 的 求 
值 可 能 修改 env ， 而 在 运算 对 象 求 值 时 还 需要 它 ) ， 在 构造 实际 参数 表 的 前 后 必须 保留 起 寄存 
器 proc (因为 对 运算 对 象 的 求 值 中 可 能 修改 przoc， 在 实际 过 程 应 用 时 还 需要 它 ) 。 在 整个 这 
一 段 的 前 后 需要 保留 continue ， 因 为 过 程 调用 的 连接 需要 它 。 
(define (compile-application exp target linkage) 
(let ((proc-code (compile (operator exp) ‘proc ’next)) 
(operand-codes 
(map (lambda (operand) (compile operand ‘val ’next)) 
(operands exp)))) 
(preserving ’(env continue) 
proc-code 
(preserving ’(proc continue) 
(construct-arglist operand-codes) 
(compile-procedure-call target linkage))))) 


构造 实 参 表 的 代码 将 对 每 个 运算 对 象 求 值 ， 结 果 放 和 人 val， 而 后 把 这 个 值 cons 到 在 arg1 
里 积累 起 来 的 实 参 表 中 。 因 为 这 里 是 顺序 地 将 实 参 cons 到 arg1 上 ， 因 此 我 们 就 必须 从 最 后 
一 个 参数 开始 ， 第 一 个 参数 最 后 做 ， 这 样 才 能 使 实际 参数 在 结果 表 里 出 现 的 顺序 是 从 第 一 个 
到 最 后 一 个 。 为 了 不 浪费 一 条 指令 去 做 将 argl 初始 化 为 空 表 ， 准 备 好 这 一 系列 求 值 的 工作 ， 
我 们 让 第 一 个 代码 序列 构造 出 初始 的 argl 。 这 样 ， 实 际 产 生 表 构 造 的 一 般 形式 就 是 : 


< 最 后 运算 对 象 的 编译 结果 ， 目 标 为 val> 
(assign argl (op list) (reg val)) 


< 下 一 运算 对 象 的 编译 结果 ， 目 标 为 val> 


(assign argl (op cons) (reg val) (reg argl)) 


< 第 一 个 运算 对 象 的 编译 结果 ， 目 标 为 val> 

(assign argl (op cons) (reg val) (reg argl)) 
除了 第 一 个 运算 对 象 之 外 ， 在 每 个 运算 对 象 求 值 的 前 后 都 必须 保留 和 恢复 argl (以 保证 至 今 
已 经 积累 起 的 实际 参数 不 会 丢失 ) ， 除了 最 后 一 个 参数 之 外 ， 在 每 个 运算 对 象 求 值 的 前 后 都 
必须 保留 和 恢复 env (以 便 后 续 的 运算 对 象 求 值 中 使 用 )。 

由 于 对 第 一 个 参数 需要 特殊 处 理 ， 并 需要 在 不 同 的 地 方 保留 azg1 和 env ， 编 译 这 段 实 参 
代码 中 有 些小 麻烦 。construct-arg1list 过 程 以 求 值 各 个 运算 对 象 的 代码 段 为 参数 。 如 采 
根本 就 设 有 运算 对 象 ， 它 就 直接 送出 下 面 指令 : 

(assign argl (const ())) 
否则 ，construct~arglist 就 用 最 后 一 个 实际 参数 创建 起 初始 化 arg1 的 代码 ， 并 拼接 起 
求 值 其 他 参数 得 到 的 代码 ， 并 将 它们 顺序 结合 到 arg1 里 。 为 了 从 后 向 前 处 理 各 个 实际 参数 ， 
我 们 必须 把 compile-application 提 供 的 运算 对 象 代 码 序列 的 表 反 转 过 来 。 

(define (construct-arglist operand-codes) 

{let ((operand-codes (reverse operand-codes))) 


(if (null? operand-codes) 
(make~instruction-sequence ’() *(argl) 
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*((assign argl (const ())))) 
(let ((code-to-get-last-arg 
(append-instruction-sequences 
(car operand-codes) 
(make-instruction-sequence ’(val) ’(argl) 
*((assign argl (op list) (reg val))))))) 
(if (null? (cdr operand-codes) ) 
code-to-get-last-arg 
(preserving ’(env) 
code-to-get-last-arg 
(code-to-get-rest-args 
(cdr operand-codes)))))))) 


(define (code-to-get-rest-args operand-codes) 
(let ((code-for-next-arg 
(preserving *(argl) 
(car operand-codes) 
(make-instruction-sequence ‘(val argl) ‘(argl) 
*( (assign argl 
(op cons) (reg val) (reg argl)))))})) 
(if (mull? (cdr operand-codes) ) 
code-for-next-arg 
(preserving ’(env) 
code-for-next-arg 


(code-to-get-rest-args (cdr operand-codes)))))) 
过 程 应 用 


在 完成 了 组 合式 里 的 各 个 元 素 的 求 值 之 后 ， 得 到 的 编译 结果 代码 需要 把 位 于 proc 里 的 过 程 
应 用 于 arg1 里 的 实际 参数 。 从 本 质 上 看 ， 这 段 代 码 执行 就 是 分 派 动作 ， 与 4.1.1 节 里 元 循环 求 值 器 
里 的 apply 过 程 ,或 者 5.4.1 节 里 显 式 控制 求 值 器 里 apply~dispatch 入 口 点 所 完成 的 动作 差不多 。 
它 检查 被 应 用 的 过 程 是 基本 过 程 还 是 编译 出 的 过 程 。 对 于 基本 过 程 使 用 PP1Y-Primitive- 
procedure。 下 面 马上 会 看 到 对 于 编译 出 的 过 程 的 处 理 方式 。 过 程 应 用 的 代码 具有 如 下 形式 ; 
(test (op primitive-procedure?) (reg proc)) 


(branch (label primitive-branch) ) 
compiled-branch 


< 对 给 定 目标 及 适当 连接 应 用 编译 好 的 过 程 的 代码 > 
primitive-branch 
(assign < 目标 > 
(op apply-primitive-procedure) 
(reg proc) 
(reg argl)) 
< 连接 > 
after-call 


应 注意 ， 这 里 有 关 编 译 后 过 程 的 分 支 必 须 跳 过 处 理 基本 过 程 的 分 支 。 这 样 ， 如 果 原 过 程 调 用 


的 连接 是 next ， 复 合 分 支 就 必须 使 用 另 一 个 连接 ， 以 便 能 跳 到 插入 在 基本 分 支 后 面 的 那个 标 
号 处 。( 这 类 似 于 在 compile~if 里 真 分 支 所 用 的 连接 。) 


(define (compile-procedure-call target linkage) 


(let ((primitive-branch (make-label ‘primitive-branch) ) 
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(compiled-branch (make-label ’compiled-branch) )} 
(after-call (make-label ‘after-call))) 
(let ((compiled-linkage 
(if (eq? linkage ‘next) after-call linkage))) 
(append-instruction-sequences 
(make-instruction-sequence (proc) °() 
‘((test (op primitive-procedure?) (reg proc)) 
(branch (label ,primitive-branch) })) 
(parallel-instruction-sequences 
(append-instruction-sequences 
compiled-branch 
(compile-proc-appl target compiled-linkage) ) 
(append-instruction-sequences 
primitive-branch 
(end-with-linkage linkage ê 
(make-instruction-sequence ’(proc argl) 
(list target) 
‘((assign ,target 
(op apply-primitive-procedure) 
(reg proc) 
(reg argl))))))) 
after-call)))) 
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这 里 的 基本 分 支 和 复合 分 支 很 像 compile-if 里 的 真 分 支 和 假 分 支 ， 它 们 也 是 用 过 程 


编译 出 的 过 程 的 应 用 


parallel-instruction-sequences Hiši, 而 没有 用 常规 的 append-instruction- 
sequences ， 因 为 它们 不 会 顺序 执行 。 


处 理 过 程 调 用 的 代码 是 这 个 编译 器 里 最 难处 理 的 部 分 ， 虽 然 它 所 生成 的 指令 序列 实际 上 


(assign continue (label proc-return) ) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 

proc-return 
(assign < 目标 > (reg val)) ; included if target is not val 
(goto (label < 连接 >)) ; linkage code 


当 连 接 是 return 时 ， 它 会 像 下 面 的 样子 : 


(save continue) 
(assign continue (label proc-return)) 
(assign val (op compiled-procedure-entry) (reg proc)) 
(goto (reg val)) 
proc-return 
(assign < 目标 > (reg val)) ; included if target is not val 
(restore continue) 
(goto (reg continue) ) : linkage code _ 


很 短 。 一 个 编译 出 的 过 程 (由 compile-lambda 构 造 出 来 ) 有 一 个 入 口 点 ， 就 是 一 个 标号 ， 
它 标 明了 这 个 过 程 的 开始 位 置 。 位 于 这 一 入 口 点 的 代码 能 够 计算 出 一 个 结果 ， 并 将 它 放 入 
val ， 而 后 通过 执行 指令 (goto (reg continue)) 返回 。 由 于 这 些 情况 ， 我 们 可 能 认为 ， 
如 果 连 接 是 一 个 标号 ， 针 对 给 定 的 目标 和 连接 应 用 一 个 编译 过 程 的 代码 (由 compile- 
proc-appl 生 成 ) 看 起 来 会 是 下 面 的 形式 : 
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这 里 的 代码 将 设置 好 continue (以 便 使 过 程 能 返回 标号 proc-return )， 而 后 就 跳 到 过 程 
的 入 口 点 。 位 于 proc-return 的 代码 把 过 程 产生 的 结果 从 val 传送 到 目标 寄存 器 (如 果 需 要 )， 
而 后 跳 到 由 连接 描述 的 特定 位 置 (这 一 连接 一 定 是 一 个 return 或 者 是 一 个 标号 ， 因 为 
compile-procedure-call 已 把 对 复合 过 程 分 支 的 next 连接 换 成 为 一 个 after-call 标 
ST). 

事实 上 ， 如 果 这 里 的 目标 不 是 val ， 那 么 它 正好 就 是 我 们 的 编译 器 将 要 生成 的 代码 ”“。 当 
然 ， 有 关 的 目标 通常 都 是 val (编译 器 里 以 另 一 个 寄存 器 作为 求 值 目标 的 地 方 仅 有 一 处 ， 那 
就 是 将 求 值 运算 符 的 目标 定 在 Proc ) ， 所 以 过 程 的 结果 将 直接 放 和 目标 寄存 器 ， 而 不 需要 将 
结果 先 放 入 特定 位 置 ， 而 后 再 去 复制 它 。 还 有 ， 我 们 还 要 简化 这 里 的 代码 ， 通 过 设置 好 
continue， 使 得 过 程 能 直接 “返回 ”到 调用 者 描述 的 连接 所 指定 的 位 置 : 

< 为 连接 设置 continue> 


(assign val (op compiled-procedure-entry) (reg proc)) 

(goto (reg val)) 
如 果 连 接 是 一 个 标号 ， 我 们 就 设置 好 continue ， 使 过 程 直接 返回 到 那个 标号 (也 就 是 说 ， 
作为 过 程 结束 的 (goto (reg continue))， 此 时 将 变 得 等 价 于 上 面 的 proc-return 处 的 
(goto (label < 连接 > ))。) 

(assign continue (label < 连接 >) ) 

(assign val (op compiled-procedure-entry) (reg proc)) 

(goto (reg val)) 
如 果 连 接 是 return ， 我 们 将 根本 不 需要 设置 continue : 它 里 面 已 经 保存 着 所 需 的 地 址 。 
(也 就 是 说 ， 作 为 这 一 过 程 结 束 的 (goto (reg continue))， 将 能 直接 跳 到 上 面 的 Proc- 
return 处 的 (goto (reg continue)) 应 该 跳 到 的 地 方 。) 

(assign val (op compiled-procedure-entry) (reg Pproc)) 

(goto (reg val)) 
采用 这 样 的 return 连 接 实现 后 ， 编 译 器 就 能 生成 尾 递 归 代码 了 。 在 调用 一 个 过 程 时 ， 作 为 过 
程 体 的 最 后 一 个 步 又 将 完成 一 次 直接 转移 ， 无 需 向 堆栈 里 保存 任何 信息 。 

假如 我 们 不 采取 这 种 做 法 ， 对 于 具有 return 连 接 和 val 目 标的 过 程 调 用 ， 也 采用 上 面 所 
示 的 那 种 对 非 val 目标 的 代码 的 处 理 方式 ， 那 么 就 会 破坏 尾 递归 。 虽 然 这 样 得 到 的 系统 对 任 
何 表达 式 都 将 给 出 同样 结果 ， 但 在 每 次 调用 过 程 时 ， 它 都 要 保存 起 continue， 并 在 相应 调 
用 最 后 返回 时 撤销 这 种 (无 用 ) 保存 的 效果 。 这 一 额外 的 保存 将 会 在 嵌 套 的 过 程 调 用 中 积累 


Ek”, 


324 在 实际 中 ， 当 目标 不 是 val 而 连接 是 return 时 ， 我 们 将 发 出 一 个 错误 信号 ， 因 为 只 有 在 编译 过 程 时 才 需 要 
return 连接 ， 而 按照 我 们 的 约定 ， 过 程 总 是 在 Val 里 返回 它们 的 值 。 

35 这 样 看 起 来 ， 编 译 器 生成 尾 递归 代码 的 思想 是 非常 直截了当 的 。 但 是 ， 处 理 常见 语言 (包括 C 和 Pascal) 的 大 
部 分 编译 器 都 没有 做 这 件 事 ， 因 此 在 这 些 语言 里 就 不 能 仅仅 用 过 程 调用 来 描述 迭代 。 在 那些 语言 里 处 理 尾 递 
归 的 困难 ， 在 于 它们 的 实现 中 不 但 在 堆栈 里 保存 返回 地 址 ， 还 要 保存 过 程 实际 参数 和 局 部 变量 。 在 本 书 所 描 
述 的 Scheme 实现 里 ， 实 参 和 变量 都 保存 在 能 做 废料 收集 的 存储 区 里 。 采 用 堆栈 保存 实 参 和 局 部 变量 ， 是 因为 
那样 做 可 以 避免 在 语言 里 使 用 废料 收集 ( 如 果 不 那样 做 就 会 需要 它 ) , 一 般 认为 这 种 情况 有 利于 程序 执行 效率 。 
事实 上 ， 复 杂 的 .isp 编 译 器 也 可 以 用 堆栈 保存 实 参 而 又 不 破坏 尾 递归 (参看 Hanson 1990 的 讨论 ) 。 在 更 基本 
的 问题 上 ， 有 关 堆 栈 分 配 是 否 确实 能 得 到 高 于 废料 收集 的 效率 ， 也 存在 着 许多 争论 ， 其 中 的 细节 看 来 依赖 于 
计算 机 体 系 结构 的 某 些 细微 要 点 (参见 Appel 1987 和 Miller and Rozas 1994 有 关 这 一 问题 的 对 立 观点 )。 
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compile-proc-app1 生 成 上 面 所 述 的 过 程 调 用 代码 ， 其 中 考虑 了 四 种 不 同情 况 ， 根 据 
一 个 调用 的 目标 是 否 为 val ， 以 及 其 连接 是 否 为 retuzn 。 可 以 看 到 ， 这 里 的 代码 序列 都 说 明 
为 需要 修改 所 有 寄存 器 ， 因 为 执行 过 程 体 完全 可 能 以 任何 方式 修改 寡 存 器 ”“。 还 请 注意 ， 有 
关 目标 ral 和 连接 retuzn 情 况 的 代码 序列 说 明了 需要 continue : 即使 continue 并 没有 被 
用 在 其 中 的 两 个 指令 序列 里 ， 我 们 也 必须 保证 在 进入 编译 好 的 过 程 时 ，continue 将 有 正确 
的 值 。 

(define (compile-proc-appl target linkage) 

(cond ((and (eq? target 'val) (not (eq? linkage ‘return))) 
(make-instruction-sequence (proc) all-regs 
‘((assign continue (label ,linkage)) 
(assign val (op compiled-procedure-entry) 
(reg proc)) 
(goto (reg val))))) 
((and (not (eq? target ’val)) 
(not (eq? linkage ’return))) 
(let ((proc-return (make-label ’proc-return))) 
(make-instruction-sequence (proc) all-regs 
‘((assign continue (label ,proc-return)) 
(assign val (op compiled-procedure-entry) 
(reg proc)) 
(goto (reg val)) 
»proc-return 
(assign ,target (reg val)) 
(goto (label ,linkage)))))) 
((and (eq? target ’val) (eq? linkage ’return) ) 
(make-instruction-sequence ’(proc continue) all-regs 
*(({assign val (op compiled-procedure-entry ) 
(reg proc)) 
(goto (reg val))))) 
((and (not (eq? target ’val)) (eq? linkage ’return) ) 
(error "return linkage, target not val -- COMPILE" 
target)))) 


5.5.4 指令 序列 的 组 合 


本 节 将 说 明 如 何 表示 指令 序列 ， 以 及 如 何 组 合 起 它们 的 细节 。 回 忆 一 下 5.5.1 节 ， 那 时 我 
们 说 明了 ， 指 令 序列 用 一 个 表 来 表示 ， 其 中 包含 所 需要 的 寄存 器 集合 ， 所 修改 的 寄存 器 集合 ， 
以 及 一 串 实际 指令 。 我 们 还 要 把 标号 (一 个 符号 ) 看 作 是 指令 序列 里 的 一 种 退化 情况 ER 
不 需要 也 不 修改 任何 寄存 器 。 这样， 在 需要 确定 一 个 指令 序列 需要 哪些 寄存 器 ， 修 改 哪 些 寄 
存 器 时 ， 我 们 将 使 用 下 面 的 选择 函数 : 

(define (registers-needed s) 

(if (symbol? s) °() (car s))) 


(define (registers-modified s) 


26 ay all-regs HK F—-TAS HAE BFR: 


(define all-regs ‘(env proc val argl continue) ) 
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(if (symbol? s) °() (cadr s))) 


(define (statements s) 
(if (symbol? s) (list s) (caddr s))) 


要 确定 其 个 指令 序列 是 否 需 要 或 者 修改 某 个 特定 的 寄存 器 ， 我 们 使 用 下 面 的 谓词 
(define (needs-register? seq reg) 


(memq reg- (registers-needed seq))) 


(define (modifies-register? seq reg) 
(memg reg (registers-modified seq))) 
现在 我 们 就 可 以 基于 这 些 谓词 和 选择 函数 ， 去 实现 用 在 这 个 编译 器 里 的 各 种 组 合 指令 序列 的 
过 程 了 。 

最 基本 的 组 合 过 程 是 append-instruction-sequences ， 它 以 任意 多 个 意欲 顺序 执 
行 的 指令 序列 为 实际 参数 ， 返 回 一 个 指令 序列 ， 其 中 的 语句 是 由 所 有 参数 序列 里 的 语句 顺序 
拼接 而 形成 的 。 在 这 里 ， 更 复杂 的 问题 是 确定 结果 序列 所 需要 和 修改 的 寄存 器 集合 。 EME 
改 的 寄存 器 就 是 被 其 中 的 任 一 个 序列 修改 的 寄存 器 ， 而 它 所 需要 的 寄存 器 就 是 在 其 中 的 第 一 
个 序列 可 以 运行 前 必须 初始 化 的 那些 寄存 器 (第 一 个 序列 所 需要 的 寄存 器 ) ， 再 加 上 其 他 序列 
里 的 某 一 个 所 需要 的 那些 寄存 器 ， 而 这 些 寄存 器 又 没有 被 它 前 面 的 序列 初始 化 (或 者 修改 )。 

这 些 序列 用 append-2-sequences 两 个 一 次 地 拼接 起 来 。 这 个 过 程 以 两 个 指令 序列 
seql 和 seq2 作 为 参数 ， 返 回 一 个 指令 序列 ， 其 中 的 语句 是 序列 seq1 里 的 语句 后 跟着 序列 
seq2 里 的 语句 ， 它 所 修改 的 寄存 器 包括 所 有 被 seq1 或 者 seq2 修改 的 寄存 器 ， 它 需要 的 寄存 
- 器 是 seq1 所 需要 的 寄存 器 ， 再 加 上 那些 seq2 需 要 同时 又 没有 被 seq1 修 改 的 寄存 器 (按照 集 
合 操作 的 描述 方式 ， 这 一 新 语句 序列 需要 的 寄存 器 ， 就 是 seq1 需 要 的 寄存 器 集合 ， 与 seq2 
需要 的 寄存 器 集合 与 seql 修改 的 寄存 器 集 的 差 集 之 并 集 ) 。 这 样 ，append-instruction- 
sequences 可 以 实现 如 下 ; 

(define (append-instruction-sequences - seqs) 

(define (append-2-sequences seql seq2) 
(make-instruction-sequence 
(list-union (registers-needed seq1) 
(list-difference (registers-needed seq2) 
(registers-modified seql))) 
(list-union (registers-modified segl) 
(registers-modified seq2)) 
(append (statements seql) (statements seq2)))) 
(define (append-seq-list seqs) 
' (if (null? seqs) 
(empty-instruction-sequence) 
(append-2-sequences (car seqs) 
(append-seq-list (cdr seqgs))))) 
(append-seq-list seqs) ) 

这 个 过 程 里 使 用 了 一 些 简单 操作 ， 完 成 对 以 表 的 形式 表示 的 集合 的 各 种 运算 。 这 种 表 与 
2.3.3 节 里 描述 的 (无 序 ) 集合 表示 类 似 : 

(define (list-union sl s2) 

(cond ((null? sl) s2) 


414 | Pt FABMELHAK 


({memq (car sl) s2) (list-union (cdr s1) s2)) 
(else (cons (car sl) (list-union (cdr sl) s2))))) 


(define (list-difference sl s2) 
(cond ((null? sl) '()) 
((memq (car sl) s2) (list-difference (cdr sl) s2)) 
(else (cons (car sl) 
(list-difference (cdr sl) s2))))) 


preserving 是 第 二 个 主要 的 序列 组 合 过 程 ， 它 的 参数 是 一 个 寄存 器 表 regs 和 两 个 应 该 
顺序 执行 的 指令 序列 seql 和 seq2。 它 返回 一 个 指令 序列 ， 其 中 的 语句 是 seq1 的 语句 后 跟着 
seq2 的 语句 ， 再 加 上 围绕 在 seq1 的 语句 前 后 的 适当 的 save 和 restore 指 令 ， 以 便 保护 
regs 里 的 那些 seq2 需 要 的 而 又 将 被 seq1l 修 改 的 寄存 器 。 为 了 完成 这 一 工作 , preserving 
首先 创建 出 一 个 序列 ， 其 中 包含 了 所 需要 的 那些 save ， 后 面 跟着 seq1l 里 的 语句 ， 而 后 是 所 
需 的 所 有 zestore。 这 一 序列 所 需要 的 寄存 器 ， 除 了 seg1 需 要 的 那些 寄存 器 外 ， 还 有 所 有 
在 这 里 保留 和 恢复 的 寄存 器 ， 它 修改 的 寄存 器 就 是 seq1 修 改 的 寄存 器 ,但 要 除去 在 这 里 保留 
和 恢复 的 那些 寄存 器 。 最 后 将 这 一 扩充 序列 与 seg2 按 常规 方式 拼接 起 来 。 下 面 过程 以 递归 方 
式 实现 这 一 策略 ， 逐 一 处 理 需 要 保留 的 寄存 器 表 里 的 寄存 器 ”” ， 


(define (preserving regs seql seq2) 
(if (null? regs) 
(append-instruction-sequences seql seq2) 
(let ((first-reg (car regs))) 
(if (and (needs-register? seq2 first-reg) 
(modifies-register? seqi first-reg) ) 
(preserving (cdr regs) 
(make-instruction-sequence 
(list-union (list first-reg) 
(registers-needed seql)) 
(list-difference (registers-modified segl) 
(list first-reg) ) 
(append ‘((save ,first-reg) ) 
(statements seql) 
‘((restore ,first-reg)))) 
seq2) 
(preserving (cdr regs) seql seq2))))) 


另 一 个 序列 组 合 过 程 是 tack-on-instruction-sequence， 它 用 在 compile-lambda 
里 ， 用 于 将 过 程 与 另 一 个 序列 拼接 起 来 。 由 于 过 程 体 本 身 并 不 是 作为 组 合 序列 的 一 部 分 而 
“在 线 ” 执 行 的 ， 它 所 使 用 的 寄存 器 对 于 它 戏 入 其 中 的 序列 的 寄存 器 使 用 并 没有 影响 。 这 样 ， 
我 们 在 将 过 程 体 纳入 其 他 序列 时 ， 就 应 该 忽略 它 所 需要 和 修改 的 寄存 器 集合 。 


(define (tack-on-instruction-sequence seq body-seq) 
(make-instruction-sequence 
(registers-needed seq) 
(registers-modified seq) 
(append (statements seq) (statements body-seq)))) 


22 请 注意 ， 这 里 preserving 用 三 个 参数 调用 apPend。 虽 然 本 书 里 介绍 的 apPend 定 义 只 接受 两 个 参数 Scheme 
标准 提供 的 apPpend 过 程 可 以 接受 任意 多 个 参数 。 
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compile-it 和 compile-procedure-cal1 采 用 了 一 个 特殊 的 组 合 过 程 ， 完 成 条 件 表 
达 式 中 检测 之 后 的 两 个 分 支 的 拼接 , 这 个 过 程 名 为 pPBarallel-instruction-sequences。 
这 里 的 两 个 分 支 决 不 会 顺序 执行 ， 对 于 任何 一 种 特定 的 检测 求 值 情况 ， 有 且 仅 有 两 个 分 支 之 
一 执行 。 正 因为 这 样 ， 第 二 个 分 支 所 需要 的 寄存 器 也 将 是 整个 组 合 序列 所 需要 的 ， 即 使 其 中 
的 一 些 被 第 一 个 分 支 修改 也 如 此 。 


(define (parallel-instruction-sequences Seql seq2) 
(make-instruction-sequence 
(list-union (registers-needed seql) 
(registers-needed seq2) ) 
(list-union (registers-modified seql) 
(vegisters-modified seq2)) 
(append (statements segi) (statements seq2)))) 


5.5.5 编译 代码 的 实例 

至 此 我 们 已 经 看 到 了 这 一 编译 器 的 所 有 元 素 , 现在 让 我 们 来 考察 一 个 编译 代码 的 实例 ， 
看 看 这 里 的 各 种 东西 如 何 相 互 配合 浑然 一 体 。 我 们 将 通过 下 面 形式 调用 compile， 编 译 其 中 
递归 定义 的 factorial 过 程 的 定义 : 


(compile 
"(define (factorial n) 
(if (= n 1) 
1 
(* (factorial (- n 1)) n))) 
"val 
"next) 


前 面 已 经 说 过 ，define 表 达 式 的 值 应 该 放 入 寄存 器 val ， 我 们 也 不 关心 在 执行 define 之 后 
的 编译 代码 是 什么 。 因 此 在 这 里 就 随意 地 选择 next 作 为 连接 描述 符 。 
由 于 compile 确 定 了 被 处 理 的 表达 式 是 一 个 定义 ， 所 以 它 调用 compile-definition 
去 编译 出 计算 被 赋 的 值 的 代码 (以 val 为 目标 )， 随 后 是 安装 这 一 定义 的 代码 ， 随 后 是 将 这 一 
define 的 值 (就 是 符号 ok) 放 入 目标 寄存 器 的 代码 ， 再 后 面 是 最 后 的 连接 代码 。env 被 保 
留 起 来 ， 绕 过 值 的 计算 部 分 ， 因 为 后 来 还 需要 用 它 去 安装 这 个 定义 。 由 于 连接 是 next ， 在 这 
种 情况 下 就 没有 连接 代码 。 这 样 ， 编 译 结果 代码 的 框架 如 下 : 
< 如 果 env 被 计算 值 的 代码 修改 就 保存 它 > 
< 定义 值 的 编译 结果 ， 目 标 为 val ， 连 接 next> 
< 如 果 env 在 前 面 保存 就 恢复 E 
(perform (op define-variable!) 
(const factorial) 
(reg val) 
(reg env)) 
(assign val (const ok)) 
在 这 里 ， 需 要 编译 并 产生 出 变量 factorial 的 值 的 表达 式 是 一 个 lambda 表 达 式 ， 这 个 
值 是 一 个 计算 阶乘 的 过 程 。compile 处 理 这 种 表达 式 的 方式 是 调用 compile-~lambda, 让 
这 个 过 程 去 编译 过 程 体 ， 用 新 标号 将 它 标记 为 一 个 入 口 点 ， 并 生成 出 一 些 指令 ， 将 位 于 这 个 


新 入口 点 的 过 程 体 组 合 到 运行 时 的 环境 中 ， 最 后 将 结果 赋 给 val 。 虽 然 编译 好 的 过 程 代 码 被 
播 入 在 这 个 位 置 ， 整 个 序列 则 需要 跳 过 这 些 代码 。 过 程 代码 在 它 开 始 的 地 方 去 扩充 过 程 的 定 
义 环境 ， 在 这 里 需要 增加 一 个 框架 ， 其 中 将 形式 参数 “约束 到 过 程 的 实际 参数 。 随 后 就 是 实际 
的 过 程 体 。 由 于 求 出 变量 值 的 这 段 代 码 并 不 修改 env 寄 存 器 ， 因 此 前 面 所 示 的 可 选 的 save 和 
restore 就 不 会 产生 (位 于 entry2 的 过 程 代码 在 这 一 点 还 没有 执行 ， 因 此 它 对 env 的 使 用 
与 此 无 关 )。 这 样 ， 编 译 生 成 的 代码 框架 变 成 了 : 
(assign val (op make-compiled-procedure) 
(label entry2) 
(reg env)) 
(goto (label after-lambdal)) 
entry2 
(assign env (op compiled-procedure-env) (reg proc)) 
(assign env (op extend-environment) 
(const (n)) 
(reg argl) 
(reg env) ) 
< 过 程 体 的 编译 结果 > 
after-lambdal 
(perform (op define-variable!) 
(const factorial) 
(reg val) 
(reg env) ) 
(assign val (const ok)) 
过 程 体 总 是 被 (用 compile-lambda-body ) 编译 为 一 个 序列 ， 用 val 作 为 目标 ， 用 的 
连接 是 return。 目 前 这 个 序列 来 自 一 个 if 表 达 式 : 
(if (=n 1) 
1 
(* (factorial (- n 1)) n)) 
compile-if 生 成 的 代码 首先 计算 谓词 部 分 (目标 为 vral) ， 而 后 检查 计算 结果 ， 在 谓词 为 假 
时 跳 过 真 分 支 。 在 谓词 代码 的 前 后 需要 保留 和 恢复 env、continue ， 因 为 if 表 达 式 的 其 他 
部 分 还 可 能 需要 它们 。 因 为 这 个 1f 表 达 式 也 是 构成 这 个 过 程 体 的 序列 里 的 最 后 一 个 (也 是 仅 
有 的 一 个 ) 表达 式 ， 其 目标 是 Va1l 而 且 连 接 是 return， 所 以 它 的 真 分 支 和 假 分 支 都 用 目标 
val 和 连接 return 编 译 。( 也 就 是 说 ， 这 个 条 件 表达 式 的 值 ， 也 就 是 从 它 的 任何 分 支 计 算出 
的 值 ， 实 际 上 就 是 整个 过 程 的 值 。) 
< 如 果 continue, env 被 谓词 部 分 修改 且 后 面 分 支 需要 ， 就 保存 > 
< 谓词 部 分 的 编译 结果 ， 目 标 为 val ， 连 接 为 next> 
< 如 果 continue, env 在 前 面 保 存 ， 现 在 恢复 > 
(test (op false?) (reg val)) 
(branch (label false-branch4) ) 
true-branch5 
< 真 分 支 的 编译 结果 ， 目 标 为 val ， 连 接 为 return> 
false-branch4 


< 假 分 支 的 编译 结果 ， 目 标 为 Val ， 连 接 为 return> 
after-if3 


谓词 (= n 1) 是 一 个 过 程 调用 ， 这 时 需要 查找 运算 符 (符号 = )， 并 把 相应 的 值 放 入 
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proc 。 而 后 把 实 参 1 和 /的 值 装 进 arg1 里 。 这 时 需要 检查 proc 里 面包 含 的 是 基本 过 程 还 是 复 
合 过 程 ， 并 根据 情况 分 派 到 基本 分 支 或 者 复合 分 支 ， 这 两 个 分 支 都 结束 在 after-call 标 号 。 
有 关 在 求 值 运算 符 和 运算 对 象 的 前 后 保留 和 恢复 寄存 器 的 要 求 ， 在 目前 这 一 情况 里 没有 导致 
任何 寄存 器 保留 动作 ， 因 为 这 里 的 求 值 都 不 会 修改 需要 考虑 的 那些 寄存 器 。 


(assign proc 
(op lookup-variable-value) (const =) (reg env)) 
(assign val (const 1)) 
(assign argl (op list) (reg val)) 
(assign val (op lookup-variable-value) (const n) (reg env)) 
(assign argl (op cons) (reg val) (reg argl)) 
(test (op primitive-procedure?) (reg proc) ) 
(branch (label primitive-branchl17) ) 
compiled-branchl6é 
(assign continue (label after-call115)) 
(assign val (op compiled-procedure-entry) (reg proc)) 
(goto (reg val)) 
primitive-branchl7 
(assign val (op apply-primitive-procedure) 
(reg proc) 
(reg argl)) 
after-call15 


真 分 支 就 是 常数 1， 它 将 被 编译 为 (用 目标 Val 和 连接 return ) 


(assign val (const 1)) 
(goto (reg continue)) 


相对 于 假 分 支 的 代码 是 另 一 个 过 程 调用 ， 其 中 的 过 程 是 符号 * 的 值 ， 参 数 是 n 和 另 一 过 程 调用 
的 结果 (这 里 又 是 一 个 对 factorial 的 调用 )。 这 些 调用 中 的 每 一 个 都 要 设置 proc 和 arg1， 
以 及 它们 的 基本 分 支 和 复合 分 支 。 图 $-17 显 示 的 是 factorial 过 程 的 定义 的 完整 编译 结果 。 
请 注意 ， 在 那里 围绕 着 谓词 的 ， 还 有 对 于 continue 和 env 的 save 和 restore， 它 们 都 被 实 
际 生 成 出 来 了 ， 这 是 因为 在 谓词 里 的 过 程 调 用 要 修改 这 些 寄存 器 ， 而 两 个 分 支 里 的 过 程 调用 
和 return 连 接 都 还 需要 它们 。 1 


; construct the procedure and skip over code for the procedure body 
(assign val 
(op make-compiled-procedure) (label entry2) (reg env)) 
(goto (label after-lambdal)) 


entry2 ; callsto factorial will enter here 
(assign env (op compiled-procedure-env) (reg proc) ) 


(assign env 
(op extend-environment) (const (n)) (reg argl) (reg env)) 
;; begin actual procedure body 
(save continue) 
(save env) 


六 compute (= n 1) 


图 5-17 对 过 程 factorial 定 义 的 编译 结果 
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(assign proc (op lookup-variable-value) (const =) (reg env)) 
(assign val (const 1)) 
(assign argl (op list) (reg val)) 
(assign val (op lookup-variable-value) (const n) (reg env) ) 
(assign argl (op cons) (reg val) (reg argl)) 
(test (op primitive~procedure?) (reg proc)) 
(branch (label primitive-branch17) ) 
compiled-branchi6é 
(assign continue (label after-call15)) 
(assign val (op compiled-procedure-entry) (reg proc)) 
(goto (reg val)) 
primitive-branchl7 
(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 


after-call15 ; val now contains result of (= n 1) 

(restore env) 

(restore continue) 

(test (op false?) (reg val)) 

(branch (label false-branch4) ) 
true-branch5 ; return! 

(assign val (const 1)) 

(goto (reg continue) ) 


false-branch4 

;; compute and return (* (factorial (- n 1)) n) 
(assign proc (op lookup-variable-value) (const *) (reg env)) 
(save continue) 
(save proc) ; save * procedure ‘ l : 
(assign val (op lookup-variable-value) (const n) (reg env)) 
(assign argl (op list) (reg val)) 
(save argl) ; save partial argument list for * 


;; compute (factorial (~ n 1)), which is the other argument for * 
(assign proc 
(op lookup-variable-value} (const factorial) (reg env)) 


(save proc) ; save factorial procedure 


;; compute (- n 1), which is the argument for factorial 
(assign proc (op lookup-variable-value) (const -) (reg env)) 
(assign val (const 1)) 
(assign argl (op list) (reg val)) 
(assign val (op lookup-variable-value) (const n) (reg env)) 
(assign argl (op cons) (reg val) (reg argl)) 
(test (op primitive-procedure?) (reg proc)) 
(branch (label primitive-branch8) ) 
compiled-branch7 
(assign continue (label after-call6)) 
(assign val (op compiled-procedure-entry) (reg proc)) 
(goto (reg val)) 
primitive-branch8 


图 5-17 (#8) 
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{assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 


after-call6 ; val now contains result of (~ n 1) 
(assign argl (op list) (reg val)) 
(restore proc) ; restore factorial 
s apply factorial 
(test (op primitive-procedure?) (reg proc)) 
(branch (label primitive-branch11) ) 
compiled-branch10 
(assign continue (label after-call9)) 
(assign val (op compiled-procedure-entry) (reg proc)) 
(goto (reg val)) 
primitive-branchil 
(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 


after-call9 ; val now contains result of (factorial (- n 1)) 
(restore argl) ; restore partial argument list for * 
(assign argl (op cons) (reg val) (reg argl)) 
(restore proc) ; restore * 
(restore continue) 

; apply * and return its value 
(test (op primitive-procedure?) (reg proc)) 
(branch (label primitive-branchl4) ) 

compiled-branch13 

;; note that a compound procedure here is called tail-recursively 
(assign val (op compiled-procedure-entry) (reg proc)) 
(goto (reg val)) 

primitive-branchl4 
(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 
(goto (reg continue) ) 

after-call1l2 

after-if3 

after-lambdal 

;; assign the procedure to the variable factorial 
(perform 
(op define-variable!) (const factorial) (reg val) (reg env)) 
(assign val (const ok)) 


5-17 ( 续 ) 
练习 5.33 ”考虑 下 面 这 个 阶乘 过 程 的 定义 ， 它 与 上 面 给 出 的 定义 略 有 不 同 : 


(define (factorial-alt n) 
(if (= n 1) 
1 
(* n (factorial-alt (- n 1))))) 
请 编译 这 个 过 程 ， 并 将 得 到 的 代码 与 Factorial 的 代码 做 比较 。 请 解释 你 所 看 到 的 各 个 不 同 
之 处 。 在 这 两 个 程序 中 ， 会 不 会 有 一 个 比 另 一 个 更 高 效 ? 
练习 5.34 ”请 编译 下 面 的 迭代 型 阶乘 过 程 ; 


(define (factorial n) 
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(define (iter product counter) 
(if (> counter n) 
product 
(iter (* counter product) 
(+ counter 1)))) 


(iter 1 1)) 
请 在 结果 代码 里 加 上 标注 ,说 明 在 factorial 的 迭代 型 和 递归 型 版 本 的 代码 中 ， 存 在 着 哪些 
本 质 性 的 差异 ， 使 得 一 个 过 程 需要 不 断 使 用 堆栈 空间 ， 而 另 一 个 可 以 在 常量 空间 里 运行 。 
练习 5.35 ”编译 产生 出 图 5-18 所 示 代 码 的 表达 式 是 什么 ? 


(label entry16) 
(reg env)) 


(assign val (op make-compiled-procedure) 


(goto (label after-lambdal5)) 
entryl6 
(assign env (op compiled-procedure-env) (reg proc)) 
(assign env 
(op extend-environment) (const (x)) (reg argl) (reg env)) 
(assign proc (op lookup-variable-value) (const +) (reg env)) 
(save continue) 
(save proc) 
(save env) 
(assign proc (op lookup-variable-value) (const g) (reg env)) 
(save proc) 
(assign proc (op lookup-variable-value) (const +) (reg env) ) 
(assign val (const 2)) 
(assign argl (op list) (reg val)) 
(assign val (op lookup-variable-value) (const x) (reg env) ) 
(assign argl (op cons) (reg val) (reg argl)) 
(test (op primitive-procedure?) (reg proc)) 
(branch (label primitive-branchl9)) 
compiled-branch18 
(assign continue (label after-call17)) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 
primitive-branchl19 
(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 
after-calll7 
(assign argl (op list) (reg val)) 
(restore proc) 
(test (op primitive-procedure?) (reg proc)) 
(branch (label primitive-branch22)) 
compiled-branch21 
(assign continue (label after-call20)) 
(assign val (op compiled-procedure-entry) (reg proc)) 
(goto (reg val)) 
primitive-branch22 
(4ssign val (op apply-primitive-procedure) (reg proc) (reg argl)) 


图 5-18 编译 器 输出 结果 一 个 实例 。 见 练习 5.35 
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after-cal120 
(assign argl (op list) (reg val)) 
(restore env) 
(assign val (op lookup-variable-value) (const x) (reg env)) 
(assign argl (op cons) (reg val) (reg argl)) 
(restore proc) 
(restore continue) 
(test (op primitive-procedure?) (reg proc)) 
(branch (label primitive-branch25)) 
compiled-branch24 
(assign val (op compiled-procedure-entry) (reg proc)) 
(goto (reg val)) 
primitive-branch25 
(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 
(goto (reg continue) ) 
after-call23 
after-lambdal5 
(perform (op define-variable!) (const f) (reg val) (reg env)) 


(assign val (const ok)) 


图 5-18 (48) 


$55.36 ”在 我 们 的 编译 器 所 产生 的 代码 里 ， 对 于 组 合式 里 的 运算 对 象 的 求 值 顺序 是 什 
么 ?是 从 左 到 右 ， 是 从 右 到 左 ， 还 是 其 他 什么 顺序 ? 这 一 编译 器 里 的 哪个 部 分 确定 了 这 一 顺 
序 ? 请 修改 编译 器 ， 使 之 能 产生 其 他 求 值 顺序 (参见 5.4.1 节 里 有 关 显 式 控 制 求 值 器 里 求 值 顺 
序 的 讨论 )。 这 样 修改 了 运算 对 象 的 求 值 顺 序 ， 会 改变 构造 参数 表 的 代码 的 效率 吗 ? 

练习 5.37 ”理解 编译 器 里 为 优化 堆栈 使 用 的 preserving 机 制 的 一 种 方式 ， 是 去 看 看 如 
果 不 采用 这 一 想法 ， 将 会 生成 出 多 少 额外 的 操作 。 请 修改 Preserving， 使 它 总 是 生成 save 
和 restore 操 作 。 请 编译 一 些 简 单 的 表达 式 ， 并 标 出 这 样 生 成 出 来 的 不 必要 的 堆栈 操作 。 将 
这 样 生 成 出 的 代码 与 采用 原来 的 preserving 机 制 生成 的 代码 做 比较 。 

练习 5.38 ”我 们 的 编译 器 在 避免 不 必要 的 堆栈 操作 方面 很 璐 明 ， 但 是 当 它 遇 到 编译 对 于 
语言 中 的 基本 过 程 的 调用 ， 将 其 编译 为 机 器 提供 的 基本 操作 时 ， 就 表现 得 一 点 也 不 聪明 了 。 
举 个 例子 ， 让 我 们 考虑 一 下 对 计算 (+a 1) 的 编译 将 产生 多 少 代码 ， 将 实 参 表 设 置 到 arg1l 
的 代码 ， 将 基本 的 加 法 过 程 (是 通过 用 符号 + 在 环境 中 查找 而 得 到 的 ) 放 入 Proc ， 检 测 这 个 
过 程 是 基本 过 程 还 是 复合 过 程 。 编 译 器 总 是 要 生成 执行 这 种 检测 的 代码 ， 还 要 生成 构成 基本 
分 支 和 复合 分 支 的 代码 (只 有 其 中 之 一 会 执行 ) 。 我 们 还 没有 展示 控制 器 中 实现 基本 操作 的 那 
些 部 分 ， 但 是 可 以 假定 ， 有 关 指 令 使 用 了 机 器 的 数据 通路 里 的 一 些 基本 算术 操作 。 请 考虑 一 
下 ， 如 果 编 译 器 可 以 将 基本 操作 做 成 开放 式 代 码 一 一 也 就 是 说 ， 如 果 它 能 生成 出 直接 使 用 这 
些 基本 机 器 操作 的 代码 一 一 产生 出 的 代码 将 会 有 多 么 少 。 表 达 式 (+a 1) 有 可 能 被 编译 为 某 
种 像 下 面 这 样 简单 的 东西 ”: l 


(assign val (op lookup-variable-value) (const a) (reg env) ) 
(assign val (op +) (reg val) (const 1)) 


28 我 们 在 这 里 用 同一 个 符号 + 指称 在 源 语言 里 的 过 程 和 机 器 操作 。 一 般 而 言 ， 在 源 语言 的 基本 过 程 和 机 器 的 基 
本 操作 之 间 并 没有 一 一 对 应 关 系 。 


在 这 个 练习 里 ， 我 们 要 扩充 自己 的 编译 器 ， 以 支持 对 特别 选 出 的 一 些 基 本 操作 的 开放 代 
码 。 对 于 这 些 基本 过 程 调用 ,我 们 要 生成 专门 用 途 的 代码 ， 而 不 是 生成 通用 的 过 程 应 用 代码 。 
为 了 支持 这 种 功能 ， 我 们 将 假定 所 用 的 机 器 有 两 个 特殊 的 参数 寄存 器 arg1 和 azg2 ， 机 器 
的 所 有 基本 算术 操作 都 从 azg1 和 azg2 取 得 它们 的 输入 ， 结 果 将 存 人 里 Val 、arg1 或 者 
arg2, 

编译 器 必须 能 在 源 程序 里 识别 出 开放 代码 基本 操作 的 应 用 。 我 们 将 为 此 扩充 compile 过 
程 里 的 分 派 ， 除 了 在 那里 完成 它 目 前 已 经 能 识别 的 保留 字 (特殊 形式 ) 外 ， 让 它 还 能 够 识别 
这 些 基本 操作 的 名 字 ?? 。 对 于 每 个 特殊 形式 ， 我 们 的 编译 器 都 有 一 个 代码 生成 器 。 在 这 个 练 
习 里 ， 我 们 也 为 开放 代码 基本 操作 构造 起 一 组 代码 生成 器 。 

a) 开放 代码 基本 操作 与 特殊 形式 不 同 ， 它 们 都 要 求 自 己 的 参数 被 求 值 。 请 写 出 一 个 代码 
生成 器 spread~arguments 用 于 所 有 的 开放 代码 生成 器 。spread-arguments 应 该 以 一 个 
运算 对 象 表 为 参数 ， 以 参数 寄存 器 为 目标 ， 按 顺序 编译 给 定 的 运算 对 象 。 注 意 ， 一 个 运算 对 
象 里 还 可 能 包含 对 开放 代码 基本 操作 的 另 一 个 调用 ， 因 此 在 求 值 运算 对 象 时 ， 参 数 寄存 器 也 

b) 请 为 基本 过 程 = 、*、 一 和 十 各 写 出 一 个 代码 生成 器 ， 它 们 都 以 一 个 具有 这 个 运算 符 的 
组 合式 ， 一 个 目标 和 一 个 连接 描述 符 作为 参数 ， 生 成 的 代码 将 实际 参数 传 到 寄存 器 里 ， 而 后 
以 指定 目标 和 给 定 连接 执行 相应 的 操作 。 你 可 以 只 处 理 两 个 运算 对 象 的 表达 式 。 请 让 
compile 能 够 分 派 到 这 些 代码 生成 器 。 

c) 对 上 面 的 factorial 实 例 试验 你 的 新 编译 器 ， 将 结果 代码 与 没有 开放 代码 时 生成 的 代 
码 比较 一 下 。 

d) 扩充 你 为 + 和 * 开发 的 代码 生成 器 ， 使 它们 能 够 处 理 具有 任意 个 运算 对 象 的 表达 式 。 
对 多 于 两 个 运算 对 象 的 表达 式 ， 应 该 编译 为 一 系列 的 运算 ， 每 次 处 理 两 个 输入 。 


5.5.6 词法 地 址 


编译 器 执行 的 最 重要 优化 之 一 是 优化 变量 查找 操作 。 对 于 我 们 编译 器 至 今 的 实现 HE 
成 的 代码 里 一 直 使 用 求 值 器 机 器 里 的 1ookup-~variable-value 操 作 。 这 个 操作 查找 变量 
的 方式 就 是 在 运行 环境 里 的 一 个 个 框架 中 做 查找 ， 与 那里 当前 有 约束 的 变量 比较。 如 果 框 架 
候 套 很 深 ， 或 者 存在 的 变量 很 多 ， 这 种 查找 的 代价 就 非常 高 。 举 个 例子 ， 考 虑 在 某 个 过 程 应 
用 里 对 表达 式 (* x y z) 求 值 时 查找 变量 值 的 情况 ， 该 过 程 由 下 面 的 表达 式 返 回 ， 
(let (( 3) (了 4)) 
(lambda (a b c d e) 
(let ((y (* a b x)) 
(z (+ c d x))) 
(* x y z=)))) 
因为 1et 表 达 式 不 过 是 1ambda 组 合式 的 语法 包装 ， 这 个 表达 式 等 价 于 ， 


((lambda (x y) 
(lambda (a b c d e) 


329 _ 般 而 言 ， 将 基本 操作 作为 保留 字 并 不 是 一 种 好 想法 ， 因 为 这 样 用 户 就 不 能 将 这 些 名 字 重 新 约束 到 其 他 过 程 
了 。 进 一 步 说 ， 如 果 我 们 给 一 个 已 经 在 使 用 的 编译 器 增加 新 的 保留 字 ， 一 些 现存 的 程序 里 如 果 定 义 了 采用 这 
些 名 字 的 过 程 ， 现 在 就 不 能 工作 了 。 参 见 练习 5.44 有 关 如 何 避 免 这 种 情况 的 一 些 想法 。 
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((lambda (y z) (* x y 2)) 
(* a b x) 
(+ c d x)))) 


4) 


k 4lookup-variable-valueX#Rxh, CMRERAEH SIA Sy RAZHS A 
eq? ， 在 第 一 个 框架 里 ) ， 也 不 同 于 a、b、c、d 或 者 e (在 第 二 个 框架 里 ) 。 目 前 我 们 假定 这 
个 程序 里 没有 使 用 define 一 一 这 样 就 只 有 Lambda 建 立 变量 约束 。 因 为 我 们 的 语言 采用 的 是 
词法 作用 域 规则 ， 任 何 表达 式 的 运行 时 环境 所 具有 的 结构 ， 与 该 表达 式 出 现 所 在 的 程序 词法 
结构 是 平行 的 ”。 这 样 ， 在 编译 器 分 析 上 述 表 达 式 时 ， 它 完全 可 以 弄 清楚 ， 每 次 过 程 应 用 时 ， 
表达 式 (* x y 2) 里 的 变量 x 总 是 在 当前 框架 外 面 的 第 二 个 框架 里 找到 ， 而 且 将 出 现在 那 
个 框架 里 的 第 二 个 位 置 。 

我 们 可 以 利用 这 一 事实 ， 发明 一 种 新 的 变量 查找 操作 lexical-address-lookup。 这 
一 操作 以 一 个 环境 和 一 个 词法 地 址 作为 参数 。 这 种 词法 地 址 由 两 个 数组 成 : 一 个 是 框架 号 ， 
它 描述 了 需要 跳 过 多 少 框架 ， 另 一 个 是 移 位 数 ， 它 描述 了 在 这 个 框架 里 应 该 跳 过 多 少 变量 。 
过 程 lexical-address-lookup 将 相对 于 当前 环境 ， 产生 出 保存 在 给 定 词 法 地 址 处 的 变量 
的 值 。 如 果 把 lexical-address-lookup 操 作 加 进 前 面 开发 的 机 器 ,我们 就 可 以 在 编译 生 
成 的 代码 里 使 用 这 个 操作 引用 变量 ， 而 不 再 用 lookup-variable-value。 与 此 类 似 , 还 
可 以 用 一 个 新 的 操作 Lexical-addqress-set!， 而 不 用 set-variable-valuel 。 

为 了 生成 这 种 代码 ， 当 编译 器 需要 去 编译 一 个 变量 引用 时 ， 它 就 必须 能 确定 该 变量 的 词 
法 地 址 。 变 量 在 一 个 程序 里 的 词法 地 址 依赖 于 具体 变量 在 代码 里 出 现 的 位 置 。 举 例 说 ， 在 下 
面 的 程序 里 ， 在 表达 式 <e1> 里 变量 x 的 地 址 是 (2, 0) 向 后 第 二 个 框架 里 的 最 前 面 一 个 变 
量 。 在 这 一 点 上 Y 的 地 址 是 (0, 0)，c 的 地 址 是 (1, 2)。 在 表达 式 <e2> 里 ， 变 量 x 的 地 址 是 
(1,0)，Y 的 地 址 是 〈1, 1) ，e 的 地 址 是 〈0, 2)。 


( (lambda (x y) 

(lambda (a b c d e) 
((lambda (y z) <el>) 
<e2> 
(+ c d x)))) 


3 

4) 

要 想 使 编译 器 能 够 生成 出 使 用 词法 地 址 的 代码 ， 一 种 方法 就 是 维持 一 个 称 为 编译 时 环境 
的 数据 结构 ， 在 这 个 结构 里 保存 各 种 变化 的 轨迹 ， 说 明 在 程序 执行 到 特定 的 变量 访问 操作 时 ， 
各 个 变量 将 出 现在 运行 环境 的 娜 个 框架 里 的 郧 个 位 置 上 。 这 种 编译 时 环境 也 是 框架 的 一 个 表 ， 
每 个 框架 包含 了 一 个 变量 的 表 (在 这 里 当然 没有 约束 于 变量 的 值 ， 因 为 编译 时 不 可 能 计算 出 
这 种 值 )。 把 这 种 编译 时 环境 作为 compile 的 另 一 个 参数 ， 与 原 有 参数 一 起 传送 给 各 个 代码 
生成 器 。 对 于 compile 的 最 高 层 调用 ， 我 们 应 采用 一 个 空 的 编译 时 环境 。 在 编译 lambda 体 
了 时，compile-lambda-body 会 用 一 个 包含 着 该 过 程 的 所 有 变量 的 框架 扩充 当时 的 编译 时 环 


0 如 果 我 们 人 允许 内 部 定义 ， 这 一 说 法 就 不 成 立 了 ， 除 非 我 们 通过 扫描 将 它们 移出 去 ， 见 练习 5.43 。 


境 ， 构 成 lambda 体 的 表达 式 序列 将 在 这 一 扩充 后 的 环境 里 编译 。 在 编译 过 程 中 的 每 一 点 ， 
compile-variable 和 compile-assignment 都 使 用 这 个 编译 时 环境 ， 生 成 出 合适 的 词 

上 面 是 这 一 词法 地 址 策略 的 概要 ， 练 习 5.39 到 5.43 描 述 了 如 何 完成 这 一 策略 ， 以 便 将 词 蒜 
查找 结合 到 我 们 的 编译 器 里 。 练 习 5.44 描 述 了 编译 时 环境 的 另 一 个 用 途 。 

练习 5.39 ”请 写 出 一 个 过 程 lexical-address~1lookup 实 现 这 种 新 的 查找 操作 。 这 个 
过 程 应 该 有 两 个 参数 一 一 一 个 词法 地 址 和 一 个 运行 时 环境 ， 它 返回 保存 在 特定 词法 地 址 的 变 
量 的 值 。 如 果 变 量 的 值 是 *unassigned*、lexical-address-lookup 应 该 发 出 一 个 错 
误 信号 。 请 再 写 一 个 过 程 lexical~address-set!， 实现 修改 位 于 特定 词法 地 址 的 变量 
值 的 操作 。 

练习 5.40 ”请 修改 编译 器 ， 使 之 能 维护 好 如 上 所 述 的 编译 时 环境 。 这 时 需要 给 compile 
和 各 种 代码 生成 器 增加 一 个 编译 时 环境 参数 ， 还 要 在 compile-lambda-body 里 扩充 它 。 

练习 5.41 ”请 写 一 个 过 程 find-variable， 它 以 一 个 变量 和 一 个 编译 时 环境 为 参数 ， 
返回 该 变量 相对 于 该 运行 时 环境 的 词法 地 址 。 举 例 说 ， 在 上 面 所 示 的 程序 片段 里 ， 编 译 表 
达 式 <el1> 期 间 的 编译 时 环境 是 ((y z) (a b c d e) (x y)), find-variable 应 该 


产生 : 
(find-variable ’c '((y z) (abcde) (x y))) “ 
(1 2) 
(find-variable °x "((y z) (abcde) (x y))) 
(2 0) 
(find-variable °w "((y z) (a bec de) (x y))) 
not-found 


练习 5.42 请 利用 练习 5.41 的 find~variable 重 写 compile-variable 和 compile- 
assignment ， 产 生出 采用 词法 地 址 的 指令 。 对 于 find-variable 返 回 not-founa 的 情况 
(也 就 是 说 ， 该 变量 不 在 编译 时 环境 里 ) ， 你 就 应 该 让 代码 生成 器 像 以 前 一 样 使 用 求 值 器 ， 去 
进一步 查找 它 的 约束 (在 编译 时 无 法 找到 的 变量 只 能 出 现在 全 局 环境 里 。 全 局 环境 是 运行 时 
环境 的 一 部 分 ， 但 它 不 是 编译 时 环境 的 一 部 分 “。 这 也 就 是 说 ， 如 果 你 希望 的 话 ， 完 全 可 以 
让 求 值 器 操作 直接 到 全 局 环境 里 去 查找 ,而 无 需 先 搜索 完 从 env 里 得 到 的 整个 运行 时 环境 。 
全 局 环境 可 以 通过 操作 (op get-global-environment) 得 到 )。 用 几 个 简单 实例 测试 
这 一 修改 后 的 编译 器 ， 例 如 用 本 节 开 始 给 出 的 嵌 套 1ambda 组 合式 。 

练习 5.43 ”我 们 在 4.1.6 节 说 过 ， 块 结构 的 内 部 定义 不 能 认为 是 “真正 的 ”define。 相 反 ， 
在 解释 一 个 过 程 体 时 ， 应 该 将 其 中 的 内 部 变量 看 成 就 像 是 作为 常规 的 1ambda 变 量 定义 ， 而 后 
又 通过 使 用 set! ， 为 它们 的 正确 初始 化 值 。4.1.6 节 和 练习 4.16 说 明了 如 何 修改 元 循环 解释 器 ， 
通过 将 内 部 定义 扫描 出 来 而 完成 这 件 事 。 请 修改 这 里 的 编译 器 ， 在 它 编译 过 程 体 之 前 执行 同 


21 如 果 我 们 实现 通过 扫描 的 方式 消除 内 部 定义 ， 变 量 查找 操作 也 需要 做 这 种 修改 〈( 见 练习 5.43 )。 为 了 使 词法 作 
用 域 能 够 工作 ， 我 们 就 需要 消除 这 种 定义 。 

a 词 靶 地 址 不 能 用 于 访问 全 局 环境 里 的 变量 ， 因 为 这 些 变量 可 以 在 任何 时 候 定义 或 者 重新 定义 。 有 了 如 练习 
5.43 所 说 的 内 部 定义 扫描 功能 ， 编 译 器 看 到 的 所 有 定义 都 在 顶层 ， 都 在 全 局 环境 里 活动 。 对 一 个 定义 的 编译 
并 不 会 导致 被 定义 的 名 字 进 入 编译 时 环境 。 
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练习 5.44 ”在 这 一 节 里 ， 我 们 将 注意 力 集中 在 如 何 使 用 编译 时 环境 生成 词法 地 址 的 问题 
上 。 实 际 上 ， 编 译 时 环境 还 有 其 他 用 途 。 举 例 来 说 ， 在 练习 5.38 里 ， 我 们 通过 基本 过 程 开放 
代码 的 方式 提高 编译 后 代码 的 效率 。 在 相关 的 实现 里 ， 我 们 把 开放 代码 过 程 的 名 字 当 作 保 留 
字 看 待 。 如 果 程 序 里 对 这 -名 字 做 了 重新 约束 ， 练 习 5.38 里 描述 的 机 制 将 仍然 会 把 它 作 为 基 
本 过 程 ， 开 放 其 代码 ， 从 而 忽略 新 的 约束 。 作 为 例子 ， 请 考虑 下 面 过 程 ; 

(Lambda (+ * a b x y) 

(+ (* a x) (* by))) 

它 计 算 x 和 Y 的 线性 组 合 。 我 们 可 能 用 参数 +matrix、*matrix 以 及 4 个 矩阵 来 调用 这 个 函数 ， 
但 是 开放 代码 编译 器 还 是 会 将 (+ (* a x) (* b y)) 里 的 + 和 * 当 作 基本 过 程 ， 去 开放 
+ 和 * 的 代码 。 请 修改 开放 代码 编译 器 ， 让 它 去 查询 编译 时 环境 。 使 它 在 遇 到 涉及 基本 过 程 
名 的 表达 式 时 都 能 编译 出 正确 的 代码 。( 使 这 些 代 码 都 能 正确 工作 ， 只 要 程序 里 不 对 这 些 名 字 
definem#set! 做 定义 或 赋值 。) 


5.5.7 编译 代码 与 求 值 器 的 互 连 


我 们 至 今 还 没有 解释 如 何 将 编译 得 到 的 代码 装 入 求 值 器 ， 也 没有 讨论 怎样 去 运行 它们 。 
现在 我 们 假设 显 式 控制 求 值 器 已 经 像 在 5.4.4 节 那样 定义 好 了 ， 其 中 还 包括 了 脚注 323 里 描述 的 
那些 操作 。 下 面 要 实现 一 个 过 程 compile-and-go ， 它 编译 一 个 Scheme 表达 式 ， 将 目标 代 
码 装 入 这 部 求 值 器 机 器 ， 并 启动 该 机 器 ， 使 之 在 求 值 器 的 全 局 环境 里 运行 这 一 代码 ， 打 印 其 
结果 ， 而 后 进入 求 值 器 的 驱动 循环 。 我 们 还 要 修改 这 一 求 值 器 ， 使 解释 性 的 表达 式 除了 能 调 
用 其 他 编译 代码 外 ， 也 能 调用 编译 后 的 过 程 。 在 此 之 后 ， 我 们 就 可 以 将 编译 后 的 过 程 放 进 机 
器 ， 并 用 求 值 器 去 调用 它们 了 : 


(compile-and-go 
*(define (factorial n) 
(if (= n 1) 
1 
(* (factorial (~ n 1)) n)))) 
;;; EC-Eval value: 
ok 


;;; EC-Eval input: 
(factorial 5) 

3373 EC-Eval value: 
120 


为 了 使 求 值 器 能 处 理 编译 后 的 过 程 (例如 ， 求 值 上 面 对 factorial 的 调用 ) ， 我 们 需要 
修改 位 apply-dispatch 的 代码 ( 见 5.4.1 节 )， 使 它 能 识别 编译 后 的 过 程 〈 与 基本 过 程 和 
复合 过 程 都 不 同 ) ， 并 将 控制 直接 传 到 编译 后 代码 的 人口 点 ”: 

apply-dispatch 

(test (op primitive-procedure?) (reg prac)) 
(branch (label primitive-apply)) 


33 当然 ， 编 译 性 过 程 和 解释 性 过 程 一 样 ， 都 是 复合 过 程 (不 是 基本 过 程 )。 为 了 与 显 式 控制 求 值 器 所 用 的 术语 
保持 一 致 ， 在 这 一 节 里 ， 我 们 将 用 “复合 过 程 ” 专 指 解释 性 过 程 (与 编译 性 过 程 相 对 应 )。 
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(test (op compound-procedure?) (reg proc)) 
(branch (label compound-apply) ) 

(test (op compiled-procedure?) (reg proc) ) 
(branch (label compiled-apply) ) 

(goto (label unknown-procedure-type) ) 


compiled-apply 
(restore continue) 
(assign val (op compiled-procedure-entry) (reg proc)) 
(goto (reg val)) 


请 注意 ， 在 Compiled-apply 处 需要 恢复 continue。 请 回忆 一 下 求 值 器 里 各 方面 安排 的 情 
况 ， 在 apply-dispatch 处 ， 继 续 点 位 于 堆栈 顶 。 而 在 另 一 边 ， 编 译 代码 的 入 口 点 却 期 望 继 
续 点 在 continue 里 。 因此 ， 在 编译 代码 执行 之 前 必须 恢复 continue 。 

为 使 我 们 能 在 启动 求 值 器 机 器 时 运行 一 些 编译 代码 ， 我 们 在 求 值 器 机 器 的 开始 处 增加 一 
条 branch 指令， 如 果 寄 存 器 f1ag 被 设置 ， 它 就 要 求 这 一 机 器 转向 一 个 新 的 入 口 点 ”。 


(branch (label external-entry) } ; branches if flag is set 
read-eval-print-loop 
(perform (op initialize-stack) ) 


external-entry 入 口 假定 在 这 一 机 器 启动 时 ，val 里 包含 着 一 个 指令 序列 的 位 置 ， 该 指令 
序列 将 结果 放 在 Val 里 并 以 (goto: (reg continue)) 结束 。 从 这 一 入口 点 启动 ， 执 行 过 
程 就 会 跳 到 由 val 指 定 的 位 置 ， 但 会 首先 设置 continue 使 执行 还 能 转 回 print-result。 
这 将 使 ral 里 的 值 被 打印 出 来 ， 而 后 转 到 求 值 器 的 读 入 一 求 值 - 打 印 循环 的 开始 位 置 :” 。 


external-entry 
(perform (op initialize-stack) ) 
(assign env (op get-global-environment) ) 
(assign continue (label print-result)) 
(goto (reg val)) 


34 现在 这 一 求 值 器 机 器 开始 处 就 是 一 条 branch 指 令 ， 我 们 在 启动 求 值 器 机 器 之 前 必须 初始 化 ELag 寄 存 器 。 为 
了 能 在 常规 的 读 入 一 求 值 一 打印 循环 中 启动 这 一 机 器 ， 我 们 可 以 用 : 


(define (start-eceval) 
(set! the-global-environment (setup-environment) ) 
(set-register-contents! eceval ’flag false) 
{start eceval)) 


3 因为 编译 后 的 过 程 是 一 个 对 象 ， 系 统 也 可 能 会 试 着 去 打印 它 ， 因 此 ， 我 们 还 要 修改 系统 的 打印 操作 user-~ 
print (参见 4.1.4 节 )， 使 它 不 企图 去 打印 编译 后 的 过 程 里 的 各 个 成 分 。 


(define (user-print object) 
(cond ((compound-procedure? object) 
(display (list ‘compound-procedure 
(procedure-parameters object) 
(procedure-body object) 
*<procedure-env> ))) 
((compiled-procedure? object) 
(display ’<compiled-procedure>) ) 
(else (display object)))) 
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现在 ， 我 们 已 经 可 以 用 下 面 过 程 来 编译 过 程 定义 ， 执 行 编译 后 的 代码 ， 然 后 运行 读 入 一 
求 值 -打印 循环 ， 这 就 使 我 们 能 够 试验 这 个 过 程 。 因 为 我 们 希望 编译 后 的 代码 能 返回 到 
continue 里 的 地 址 ， 并 在 val 里 存放 好 结果 ， 我 们 应 该 用 目标 val 和 连接 zeturn 去 编译 表 
达 式 。 为 了 将 编译 器 生成 的 目标 代码 转换 到 求 值 器 寄存 器 机 器 的 可 执行 指令 ， 我 们 使 用 来 自 
寄存 器 机 器 模拟 器 的 过 程 assemble ( 见 5.2.2 节 )。 而 后 我 们 设置 Yal 寄存器， 使 之 指向 指令 
的 表 ， 设 置 f1ag 使 求 值 器 转向 入 口 点 external-entry， 并 启动 求 值 器 。 

(define (compile-and-go expression) 

(let ((instructions 
(assemble (statements 
(compile expression ’val ’return)) 
eceval))) 
(set! the-global-environment (setup-environment ) )} 
(set-register-contents! eceval ‘val instructions) 
(set-register-contents! eceval ’flag true) 
(start eceval))}) 


如 果 我 们 设置 了 堆栈 监视 器 ( 像 5.4.4 节 最 后 所 说 的 那样 )， 那 么 就 可 以 检测 编译 代码 的 堆 
栈 使 用 情况 了 : 


(compile-and-go 
‘(define (factorial n) 
(if (= n 1) 
1 
(* (fa@torial (- n 1)) n)))) 


(total-pushes = 0 maximum-depth = 0) 
3733 EC-Eval value: 
ok 


333 EC-Eval input: 
(factorial 5) 
(total-pushes = 31 maximum-depth = 14) 
233 EC-Eval value: 
120 


请 将 这 个 例子 与 对 同一 过 程 的 解释 性 版 本 的 求 值 (factorial 5) 的 情况 比较 一 下 
(5.4.4 节 的 最 后 介绍 过 )。 解 释 性 版 本 需要 144 次 压 栈 操作 ， 最 大 堆栈 深度 为 8 。 这 也 显示 出 我 
们 从 编译 策略 中 得 到 的 优化 。 


解释 和 编译 

有 了 这 节 开 发 的 程序 ， 我 们 现在 就 可 以 对 解 肖 和 编译 的 不 同 第 略 做 各 种 试验 了 ”。 解释 
器 将 所 用 的 机 器 提升 到 用 户 程 序 层面 上 ， 而 编译 器 将 用 户 程序 降低 到 机 器 语言 的 层面 上 。 我 
们 可 以 认为 Scheme 语言 (或 者 任何 程序 设计 语言 ) 是 查 立 在 机 器 语言 之 上 的 一 族 有 内 聚 力 的 
抽象 。 解 释 器 对 于 交互 式 的 程序 开发 和 排 错 是 非常 好 的 ， 因 为 程序 执行 的 各 个 步骤 都 以 这 些 
抽象 的 方式 组 织 起 来 了 ， 因 此 更 容易 被 程序 员 理解 。 编 译 后 的 代码 执行 得 更 快 ， 因 为 程序 执 


3% 我 们 还 可 以 做 得 更 好 一 些 ， 可 以 扩充 编译 器 ， 允 许 编译 代码 去 调用 解释 性 过 程 ， 见 练习 5.47。 
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行 步 又 在 机 器 语言 层面 上 ， 编 译 器 也 可 以 自由 去 地 做 各 种 跨越 高 层 抽 象 的 优化 ?7。 

解释 和 编译 之 间 的 相互 替代 关系 还 引出 了 将 一 种 语言 移植 到 新 计算 机 的 不 同 策略 。 假 定 
我 们 希望 在 一 种 新 机 器 上 实现 Lisp。 一 种 策略 是 从 5.4 节 的 显 式 控制 求 值 器 出 发 ， 将 其 中 的 指 
令 一 条 一 条 翻译 到 新 的 机 器 。 另 一 种 不 同 的 策略 是 从 编译 器 出 发 ， 修 改 其 中 的 代码 生成 器 ， 
使 它们 能 为 这 种 新 计算 机 生成 代码 。 第 二 种 策略 使 我 们 可 以 在 这 种 新 机 器 上 运行 任何 Lisp 程 
序 ， 方 式 是 先 用 我 们 原 有 的 Lisp 机 器 上 的 编译 器 去 编译 它 ， 并 将 它 与 有 关 运 行 库 的 编译 后 的 
版 本 连接 3。 事情 还 可 以 做 得 更 好 ， 我 们 可 以 去 编译 这 个 编译 器 本 身 ， 并 在 新 机 器 上 运行 这 
一 编译 结果 ， 去 编译 其 他 的 Lisp 程 序 2% 。 或 者 我 们 可 以 去 编译 4.1 节 里 的 一 个 解释 器 ， 生 成 出 
一 个 可 以 在 这 一 新 机 器 上 运行 的 解释 器 。 

练习 5.45 ”通过 比较 完成 同样 计算 的 编译 后 代码 所 用 的 堆栈 操作 ， 和 求 值 器 所 用 的 堆栈 
操作 ， 我 们 可 以 确定 编译 器 对 于 堆栈 使 用 的 优化 程度 ， 包 括 在 速度 上 的 (减少 了 堆栈 操作 的 
总 次 数 ) 和 空间 上 的 〔 减 小 了 堆栈 的 最 大 深度 )。 将 这 一 优化 后 的 堆栈 使 用 情况 与 某 台 专用 计 
算 机 对 于 同样 计算 的 执行 情况 做 些 比较 ， 可 以 为 判断 编译 器 的 质量 提供 一 些 标准 。 

a) 练习 5.27 要 求 你 去 确定 使 用 那里 给 出 的 阶乘 函数 计算 局 时 ， 求 值 器 所 需 的 压 栈 次 数 和 最 
大 堆栈 深度 〈 作 为 n 的 函数 )。 练 习 5.14 要 求 你 对 于 图 5-11 所 示 的 专用 阶乘 机 器 完成 同样 的 度量 
工作 。 现 在 请 对 编译 后 的 factorial 过 程 做 同样 的 分 析 。 

算出 编译 后 过 程 版 本 的 压 栈 次 数 与 解释 版 本 的 压 栈 次 数 之 比率 ， 对 最 大 堆栈 深度 做 同样 
计算 。 因 为 计算 a! 所 用 的 操作 次 数 和 堆栈 深度 都 是 n 的 线性 函数 ， 因 此 ， 这 些 比 率 在 n 变 大 的 
过 程 中 应 趋 于 常数 。 这 些 常数 是 什么 ? 类 似 地， 请 找 出 专用 机 器 里 的 堆栈 使 用 情况 与 解释 版 
本 中 使 用 情况 的 比率 。 

请 比较 专用 机 器 与 解释 性 代码 的 比率 和 编译 与 解释 代码 的 比率 。 你 应 该 看 到 ， 专 用 机 器 
的 工作 情况 远 远 优 于 编译 代码 ， 因 为 手工 打造 的 控制 器 代码 应 该 比 我 们 这 个 初步 的 通用 编译 
器 生成 的 代码 好 许多 。 

b) 你 能 对 编译 器 提出 一 些 修改 建议 ， 使 它 生成 的 代码 更 接近 手工 版 本 的 性 能 吗 ? 

练习 5.46 ”请 像 练 习 5.45 那 样 做 一 些 分 析 ， 确 定编 译 下 面 树 型 递归 的 斐 波 那 契 过 程 的 效率 : 


337 如 果 我 们 强制 性 地 要 求 在 用 户 程序 里 遇 到 的 错误 都 需要 检查 并 报告 ， 而 不 允许 强行 终止 系统 或 者 产生 错误 的 

结果 ， 那 么 就 会 带 来 很 大 的 开销 ， 与 实际 的 执行 策略 无 关 。 举 个 例子 ， 数 组 的 越界 引用 可 以 通过 在 执行 前 检 
查 引 用 合法 性 的 方式 查 出 。 但 是 这 一 检查 的 开销 可 能 是 数组 应 用 本 身 开销 的 许多 倍 ， 因 此 程序 员 需 要 在 速度 
与 安全 性 之 间 做 权衡 ， 确 定 是 否 进行 这 种 检查 。 一 个 好 的 编译 器 应 该 可 以 产生 出 做 这 种 检查 的 代码 ， 也 应 该 
避免 多 余 的 检查 ， 并 且 应 该 允许 程序 员 去 控制 在 编译 代码 中 错误 检查 的 范围 和 种 类 。 
我 我 流行 语言 (例如 C 和 C ++) 的 编译 器 通常 都 不 将 错误 检查 代码 放 和 运行 代码 里 ， 以 便 使 程序 尽 可 能 快 
速 。 作 为 这 样 做 的 一 个 结果 ， 它 实际 上 将 显 式 提供 错误 检查 的 问题 交 给 程序 员 处 理 。 不 幸 的 是 ， 人 们 常常 因 
为 疏忽 而 没有 去 做 ， 甚 至 在 某 些 关 键 应 用 中 ,在 那里 速度 原本 并 不 是 问题 。 他 们 的 程序 导致 一 种 快速 和 危险 
的 生活 。 举 个 例子 ， 在 1988 年 使 mternet 竣 痪 的 臭名 昭著 的 “蠕虫 ”揭示 了 UNIX 操 作 系 统 里 的 一 个 错误 A 
为 那里 的 探 询 守护 程序 里 没有 检查 输入 缓冲 区 游 出 (参见 Spafford 1989), 

338 当然 ， 无 论 采 用 编译 策略 还 是 解释 策略 ， 我 们 都 必须 为 新 机 器 实现 存储 分 配 、 输 入 输出 ， 以 及 我 们 在 讨论 求 
值 器 和 编译 器 时 作为 “基本 操作 ”的 那些 五 彩 缤纷 的 操作 。 减 少 这 方面 工作 量 的 一 种 策略 是 尽 可 能 多 地 在 
Lisp 里 写 出 这 些 操作 ， 而 后 针对 新 机 器 编译 它们 。 最 后 ， 所 有 的 东西 都 归结 到 一 个 很 小 的 内 核 (例如 废料 收 
集 和 实际 的 基本 机 器 操作 的 应 用 ) ， 这 些 必须 专门 为 新 机 器 硬性 编 出 代码 。 

39 这 一 策略 产生 出 一 种 对 编译 器 本 身 的 非常 有 趣 的 测试 ， 例 如 ， 在 这 一 新 机 器 上， 用 通过 编译 产生 的 编译 器 去 
编译 一 个 程序 ， 检 查 这 样 得 到 的 结果 是 否 与 原来 的 Lisp 系统 编译 这 一 程序 的 结果 相同 。 追 踪 差 异 的 根源 常常 
很 有 趣 ， 但 也 累 人 ， 因 为 得 到 的 结果 常常 源 自 一 些 细微 的 问题 。 
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(define (fib n) 
(if (< n 2) 
(+ (fib (- n 1)) (fib (= n 2)))}) 

请 将 这 一 情况 与 图 5$-12 里 的 专用 斐 波 那 契 机 器 的 效率 比较 (有 关 解 释 性 代码 的 性 能 度量 ， 请 
参见 练习 $.29) 。 对 于 斐 波 那 契 过 程 ， 所 用 的 时 间 资 源 并 不 是 “的 线性 函数 ， 因 此 堆栈 操作 的 
比率 将 不 会 趋 近 某 个 与 4 无 关 的 极限 值 。 

练习 5.47 ”本 节 描 述 了 如 何 修改 显 式 控制 求 值 器 ， 使 解释 性 代码 可 以 调用 编译 后 的 过 程 。 
请 说 明 如 何 修改 编译 器 ， 使 编译 后 的 代码 不 但 能 调用 基本 过 程 和 编译 后 的 过 程 ， 还 能 调用 解 
释 性 过 程 。 为 此 我 们 就 需要 修改 compile-procedure-~call, 使 之 能 够 处 理 复合 的 (解释 ) 
过 程 。 请 设法 确保 能 像 在 compile-~proc-appl 里 那样 处 理 所 有 相同 的 target 和 linkage 
组 合式 。 在 做 实际 的 过 程 应 用 时 ， 代 码 需 要 跳 到 求 值 器 的 compound-apply 入 口 点 。 这 一 人 
口 点 不 能 直接 在 目标 代码 里 引用 (因为 汇编 程序 要 求 它 所 汇编 的 所 有 被 引用 标号 都 已 经 定义 
好 )， 因 此 我 们 将 为 求 值 器 机 器 增加 一 个 称 为 compapp 的 寄存 器 ， 掌 握 住 这 一 人 人口 点 ， 并 加 
入 下 面 指令 去 初始 化 它 : 


(assign compapp (label compound-apply)) 
(branch (label external-entry)) ; branches if flag is set 
read-eval-print-loop 


为 了 测试 你 的 代码 ， 开 始 请 定义 一 个 过 程 f ， 它 调用 另 一 个 过 程 9。 用 compile-and-go 编 
译 好 f 的 定义 后 启动 求 值 器 。 现 在 为 求 值 器 输入 9 的 定义 ， 而 后 试 试 去 调用 f 。 

练习 5.48 ”本 节 中 实现 的 compile-and-go 界 面 还 是 非常 麻烦 的 ， 因 为 其 中 只 能 调用 编 
译 器 一 次 (在 求 值 器 机 器 启动 时 ) 。 请 扩大 这 一 编译 器 一 解 释 器 界面 ， 提 供 一 个 compile- 
and-run 基 本 过 程 ， 使 人 可 以 采用 如 下 方式 在 显 式 控制 求 值 器 里 调用 它 : 

377 EC-Eval input: 

(compile-and-run 

’ (define (factorial n) 

(if (= n 1) 
1 
(* (factorial (- n 1)) n)))) 

;;; EC-Eval value: 

ok 

573 EC-Eval input: 

(factorial 5) 

t33 EC-Eval value: 

120 . 
练习 5.49 ”作为 末代 使 用 显 式 控制 求 值 器 的 读 入 一 求 值 - 打 印 循 环 的 另 一 种 方式 ， 请 设 
计 一 部 寄存 器 机 器 ， 让 它 执行 一 个 读 入 一 编译 一 求 值 一 打印 循环 。 也 就 是 说 ， 这 一 机 器 应 该 
运行 一 个 循环 ， 其 中 读 和 人 一 个 表达 式 ， 编 译 它 ， 装 配 并 执行 结果 代码 ， 最 后 打印 出 结果 。 在 
我 们 的 模拟 环境 里 很 容易 运行 它 ， 因 为 我 们 可 以 做 好 安排 ， 让 过 程 compile 和 assemb1le 都 
作为 “寄存 器 机 器 的 操作 ”。 

练习 5.50 ”使 用 编译 器 去 编译 4.1 节 的 元 循环 求 值 器 ， 并 用 寄存 器 机 器 模拟 器 运行 这 个 程 
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序 (要 一 下 子 编译 多 个 定义 ， 你 可 以 将 这 些 定义 放 进 一 个 begin 里 )。 由 于 存在 着 多 个 层次 的 
解释 ， 结 果 解 释 器 将 运行 得 非常 慢 ， 但 是 使 得 所 有 东西 都 能 工作 是 一 个 极 具 教 益 的 练习 。 
练习 5.51 请 在 C (或 者 你 所 选 定 的 另外 某 个 低级 的 语言 ) 里 开发 一 个 初步 的 Scheme 实现 ， 
采用 的 方式 是 将 5.4 节 的 显 式 控制 求 值 器 翻译 到 C。 为 了 运行 这 一 代码 ， 你 将 需要 提供 适当 的 
存储 分 配 例 程 和 其 他 运行 支持 。 
练习 5.52 ”作为 与 练习 5.51 相 对 应 的 工作 ， 请 修改 前 面 的 编译 器 ， 使 它 能 够 将 Scheme 程 
序 编译 为 C 指 令 序 列 。 请 编译 4.1 节 的 元 循环 求 值 器 ， 生 成 一 个 用 C 写 出 的 Scheme 解 释 器 。 
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1.1 13 1.11 27 1.21 35 1.31 40 1.41 51 
1.2 13 1.12 27 1.22 35 1.32 40 1.42 51 
1.3 13 1.13 28 1.23 36 1.33 40 1.43 51 
1.4 13 1.14 29 1.24 36 1.34 44 1.44 51 
1.5 13 1.15 29 1.25 36 1.35 47 1.45 52 
1.6 16 1.16 30 1.26 36 1.36 47 1.46 52 
1.7 16 1.17 31 1.27 36 1.37 47 

1.8 17 1.18 31 1.28 37 1.38 47 

1.9 23 1.19 31 1.29 39 1.39 48 

1.10 24 1.20 33 1.30 40 1.40 51 

2.1 58 2.21 71 2.41 84 . 2.61 105 2.81 136 
2.2 60 2.22 71 2.42 84 2.62 105 2.82 137 
2.3 60 2.23 72 2.43 85 2.63 108 2.83 137 
2.4 62 2.24 73 2.44 90 2.64 108 2.84 137 
2.5 62 2.25 74 2.45 91 2.65 108 2.85 137 
2.6 62 2.26 74 2.46 92 2.66 109 2.86 137 
2.7 63 2.27 74 2.47 93 2.67 114 2.87 = 143 
2.8 63 2.28 74 2.48 93 2.68 114 2.88 143 
2.9 63 2.29 74 2.49 93 2.69 114 2.89 143 
2.10 63 2.30 75 2.50 95 2.70 114 2.90 143 
2.11 63 2.31 76 2.51 95 2.71 115 2.91 143 
2.12 64 2.32 76 2.52 96 2.72 115 2.92 144 
2.13 64 2.33 80 2.53 98 2.73 125 2.93 144 
2.14 64 2.34 80 2.54 98 2.74 126 2.94 145 
2.15 65 2.35 81 2.55 99 2.75 128 2.95 145 
2.16 65 2.36 81 2.56 102 2.76 128 2.96 146 
2.17 69 2.37 81 2.57 102 2.77 ` 132 2.97 146 
2.18 69 2.38 82 2.58 102 2:78 132 

2.19 69 2.39 82 2.59 104 2.79 132 

2.20 69 2.40 84 2.60 104 2.80 132 

3.1 154 3.4 154 3.7 161 3.10 170 3.13 176 
3.2 154 3.5 157 3.8 162 3.11 172 3.14 176 


3.3 154 3.6 157 3.9 167 3.12 175 3.15 178 
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3.16 178 3.30 192 3.44 215 3.58 231 3.72 238 
3.17 178 3.31 195 3.45 216 3.59 231 3.73 239 
3.18 179 3.32 197 3.46 218 3.60 232 3.74 240 
3.19 179 3.33 205 3.47 218 3.61 232 3.75 240 
3.20 179 3.34 205 3.48 219 3.62 232 3.76 240 
3.21 183 3.35 205 3.49 219 3.63 235 3.77 242 
3.22 183 3.36 205 3.50 225 3.64 235 3.78 242 
3.23 183 3.37 205 3.51 226 3.65 235 3.79 243 
3.24 187 3.38 210 3.52 226 3.66 237 3.80 243 
3.25 187 3.39 212 3.53 230 3.67 237 3.81 246 
3.26 187 3.40 212 3.54 230 3.68 237 3.82 246 
3.27 188 3.41 213 3.55 230 3.69 238 
3.28 192 3.42 213 3.56 230 3.70 238 
3.29 192 3.43 215 3.57 231 3.71 238 
4.1 255 4.17 270 4.33 286 449 296 4.65 323 
4.2 259 4.18 270 4.34 286 4.50 303 466 324 
43 259 4.19 271 4.35 290 4.51 303 4.67 324 
44 259 4.20 271 4.36 290 4.52 303 4.68 324 
4.5 259 4.21 272 4.37 290 4.53 304 4.69 324 
4.6 259 4.22 276 4.38 291 4.54 304 4.70 335 
4.7 260 4.23 276 4.39 291 455 309 4.71 338 
4.8 260 4.24 276 440 291 4.56 311 4.72 338 
4.9 260 4.25 278 4.41 292 4.57 - 312 4.73 339 
4.10 260 4.26 278 4.42 292 458 312 4.74 339 
4.11 263 4.27 282 4.43 292 4.59 312 4.75 339 
4.12 263 4.28 282 4.44 292 460 313 4.76 340 
4.13 264 4.29 282 4.45 295 4.61 314 4.77 340 
4.14 266 4.30 282 446 295 462 314 4.78 340 
4.15 268 4.31 283 4.47 295 4.63 314 4.79 340 
416 270 4.32 286 4.48 296 464 323 
5.1 346 5.12 371 5.23 392 5.34 419 5.45 428 
5.2 348 5.13 372 5.24 392 5.35 420 5.46 428 
5.3 349 5.14 373 5.25 393 5.36 421 5.47 429 
5.4 357 5.15 373 5.26 395 5.37 421 5.48 429 
5.5 358 5.16 373 5.27 396 5.38 421° 5.49 429 
5.6 358 5.17 373 5.28 396 5.39 424. 5.50 429 
5.7 360 5.18 373 5.29 396 5.40 424 5.51 430 
5.8 366 5.19 373 5.30 396 5.41 424 §.52 430 
5.9 371 5.20 377 5.31 402 5.42 424 
5.10 371 5.21 378 5.32 402 5.43 424 
5.11 371 5.22 378 5.33 419 5.44 425 
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本 索引 中 的 任何 不 准确 之 处 都 可 以 用 一 个 事实 来 解释 : 它 是 在 计算 机 的 帮助 下 完成 的 。 


Donald E. Knuth， 基 本 算法 ( 计算 机 程序 设计 的 艺术 ， 第 1 卷 ) 


* 【基本 乘法 过 程 )，4 
+ (基本 加 法 过 程 ), 4 
(基本 减法 过 程 ) ,4 
(基本 除法 过 程 )，4 


(基本 算术 等 于 谓词 ) ，77 
=number?, /02 


=zero? (HHH, generic), # 32.80 
for polynomials (对 多 项 式 的 )， 练 习 2.87 

< (基本 算术 比较 谓词 )，77 

> (基本 算术 比较 谓词 ) 1 

>=, 13 

( 见 分 号 )， 和 脚注 11 

! (名 字 里 的 ) #12130 

? (谓词 名 里 的 ) ， 牌 注 22 

( 

( 


~ 


’ 


双 引 号 ) ， 和 脚注 99 

单 引 号 ) 97, #299 

read 和 ， 脚 注 222， 脚 注 285 

© (B515), #4321 

» GES, 与 反 引 号 一 起 使 用 ) ， 牌 注 321 

#£, Biz 17 

#t ， 脚 注 17 

r> ， 数 学 函数 的 记 法 W58 

日 ， 见 theta 

入 演算 ， 见 lambda 演 算 

工 ， 见 Pi 

Z 求 和 记 法 (sigma), 38 

A'h-mose , 7240 

Abelson, Harold, #iz3 

abs, //, 12 

accelerated-sequence, 234 

accumulate, % 31.32, 78 
fajfold-right, 492.38 

accumulate-n, # 92.36 

Acharya, Bhascara, iz 35 

Ackermann ġġ% , # 31.10 

actual-value, 279 

Ada, # 34.63 
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递归 过 程 (recursive procedures ), 23 
Adams, Norman I., $7232 
add (通用 型 , generic ) 129 
用 于 多 项 式 系数 (used for polynomial coefficients), 140 
add-action!, 191, 194 
add-binding-to-frame!, 262 
add-complex, //8 
add-complex-to-schemenum, /33 
addend, /0/ 
adder (#44) #, primitive constraint), 20/ 
add-interval, 63 
add-lists, 285 
add-poly, 139 
add-rat, 56 
add-rule-or-assertion! , 334 
add-streams, 228 
add-terms , 140 
add-to-agenda! , 194, 196 
add-vect, %4 32.46 
Adelman, Leonard ， 有 和 脚注 48 
adjoin-arg， 有 和 脚注 307 
adjoin-set, 103 
二 叉 树 表示 (binary-tree representation), /07 
排序 表 表 示 (ordered-list representation), ， 练 习 2.61 
未 排序 的 表 表 示 f (unordered-list representation ) 703 
作为 带 权重 集合 (for weighted sets), 713 
adjoin-term, 140, /42 
advance-pc , 368 
after-delay, /9], 194 
Algol 
块 结构 (block structure), 20 
按 名 参数 传递 (call-by-name argument passing), Piz 
186, #34240 
#4 (thunks), #732186, #772238 
在 处 理 复合 数据 对 象 方面 的 弱点 (weakness in handling 
compound objects), #12161 
Allen, John, #32300 
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all-regs (编译 器 compiler), #iz326 
always-true, 328 
amb , 287 
ambeval , 297 
amb 求 值 器 (evaluator ) ， 见 非 确定 性 求 值 器 (nondeter- 
ministic evaluator ) 

analyze 

元 循环 (metacircular) , 273 

非 确 定性 (nondeterministic), 297 
analyze-... 

元 循环 (metacircular) , 274~276, # 34.23 

非 确定 性 (nondeterministic), 298~300 
analyze-amb, 302 
and (查询 语言 ，query language), 310 

的 求 值 (evaluation of), 316, 326, &54.76 
and (特殊 形式 ,special form), /3 

的 求 值 (evaluation of}, 12 

为 什么 作为 特殊 形式 (why a special form), 12 

没有 子 表 达 式 (with no subexpressions ) ， 练 习 4.4 
an~element-of 286 
angle 

数据 导向 的 (data-directed), 125 

‘Abbe HAR (polar representation), 1/9 

直角 坐标 表示 (rectangular representation), 1/8 

带 标志 数据 (with tagged data), 727 
angle-polar, /20 
angle-rectangular, 120 
an-~integer-starting-from, 288 
announce-output, 265 
APL, 脚注 81 
Appel, Andrew W. ， 脚 注 325 
append! ， 练 习 3.12 

作为 寄存 器 机 器 (as register machine) ， 练 习 5.22 
append, 68, 4 93.12 

作为 累积 (as accumulation), # 9 2.33 

append! 与 ， 练 习 3.12 

带 有 任意 个 参数 (with arbitrary number of arguments ) ， 

脚注 327 | 

作为 寄存 器 机 器 (as register machine), 95.22 

“是 什么 ”( 规则 ) 和 “怎样 做 ”( 过 程 )，305~306 
append-instruction-sequences, 40], 413 
append-to-form (规则 ，rules) , 313 
application?, 257 
apply (f#tt, lazy), 279 
apply (#4Ait @, primitive procedure), #72113 
apply (元 循环 ，metacircular ) 253 

与 基本 的 (primitive) apply, Miz225 
apply-dispatch, 388 
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为 编译 的 代码 而 修改 (modified for compiled code), 
425 
apply-generic, 125 
强制 (with coercion), 134, % 32.81 
提升 强制 (with coercion by raising), # 572.84 
多 参数 的 强制 (with coercion of multiple arguments ) ， 
练习 2.82 
通过 强制 简化 (with coercion to simplify ) ， 练 习 2.85 
消息 传递 (with message passing), /27 
类 型 塔 (with tower of types), 135 
apply-primitive-procedure , 253, 261, 265 
apply-rules, 330 
arglL 寄 存 器 (register), 383 
articles, 292 
ASCII 码 (code), 110 
assemble, 364, 365 
assert! (查询 解释 器 ，query interpreter), 320 
assign (寄存 器 机 器 里 ，in register machine), 347 
模拟 (simulating )，367 
将 标号 存 人 寄存 器 (storing label in register) 353 
assignment?, 256 
assignment-value, 256 
assignment~variable, 256 
assign-reg-name, 367 
assign-value-exp, 367 
assoc, 185 
atan (基本 过 程 ，primitive procedure), #iz110 
attach-tag, 119 
采用 Scheme 数据 类 型 (using Scheme data types), 2% 
习 2.78 
augend, 101 
average, 15 
average-damp, 48 
averager (约束 ，constraint) ， 练 习 3.33 
Backus, John, #972202 
Baker, Henry G., Jr., #32300 
Barth, John , 249 
Basic 
对 复合 数据 的 限制 (restrictions on compound data), 
脚注 73 
在 处 理 复合 对 象 方面 的 弱点 (weakness in handling 
` compound objects), #1%161 
Batali, John Dean, # 7z304 
begin (特殊 形式 ，special form), 757 
在 推论 和 过 程 体 里 隐 含 的 (implicit in consequent of 
cond and in procedure body), #3#131 
begin?, 257 l 
begin-actions, 257 
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below, 89, 432.51 
Bertrand 假设 (Hypothesis), $y iz191 
beside, 89, 95 
Bolt Beranek and Newman Inc. ， 有 和 脚注 2 
Borning, Alan, #p 72159 
Borodin, Alan, #3482 
branch (寄存 器 机 器 ，in register machine), 347 
模拟 (simulating), 368 
branch-dest , 368 
Buridan, Jean, #iz175 
B 树 (tree), Biz 106 
ca...0, W475 
cadr, Biz75 
call-each, 193 
car (基本 过 程 ，primitive procedure ), 57 
公理 (axiom for), 6/ 
用 向 县 实现 (implemented with vectors), 376 
作为 表 操 作 (as list operation), 67 
名 字 的 由 来 (origin of the name), {#68 
的 过 程 性 实现 (procedural implementation of), 61, 
练习 2.4，179 ，284 
Carmichael% (numbers), ， 肢 注 47 ， 练 习 1.27 
car 和 cdr Aye Æ (nested applications of car and 
cdr), #475 
cd...r, W375 
cdr (# Att Æ, primitive procedure ), 57 
公理 (axiom for), 67 
用 向 量 实 现 (implemented with vectors), 376 
作为 表 操 作 (as list operation), 67 
名 字 的 由 来 (origin of the name), #7268 
的 过 程 性 实现 (procedural implementation of), 61, 
练习 2.4，779 ，284 
cdr 向 下 一 个 表 (down a list), 67 
celsius~fahrenheit-converter, 199 
面向 表达 式 的 (expression-oriented ) ， 练习 3.37 
center, 64 
Ces aro, Ernesto, #32135 
cesaro-stream, 245 
cesaro-test, 155 
Chaitin, Gregory , Æ ;4134 
Chandah-sutra， 有 和 脚注 39 
Chapman, David ， 牌 注 251 
Charniak, Eugene, #32251 
Chebyshev, Pafnutii L’vovich , 脚注 191 
Clark, Keith L. ， 脚 注 283 
Clinger, William, #pjz217, 3 iz240 
coeff, 140, 142 
Colmerauer, Alain, #72262 
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Common Lisp, #2 

nil 的 处 理 (treatment of nil), ¥iz76 
compile, 399 
compile-and-go, 425, 427 
compile-and-run, # 35.48 
compile-application, 408 
compile-assignment, 404 
compiled-apply, 426 
compile-definition, 404 
compiled-procedure?, W323 
compiled-procedure-entry, #72323 
compiled-procedure-env, /z323 +. 
compile-if, 405 
compile-lambda, 406 
compile-linkage, 403 
compile-proc-appl, 4/2 
compile-procedure-call, 409 
compile-quoted, 403 
compile-self-evaluating, 403 
compile-sequence, 406 
compile-variable, 403 
complex->complex, #3 2.81 
complex fi, (package), 130 
compound-apply, 388 
compound-procedure?, 26/ 
cond (特殊 形式 , special form), Z 

附加 子 旬 语法 (additional clause syntax), 练习 4.5 

子 句 (clause), 11 

的 求 值 (evaluation of ) ，11 

Hif, #319 

推论 里 隐 式 的 begin (implicit begin in consequent) , 

Beiz.131 

cond? , 258 
cond->if , 258 
cond-actions, 258 
cond-clauses, 258 
cond-else-clause?, 258 
cond-predicate, 258 
cond 的 子 句 (clause, of acond), /2 

另外 的 语法 (additional syntax), % 34.5 
conjoin, 327 
connect , 200, 204 
Conniver ， 和 脚注 251 
cons (基本 过 程 , primitive procedure), 57 

公理 (axiom for), 61 

闲 包 性 质 (closure property of), 65 

用 变动 函数 实现 (implemented with mutators ), 775 

用 向 量 实现 (implemented with vectors), 377 
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作为 表 操 作 (as list operation ), 377 
名 字 的 意义 (meaning of the name), i268 
的 过 程 性 实现 (procedural implementation of), ，67 ， 
练习 2.4，76 ，779 ，284 
cons-stream (特殊 形式 ，special form) 227, 222 
和 人情 性 求 值 (lazy evaluation and), 284 
为 什么 作为 特殊 形式 (why a special form), ， 脚 注 184 
const (寄存 器 机 器 ，in register machine), 347 
模拟 (simulating ), 370 
语法 (syntax of), 359 
constant (#4#) , primitive constraint), 202 
constant-exp, 370 
constant-exp-value, 370 
construct-arglist, 408 
cons 上 一 个 表 (upa list), 68 
contents, /20 
使 用 Scheme 数据 结构 (using Scheme data types), % 
32.78 
continue 寄 存 器 (register), 353 
显 式 控制 求 值 器 里 (in explicit-control evaluator) , 
383 
和 递归 (recursion and), 355 
Cormen, Thomas H., jz 106 
corner-split, 89 
cos (AA FH, primitive procedure), 46 
count-change, 26 
count-leaves, 73 
作为 累积 (as accumulation), # 92.35 
作为 寄存 器 机 器 (as register machine), # 95.21 
count-pairs, #33.16 
Cressey, David , Æ i302 
cube, #91.15, 37, 49 
cube-root, 49 
current-time, 194, 196 
Darlington, John, %;4202 
decode, 113 
deep-reverse, % 32.27 
define (特殊 形式 ，special form), 5 
带 点 尾部 记 法 (with dotted-tail notation), 2% 3 2.20 
的 环境 模型 (environment model of ) 164 
lambda 与 ，41~42 
过 程 的 (for procedures), 7, 42 
语法 糖衣 (syntactic sugar), 256 
的 值 (value of), #iz8 
为 什么 是 特殊 形式 (why a special form), 7 
内 部 (internal )， 见 内 部 定义 (internal definition ) 
define-variable!, 26i, 263 
definition? , 256 


definition-value, 256 
definition-variable, 256 
deKleer, Johan, #7251, #pjz281 
delay (特殊 形式 ，special form) , 222 
fest (explicit), 242 
显 式 与 自动 (explicit vs. automatic), 285 
用 lambda 实 现 (implementation using lambda), 225 
情 性 求 值 和 (lazy evaluation and), 284 
记忆 性 (memoized) , 225, # 93.57 
为 什么 是 特殊 形式 (why a special form), Mp iz 184 
delay-it, 287 
delete-queue!, /80, 182 
denom, 56, 59 
公理 (axiom for), 60 
归 约 到 最 低 的 项 (reducing to lowest terms), 59 
deposit ， 与 外 置 串 行 化 器 (with extemal serializer), 2/5 
deposit 消 息 ， 用 于 银行 账户 (deposit message for bank 
account), 153 
deriv (符号 symbolic), 700 
数据 导向 (data-directed), # 332.73 
deriv (数值 numerical), 49 
Dijkstra, Edsger Wybe , #2172 
Dinesman, Howard P., 290 
disjoin, 327 
display (基本 过 程 ，primitive procedure), $% 31.22, 
脚注 70 
display-line, 222 
display-stream, 222 
distinct?, #3252 
div (通用 的 generic), 128 
div-complex, 118 
divides?, 33 
div-interval , 63 
KR (division by zero), # 92.10 
divisible?, 227 
div-poly, 练习 2.91 
div-rat, $6 
div-series, 练习 3.62 
div-terms, % 32.91 
DOS/Windows , #72317 
dot-product, # 92.37 
Doyle, Jon, 4251 
draw-line, 93 
driver-loop 
情 性 求 值 器 (for lazy evaluator), 280 
元 循环 求 值 器 (for metacircular evaluator), 265 
非 确 定性 求 值 器 (for nondeterministic evaluator) , 
302 
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作为 连 分 数 (as continued fraction) ， 练 习 1.38 
作为 微分 方程 的 解 (as solution to differential equation ) ， 


242 
edgel-frame, 91 
edge2-frame, 91 
EIEIO, #iz177 
Eindhoven 技术 大 学 ， 脚 注 172 
element-of-set?, 103 


二 义 树 表示 (binary-tree representation ) 106 
排序 表 表 示 (ordered-list representation), 104 
无 序 表 表 示 (unordered-list representation), /03 


else (cond 里 的 特殊 形式 ，special symbol in cond ) /2 


empty-agenda?, 194, 196 

empty-arglist ， 和 脚注 307 

empty-instruction-sequence, 402 

empty-queue?, 180, /82 

empty-termlist?, 140, 142 

enclosing-environment, 262 

encode, 4 32.68 

end-segment , 4392.2, #392.48 

end-with-linkage, 403 

entry, /06 

enumerate-interval, 78 

enumerate-tree, 78 

env 寄 存 器 (register), 383 

eq? (基本 过 程 ，primitive procedure ), 98 
对 任意 对 象 (for arbitrary objects), 178 


作为 指针 相等 (as equality of pointers), 178, 375 

对 符号 的 实现 (implementation for symbols), 376 

数值 相等 和 (numerical equality and), 脚注 294 
equ? (通用 型 谓词 ，generic predicate )， 练 习 2.79 


equal? ， 练 习 2.54 
equal-rat?, 56 


error (基本 过 程 ，primitive procedure), #yiz56 


Escher, Maurits Cornelis, $y ;288 

estimate-integral, % 33.5 

estimate-pi, 155 

euler-transform, 234 

eval (ttt, lazy), 279 

eval (基本 过 程 ，primitive procedure ), 268 
MIT Scheme, #4226 


用 于 查询 解释 器 (used in query interpreter )， 328 


eval (元 循环 metacircular), 252, 253 
分 析 型 版 本 (analyzing version), 273 
数据 导向 的 (data-directed)， 练习 4.3 


与 基本 eval (primitive eval vs.) ， 脚 注 225 


eval-assignment , 254 


eval-definition, 255 
eval-dispatch, 384 

eval-if ( 情 性 , lazy), 280 
eval-if (元 循环 ，metacircular ) 254 
eval-sequence, 254 
ev-application, 359 
ev-assignment, 392 

ev-begin, 389 

ev-definition, 392 


even? , 30 
even-fibs, 76, 79 
ev-if , 39] 


ev-lambda , 385 
ev-quoted, 385 
ev-self-eval, 385 
ev-sequence 
带 尾 递归 (with tail recursion), 390 
不 带 尾 递归 (without tail recursion ) ，389 
ev-variable, 385 
e MEEA (power series for), # 93.59 
exchange, 2/4 
execute, 362 
execute-application 
元 循环 (metacircular) , 275 
非 确定 性 (nondeterministic), 30] 
expand-clauses, 258 
expmod 34, %3 1.25, 431.26 
expt 
线性 迭代 版 本 (linear iterative version) , 29 
线性 递归 版 本 (linear recursive version) , 29 
寄存 器 机 器 (register machine for), %3 5.4 
exp 寄 存 器 (register), 383 
extend-environment, 261, 262 
extend-if-consistent, 329 
extend-if-possible, 332 
external-entry, 426 
extract-labels, 364, #4289 
factorial 
作为 抽象 机 器 (as an abstract machine), 266 
的 计算 (compilation of), 415~417, 5-17 
求 值 的 环境 结构 (environment structure in evaluating) , 
% 3.9 
线性 迭代 版 本 (linear iterative version) , 22 
线性 递归 版 本 (linear recursive version) , 2/ 
和 迭代 的 寄存 器 机 器 (register machine for (iterative ) ) , 
练习 5.1， 练 习 5.2 
递归 的 寄存 器 机 器 (register machine for (recursive ) ) ， 
354~356 ， 图 5-11 
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堆栈 使 用 ， 编 译 (stack usage, compiled), #95.45 
堆栈 使 用 ， 解 释 (stack usage, interpreted), $ 35.26, 
练习 5.27 
堆栈 使 用 , 寄存 器 机 器 (stack usage, register machine ) ， 
练习 5.14 
带 赋 值 (with assignment), 167 
带 高 阶 过 程 (with higher-order procedures), 练习 1.31 
false, #317 
false?, 261 
fast-expt, 30 
fast-prime?, 34 
Feeley, Marc, # {#232 
Feigenbaum, Edward , {#265 
Fenichel, Robert, i= 300 
fermat-test, 34 
fetch-assertions, 333 
fetch-rules, 333 
fib 
eee EA (linear iterative version) , 26 
对 数 版 本 (logarithmic version), $31.19 
寄存 器 机 器 ( 树 形 递归 ) (register machine for (tree- 
recursive ) ) ，357 ， 图 5-12 
堆栈 使 用 ， 编 译 (stack usage, compiled), t 95.46 
堆栈 使 用 ， 解 释 (stack usage, interpreted), ， 练 习 S.29 
树 形 递归 版 本 (tree-recursive version) ,24, 95.29 
#ici< (with memoization ) ， 练 习 3.27 
带 命 名 Let (with named let), # 54.8 
fibs (无 穷 流 ，infinite stream), 227 
隐 式 定义 (implicit definition), 279 
FIFO 缓冲 区 (buffer), 180 
filter, 78 
filtered-accumulate, #39 1.33 
find-assertions, 328 
find-divisor, 33 
first-agenda-item, 194, 197 
first-exp, 257 
first-frame, 262 
first-operand, 257 
first-segment, 196 
first-term, 140, /42 
fixed-point, 46 
(Ee feed (as iterative improvement), 4 9 1.46 
fixed-point-of-transform, 50 
f1ag 寄 存 器 (register), 362 
flatmap, 83 
flatten-stream, 336 
flip-horiz, 88, % 32.50 
flipped-pairs, 89, Be jz90 


flip-vert, 88, 94 
Floyd, Robert, #32251 
fold-left, 练习 2.38 
fold-right， 练 习 2.38 
Forbus, Kenneth D., #pj#251 
force, 222, 225 

强迫 计算 一 个 槽 (forcing a thunk vs.), #piz239 
force-it, 28/ 

带 记 忆 版 本 (memoized version), 282 
for-each ， 练 习 2.23 ， 练 习 4.30 
for-each-except, 204 
forget-value!, 200, 204 
Fortran, 2, #7281 

的 发 明 者 (inventor of), #4202 

复合 数据 上 的 限制 (restrictions on compound data), 

脚注 73 
frame-coord-map, 92 
frame-values, 262 
frame-variables, 262 
Franz Lisp, #riz2 
free #77 (register), 377, 379 
Friedman, Daniel P.， 和 脚注 186， 有 和 脚注 206 
fringe ,练习 2.28 

作为 一 种 树 形 枚 举 (as a tree enumeration )， 和 脚注 80 
front-ptr, 181 
front-queue, 180, 181 
Gabriel, Richard P., #72231 
GCD，32 ， 见 最 大 公约 数 (greatest common divisor ) 

的 寄存 器 机 器 (register machine for) , 343~345 ，359 
gcd-terms, 145 
generate-huffman-tree ， 练 习 2.69 
get, 123, 187 
get-contents, 36] 
get-global-environment , #jz314 
get-register, 362 
get-register-contents, 359, 362 
get-signal, 191, 193 
get-value, 200, 204 
Goguen, Joseph, #73271 
Gordon, Michael, #7200 
goto (在 寄存 器 机 器 里 in register machine), 346 

以 标号 为 目标 (label as destination), 354 

模拟 (simulating), 369 
goto-dest, 368 
Gray, Jim, #4176 
Green, Cordell , yp j#262 
Griss, Martin Lewis, #¢iz2 
Guttag, John Vogel, My iz71 
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Hamming, Richard Wesley, #774108, # 573.56 
Hanson, Christopher P., #9i#217, #i#325 
Hardy, Godfrey Harold, Mpjz191, Be iz198 
Hassle, #9 iz237 
has-value? , 200, 204 
Havender, J.， 有 和 脚注 176 
Haynes, Christopher T., #1206 
Hearn, Anthony C., #4 iz2 
Henderson, Peter, #488, Bpizl89, Hy iz202 
Henderson (diagram), 228 
Hewitt, Carl Eddie ， 和 脚注 31， 肢 注 251 ， 脚 注 262， 脚 注 300 
Hilfinger, Paul, #9 i2107 
Hoare, Charles Antony Richard, #171 
Hodges, Andrew, My 7¢223 
Hofstadter, Douglas R., #7224 
Horner, W. G., #4 7482 
Horner 规 则 (rule), 9 92.34 
Huffman, David, 110 
Huffman 43% (code), 109~115 
的 最 优 性 (optimality of), 111 
编码 的 增长 阶 (order of growth of encoding ) ， 练 习 
2.72 
Hughes, R. J. M., #34245 
IBM 704, #468 
identity, 39 
if (特殊 形式 ，special form), 12 
cond 5, Miz 19 
的 求 值 (evaluation of), 12 、 
的 正则 序 求 值 (normal-order evaluation of), ， 练 习 1.5 
单 支 (无 替代 部 分 ) (one-armed (without alternative ) ) ， 
脚注 157 
谓词 、 推 论 和 替代 部 分 (predicate, consequent, and 
alternative of), 12 
为 什么 作为 特殊 形式 (why a special form), s 91.6 
if?, 257 
if-alternative, 257 
if-consequent , 257 
if-predicate, 257 
iE 的 替代 部 分 (alternative of if), 72 
imag-part, 125 l 
数据 导向 的 (data-directed) , 119 
极 坐 标 表示 (polar representation), 718 
直角 坐标 表示 (rectangular representation), /20 
与 带 标志 数据 (with tagged data) , 120 
imag-part-polar, /20 
imag-part-rectangular, /20 
inc, 39 
inform-about-no-value, 201 
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inform-about-value, 20] 
Ingerman, Peter, #72238 
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在 一 维 表格 里 (in one-dimensional table), 185 
在 两 维 表格 里 (in two-dimensional table), ，786 
insert-queue! , /80 
install-complex-package, 130 
install-polar-package, 124 
install-polynomial-package, /39 
install-rational-package, 129 
install-rectangular-package, 123 
install-scheme-number-package , /29 
instantiate, 325 
instruction-execution-proc, 366 
instruction-text, 365 
integers (X3, infinite stream), 227 
隐 式 定义 (implicit definition), 278 
情 性 表 版 本 (lazy-list version), 284 
integers-starting-from, 227 
integral, 39, 239, % 33.77 
带 有 延 时 参数 (with delayed argument), 241 
t (with) lambda, 4/ 
情 性 表 版 本 (lazy-list version), 285 
延 时 求 值 的 需要 (need for delayed evaluation ) 241 
integrate-series, & 93.59 
interleave, 237 
interleave-delayed, 335 
Interlisp , Be iz2 
intersection-set, 103 
二 叉 树 表示 (binary-tree representation), 4% 3 2.65 
排序 表 表 示 (ordered-list representation), 105 
未 排序 表 表 示 (unordered-list representation ) 104 
Jayaraman, Sundaresan ， 脚 注 159 
Kaldewaij, Anne ， 脚 注 41 
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Kolmogorov, A. N., #4134 
Konopasek, Milos, yi 159 
Kowalski, Robert, By ;ż262 
KRC， 脚 注 84， 脚 注 196 
label (寄存 器 机 器 里 , in register machine), 347 
模拟 (simulating ), 370 
label-exp, 370 
label-exp-label, 370 
lambda (特殊 形式 ，special form), 47 
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define 5, 41~42 
带 点 尾部 记 法 (with dotted-tail notation), #piz77 
lambda? , 256 
lambda-body, 256 
lambda~parameters, 256 
lambda #jA3x¢ (expression ) 
作为 组 合式 的 运算 符 (as operator of combination), 
41 
的 值 (value of), 165 
lambda 演 算 (calculus (lambda calculus )), $353 
Lambert, J.H., #9 1.39 
Lamé, Gabriel, #3443 
Lamé 定理 (Theorem), 32 
Lamport, Leslie ， 和 脚注 179 
Lampson, Butler， 脚 注 138 
Landin, Peter, Mpiz11, Bpiz186 
Lapalme, Guy, By 7z232 
last-exp?, 257 
last-operand? , Meiz307 
last-pair, % 32.17, #% 33.12 
规则 (rules), #4 34.62 
leaf? , 113 
left-branch, 106 
Leiserson, Charles E., 73106, y iz198 
length, 68 
作为 积累 (as accumulation), 4 32.33 
迭代 版 本 (iterative version) , 68 
递归 版 本 (recursive version), 68 
let (特殊 形式 ，special form), 43 
求 值 模型 (evaluation model), 2 93.10 
与 内 部 定义 (internal definition vs.), 43 
命名 的 (named), # 34.8 
变量 的 作用 域 (scope of variables), 43 
作为 语法 糖衣 (as syntactic sugar), 43, 4 93.10 
let* (特殊 形式 ，special form), ， 练 习 4.7 
letrec (特殊 形式 ，special form ) ， 练习 4.20 
lexical-address-lookup, 423, #.35.39 
lexical-address-set!, 423, 练习 5.39 
Lieberman, Henry, ‘#300 
LIFO 缓 冲 区 (buffer), ， 见 堆栈 (stack) 
Liskov, Barbara Huberman, i271 
Lisp 
表 处 理 的 缩写 (acronym for LISt Processing), 1 
应 用 序 求 值 (applicative-order evaluation in), 11 
在 DEC PDP-1 |, #72300 
的 效率 (efficiency of), 2, W6 
一 级 的 过 程 (first-class procedures in), 51 
Fortran 与 ，2 


历史 (history of ) ，1~3 
内 部 类 型 系统 (internal type system) ， 练 习 2.78 
在 BM 704 上 的 初始 实现 (original implementation on 
IBM 704), i268 
45Pascal, Mizil 
适合 写 求 值 器 (suitability for writing evaluators) , 250 
独特 的 特征 (unique features of), 2 i 
lisp-value (查询 解释 器 ，query interpreter), 327 
lisp-value (查询 语言 ，query language), 311, 323 
的 求 值 (evaluation of), 318, 327, % 34.77 
Lisp} A (dialects) 
Common Lisp ， 脚 注 2 
Franz Lisp ， 脚 注 2 
Interlisp, W2 
MacLisp, Sy iz2 
MDL, #3302 
Portable Standard Lisp， 脚 注 2 
Scheme, 2 
Zetalisp ， 和 脚注 2 
list (基本 过 程 ，primitive procedure), 66 
list->tree， 练 习 2.64 
list-difference, 414 
list-of-arg-values , 280 
list-of-delayed-args , 280 
lList-of-values, 254 
list-ref, 68, 285 
list-union, 4/3 
lives-near 规 则 (rule), 311, 434.60 
Locke, John, 1 l 
log (基本 过 程 ，primitive procedure), 练习 1.36 
logical-not, /9/ 
lookup Í 
在 一 维 表 格 里 (in one-dimensional table), 784 
在 记录 集合 里 (in set of records), ，709 
在 两 维 表格 里 (in two-dimensional table), /86 
lookup-label, 366 
lookup-prim, 370 
lookup~-variable-value, 261, 262 
为 扫描 出 定义 (for scanned-out definitions), * 9 
4.16 
lower-bound, # 42.7 
Macintosh, 脚注 317 
MacLisp , Biz? 
magnitude 
数据 导向 的 (data-directed), 725 
极 坐 标 表 示 (polar representation ), 719 
直角 坐标 表示 (rectangular representation) ，178 
带 标志 数据 (with tagged data), 727 
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magnitude-polar, /20 
magnitude-rectangular, /20 
make-account , 153 

在 环境 模型 里 (in environment model), 4 93.11 

带 串 行 化 《with serialization), 212, 493.41, %3 

3.42 

make-account-and-serializer, 214 
make-accumulator, 练习 3.1 
make-agenda, 194, 196 
make-assign , 367 
make-begin, 257 
make-branch, 368 
make-center-percent, 练习 2.12 
make-center-width, 64 
make-code-tree, 112 
make-compiled-procedure, #4323 
make-complex-from-mag-ang, 131 
make-complex-from-real-imag, 131 
make-connector , 203 
make-cycle, # 33.13 
make-decrementer , 158 
make-execution-procedure, 366 
make-frame , 9/, #392.47, 262 
make-from-mag-ang, 122, 125 

消息 传递 (message-passing), # 32.75 

极 坐 标 表 示 (polar representation), 1/9 

直角 坐标 表示 (rectangular representation ) 779 
make-from-mag-ang-polar, /20 
make-~from-mag-ang-rectangular, 120 
make-from-real-imag, 121, 125 

消息 传递 (message-passing ) 127 

极 坐 标 表 示 (polar representation), 119 

直角 坐标 表示 (rectangular representation), 119 
make-from-real-imag-polar, 120 
make-from-real-imag~-rectangular, 120 
make-goto, 368 
make-if, 257 
make-instruction, 365 
make-instruction-sequence, 402 
make-interval, 63, $% 32.7 
make-joint, #93.7 
make-label , #7322 
make-label-entry, 366 
make-lambda , 256 
make-leaf, //2 
make-leaf-set, 114 ' 
make-machine, 359, 361 
make-monitored, # 33.2 
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make-mutex, 2/7 
make-new-machine, 85-12 
make-operation-exp, 370 
make-perform, 369 
make-point， 练习 2.2 
make-poly, 139 
make-polynomial , 142 
make-primitive-exp, 370 
make-procedure, 26/ 
make-product, /00, 102 
make-queue, 180, /8/ 
make-rat, 56, 57, 59 
公理 (axiom for), 60 
归 约 到 最 低 形 式 (reducing to lowest terms) , 58 
make-rational, 130 
make-register , 361 
make-restore , 369 
make-save, 369 
make-scheme-number, /29 
make-segment, #32.2, #32.48 
make-serializer, 2/6 
make-simplified-withdraw, 158, 246 
make-stack, 36] 
带 监视 的 堆栈 (with monitored stack), 372 
make-sum, 100, 101 
make-table 
消息 传递 的 实现 (message-passing implementation) , 
785 
一 维 表格 (one-dimensional table), 185 
make-tableau, 234 
make-term, 140, 142 
make-test , 368 
make-time-segment, 196 
make-tree, 106 
make-vect, #3)2.46 
make-wire, 189, 192, #33.31 
make-withdraw, 152 
在 环境 模型 里 (in environment model), 167~170 
用 (using) let, #.93.10 
map, 70, 285 
作为 积累 (as accumulation), # 32.33 
还 有 多 个 参数 (with multiple arguments), #7478 
map~over-symbols, 337 
map-successive-pairs, 245 
matrix-*-matrix, # 92.37 
matrix-*-vector, #5)2.37 
max (基本 过 程 ，primitive procedure), 63 
McAllester, David Allen, #9 j#251 
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McCarthy, John，2 ， 和 脚注 1] ， 和 脚注 247 
McDermott, Drew ， 脚 注 251 
MDL, #72302 
member ， 和 脚注 252 
memo-fib, % 33.27 
memoize, # 33.27 
memo-proc, 225 
memg, 98 
merge, #33.56 
merge-weighted, # 33.70 
MicroPlanner, #972251 
Microshaft , 307 
midpoint-segment, # 92.2 
Miller, Gary L., # 3 1.28 
Miller, James S., #3#325 
Miller-Rabin 检查 (test for primality) , 391.28 
Milner, Robin, #;¿200 
min (#4it Æ, primitive procedure), 63 
Minsky, Marvin Lee ， 脚 注 300 
Miranda ， 脚 注 84 
MIT Scheme 
空 流 (the empty stream), 7z182 
eval, Wyiz226 
内 部 定义 (internal definitions), #;ż229 
成 员 (numbers), #123 
random, 4136 
user-initial-environment, #32226 
without-interrupts, #jz174 
MIT, #4262 
人 工 智能 实验 室 (Artificial Intelligence Laboratory ), 
脚注 2 
早期 历史 (early history of), #489 
项 目 (Project) MAC， 和 脚注 2 
电子 学 研究 实验 室 (Research Laboratory of Electronics ) , 
2, 4300 
ML, #72200 
modifies-register?, 4/3 
monte-carlo, 156 
无 穷 流 (infinite stream), 255 
Moon, David A., W342, #34300 
Morris, J. H., #32138 
mul (通用 型 ，generic ) 129 
用 于 多 项 式 系数 (used for polynomial coefficients) , 
141 
mul-complex, 118 
mul-interval, 63 
更 高 效 的 版 本 (more efficient version), #32.11 
mul-poly, 139 


mul-rat, 56 
mul-series, 练 习 3.60 
mul-streams, # 93.54 
mul-terms, 141 
Multics 分 时 系统 (time-sharing system), # jz 300 
multiple-dwelling, 29] 
multiplicand, 101 
multiplier, 101 
基本 约束 (primitive constraint) , 202 
选择 函数 (selector), 10] 
Munro, Ian, #7 i#82 
mystery, #33.14 
needs-register?, 413 
negate, 327 
new-cars 寄 存 器 (register), 379 
new-cdrs 寄 存 器 (register) ，379 
newline (基本 过 程 ，primitive procedure), # 91.22, 
脚注 70 
newtons-method, 50 
newton-transform, 49 
new-withdraw, /52 
new 寄 存 器 (register), 381 
next (连接 描述 符 ，linkage descriptor) ，404 
next-to (规则 ,rules) ， 练 习 4.61 
nil 
避免 (dispensing with), 80 
作为 空 表 (as empty list), 67 
作为 表 尾 标记 (as end-of-list marker), 66 
作为 Scheme 里 的 常 值 (as ordinary variable in Scheme ) , 
脚注 16 
no-more-exps?, #4312 
no-operands?, 275 
not (查询 语言 ，query language), 311, 322 
的 求 值 (evaluation of), 318, 327, % 34.77 
not (基本 过 程 ，primitive procedure), 12 
nouns, 292 
null? (KA Æ, primitive procedure), 68 
用 带 类 型 的 指针 实现 (implemented with typed 
pointers ) ，377 > 
number? (基本 过 程 ，primitive procedure), 100 
和 数据 类 型 (data types and) ， 练 习 2.78 
用 带 类 型 指针 实现 (implemented with typed pointers )， 
377 
numer, 56, 59 
公理 (axiom for), 60 
归结 到 最 低 项 (reducing to lowest terms), 59 
7 次 方 根 ， 作 为 不 动 点 (nth root, as fixed point), 练习 
1.45 


过 zl 


449 


oldcr## (register), 382 
old 寄 存 器 (register), 381 
ones (A, infinite stream), 228 
情 性 表 版 本 (lazy-list version), 285 
op (在 寄存 器 机 器 里 in register machine), 347 
模拟 (simulating), 370 
operands, 257 
operation-exp, 370 
operation-exp-op, 370 
operation-exp-operands, 370 
operator, 257 
or (查询 语言 ，query language), 310 
的 求 值 (evaluation of), 317, 327 
or (特殊 形式 ，special form), 18 
的 求 值 (evaluation of), 18 
为 什么 作为 特殊 形式 (why a special form), 18 
没有 子 表 达 式 (with no subexpressions), # 94.4 
order, 140, 142 
origin-frame, 9/ 
Ostrowski, A. M., %82 
outranked-by (规则 ， rule )，312 ， 练 习 4.64 
pair? (基本 过 程 ，primitive procedure), 73 
用 带 类 型 指针 实现 (implemented with typed pointers), 
378 
pairs, 237 
Pan, V. Y., #382 
parallel-execute, 21] 
parallel-instruction-sequences, 415 
Parse, 293 
parse-..., 293~294 
partial-sums, % 33.55 
Pascal, ， 和 脚注 11 
febi rit (lack of higher-order procedures), Æ 
注 200 
递归 过 程 (recursive procedures), 23 
对 复合 数据 的 限制 (restrictions on compound data), 
脚注 73 
在 处 理 复 合 数据 上 的 弱点 (weakness in handling com- 
pound objects), My iz161 l 
pattern-match, 329 
pc 寄存 器 (register), 362 
perform (在 寄存 器 机 器 里 ,in register machine), 348 
模拟 (simulating), 369 
perform-action, 369 
Perlis, Alan J., #773 
妙语 (quips), Wa7, Wiel 
Phillips, Hubert, # 39 4.42 


Pi (x) 
用 拆 半 法 逼近 (approximation with half-interval method ) , 
45 
用 蒙特 卡 罗 积 分 逼近 (approximation with Monte Carlo 
integration ) ， 练 习 3.5 ， 练 习 3.82 
Cesaro 估 计 (estimate for), 155, 254 
RAE BBR (Leibniz’s series for), ， 脚 注 49 233 
JUL (stream of approximations ), 233~234 
Wallis 公式 (formula for), %3 1.31 
Pingala, Acharya, ##iz39 
pi-stream, 233 
pi-sum, 38 
用 高 阶 过 程 (with higher-order procedures), 39 
FA (with) lambda, 41 
Pitman, Kent M., By jz2 
Planner ， 脚 注 251 
polar?, 120 
polar fj (package), 139 
poly, 139 
polynomial (package), 139 
pop, 361 
Portable Standard Lisp, #iz2 
PowerPC, #iz177 
prepositions, 294 
preserving, 401, % 35.31, 414, % 35.37 
prime? , 33, 229 
primes (WH, infinite stream), 228 
隐 式 定义 (implicit definition), 229 
prime-sum-pair, 286 
prime-sum-pairs, 83 
FEB (infinite stream) , 235 
primitive-apply, 388 
primitive-implementation, 264 
primitive-procedure?, 26], 265 
primitive-procedure-names, 265 
primitive-procedure-objects, 265 
print 操作 ,寄存 器 机 器 (operation in register machine) , 
348 
print-point, % 32.2 
print-queue, 4 33.21 
print-rat, 58 
print-result, 393 
监视 堆栈 版 本 (monitored-stack version ), 395 
print-stack-statistics 
probe ` 
在 约束 系统 里 (in constraint system ), 203 
在 数字 电路 模拟 器 里 (in digital-circuit simulator) , 
194 
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proc 寄 存 器 (register), 384 
procedure-body, 261 
procedure-environment, 26J 
procedure-parameters, 26] 
product, % 31.31 
作为 积累 (as accumulation), %3 1.32 
product?, 101 
Prolog, #32251, #4262 
prompt-for~input, 265 
propagate, 194 
push, 361 
put, 123, 187 
P 操 作 (信和 号 量 的 ) (P operation on semaphore), #4172 
geval, 320, 326 
queens, % 32.42 
query-driver-loop, 325 
quote (特殊 形式 ，special form), # iz 100 
read#p, #4222, W ;ż285 
quoted? , 255 
quotient (基本 过 程 ，primitive procedure), 4 93.58 
Rabin, Michael O., # 3 1.28 
Ramanujan, Srinivasa ， 脚 注 198 
Ramanujan 数 (numbers), 练习 3.71 
rand, 155 
带 重 置 (with reset), $% 33.6 
random (基本 过 程 ，primitive procedure), 34 
需要 赋值 (assignment needed for), #74129 
MIT Scheme, #72136 
random-in-range, # 33.5 
random-numbers (无 穷 序 列 , infinite stream), 245 
Raphael, Bertram ， 牌 注 262 
Raymond, Eric , #i#235, Biz 250 
RC 电 路 (circuit), # 33.73 
read (#Axt #, primitive procedure), #222 
点 尾部 记 法 的 处 理 (dotted-tail notation handling by ), 
330 
EFR (macro characters), M9iz285 
read-eval-print-loop, 393 
read 操 作 , 在 寄存 器 机 器 里 (operation in register machine ) , 
348 : 
real-part 
数据 导向 的 (data-directed ) 125 
极 坐 标 表示 (polar representation), //8 
直角 坐标 表示 (rectangular representation), 118 
带 标志 数据 (with tagged data), 127 
real-part-polar, 121 
real-part-rectangular, 120 
rear-ptr, /8/ 


receiveit# (procedure), #72289 
rectangular?, 120 
Rees, Jonathan A., #ejz217, iz232 
reg (寄存 器 机 器 ，in register machine), 347 
模拟 (simulating), 369 
register-exp, 370 
register-exp-reg, 370 
registers-modified, 4/2 
registers-needed, 4/2 
remainder (基本 过 程 ，primitive procedure) , 30 
remainder-terms, # 92.94 _ 
remove, 84 
remove-first-agenda-item! , 194, 197 
require, 288 
作为 特殊 形式 (as a special form), # 94.54 
rest-exps, 257 
rest-operands, 257 
restore (寄存 器 机 器 ，in register machine), 355, & 
35.11 
实现 (implementing), 377 
模拟 (simulating), 369 
rest-segments, 196 
rest-terms, 140, 142 
return (连接 描述 符 ，linkage descriptor), 400 
Reuter, Andreas ， 脚 注 176 
reverse ， 练 习 2.18 
YEH & (as folding) ， 练 习 2.39 
规则 (rules ) ， 练 习 4.68 
xight-branch, /06 
right-split, *9 
Rivest, Ronald L., Priz48, #2106 
RLC 电 路 (circuit), # 93.80 
Robinson, J. A., #pjz262 
Rogers, William Barton , $3289 
roots (register), #2301 
rotate90, 94 
round (基本 过 程 ，primitive procedure), #r;4119 
Rozas, Guillermo Juan, #7 7#325 
RSA (algorithm), #7248 
Runkle, John Daniel, #7289 
runtime (基本 过 程 ，primitive procedure), # 91.22 
same (规则 ，rule)，377 
same-variable?, 100, 139 
save (寄存 器 机 器 ，in register machine), 356, # 35.11 
实现 (implementing), 377 
模拟 (simulating), 369 
scale-list, 70, 71, 285 
scale-stream, 229 
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scale-tree, 75 
scale-vect ， 练 习 2.46 
scan-out-defines ， 练 习 4.16 
scan 寄 存 器 (register ) 
Scheme ，2 
的 历史 (history of), M22 
scheme~number->complex, 133 
scheme-number->scheme-number, # 92.81 
scheme-number # (package), /29 
Scheme 的 编译 器 (compiler for Scheme), ，399~402 ， 另 见 
代码 生成 器 (code generator) ， 编 译 时 环境 (com- 
piletime environment) ， 指 令 序列 (instruction 
sequence) ， 连 接 描述 符 (linkage descriptor) ， 目 
标 寄 存 器 (target register) 
与 分 析 型 求 值 器 (analyzing evaluator vs. ) 399, 400 
{A (assignments), 404 
代码 生成 器 (code generators), @compile-... 
组 合式 (combinations), 407~412 
条 件 (conditionals ) 404 
定义 (definitions ) ，404 
效率 (efficiency) , 399~400 
实例 的 编译 (example compilation), 415~419 
与 显 式 控制 求 值 器 (explicit-control evaluator vs.), 
399~400, % 35.32, 427 
表达 式 语 法 过 程 (expression-syntax procedures), 399 
与 求 值 器 连接 (interfacing to evaluator), 425~430 
标号 生成 (label generation) ， 和 脚注 322 
lambda ik (expressions) 406 
词法 地 址 (lexical addressing), 422~424 
连接 代码 (linkage code), 403 
机 器 操作 的 使 用 (machine-operation use), #2319 
编译 后 代码 (堆栈 使 用 ) 性 能 监视 (monitoring perf- 
ormance (stack use) of compiled code), ，427 ， 练 
535.45, %35.46 
基本 过 程 的 开放 代码 (open coding of primitives), & 
35.38, %#395.44 
运算 对 象 求 值 的 顺序 (order of operand evaluation), 
练习 5.36 
过 程 应 用 (procedure applications ) ，407~412 
引号 (quotations), 403 
寄存 器 使 用 (register use), #4319, 398, ， 和 脚注 326 
运行 编译 代码 (running compiled code), 425, 430 
扫描 出 内 部 定义 (scanning out internal definitions ) ， 
脚注 331 4% 35.43 
自 求 值 表达 式 (self-evaluating expressions ) 403 
表达 式 序 列 (sequences of expressions) , 406 
堆栈 的 使 用 (stack usage), 401, # 95.31, #39 
5.37 i 


的 结构 (structure of), 399~402 
生成 尾 递归 代码 (tail-recursive code generated by), 
411 
变量 (variables) ，403 
Scheme 芯片 (chip), 383, 45-16 
Schmidt, Eric, #9 {2138 
search, 44 
segment-queue, 196 
Segments, 196 
segments->painter, 93 
segment-time, 196 
self-evaluating?, 255 
sequence->exp, 257 
serialized-exchange, 2/5 
避免 死 锁 (with deadlock avoidance), 4 93.48 
set! (特殊 形式 special form), 151, 3 RBH (assi- 
gnment) 
的 环境 模型 (environment model of), My iz 141 
的 值 (value of), #iz130 
set-car! (基本 过 程 ，primitive procedure), 173 
用 向 量 实现 (implemented with vectors), 376 
的 过 程 实现 (procedural implementation of), 779 
的 值 (value of), Byiz144 
set-cdr! (##it @, primitive procedure), 173 
用 向 量 实现 (implemented with vectors), 376 
的 过 程 实现 (procedural implementation of), /80 
的 值 (value of), Wiż144 
set-contents! , 361 
set-current-time! , 196 
set-front-ptr!, 181 
set-instruction-execution-proc! , 366 
set-rear-ptr! , 181 
set-register-contents! , 359, 362 
set-segments!, 196 
set-signal!, 191, 193 
setup-environment , 264 
set-value!, 200, 204 
set-variable-value!, 261, 263 
Shamir, Adi, z448 
shrink-to-upper-right, 94 
Shrobe, Howard E., By iz 265 
signal-error , 394 
simple-query , 326 
sin (基本 过 程 ，primitive procedure), 46 
singleton-stream, 336 
SKETCHPAD , #iz159 
smallest-divisor, 33 
更 有 效 的 版 本 (more efficient version), # 91.23 
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Smalltalk, #iz159 
Solomonoff, Ray, #iz134 
solve) F (differential equation), 241~242 
情 性 表 版 本 (lazy-list version), 286 
扫描 出 定义 (with scanned-out definitions), 练习 4.18 
Spafford, Eugene H., #iz337 
split, #32.45 
sqrt, 16 
块 结构 (block structured), /9 
环境 模型 (in environment model), 171~172 
作为 不 动 点 (as fixed point), 46~51 
作为 迭代 改进 (as iterative improvement), 4 3) 1.46 
用 牛顿 法 (with Newton’s method), 50 
寄存 器 机 器 (register machine for), # 95.3 
作为 流 的 极限 (as stream limit), 2k 33.64 
sqrt-stream, 233 
square, 8 
环境 模型 (in environment model), 163~165 
square-limit, 90~9/ 
square-of-four, 90 
squarer (#j#, constraint), % 93.34, #& 93.35 
squash-inwards, 94 
stack-inst-reg-name, 369 
Stallman, Richard M., #iz159, #iz251 
start-eceval , W jz334 
start-segment, #92.2, $% 32.48 
start 寄存 器 机 器 (register machine), 359, 362 
statements, 4/3 
Steele, Guy Lewis Jr., W42, Peig31, #4139, Miz 
159, W235, Beiz250 
Stoy, Joseph E., Æ#:415, Wpiż41, W iż231 
Strachey, Christopher, #93264 
stream-append, 237 
stream-append-delayed, 335 
stream-car, 22/1, 222 
stream-cdr, 221, 222 
stream-enumerate-interval , 223 
stream-filter, 223 
stream-flatmap, 336, #34.74 
stream-for-each, 222 
stream-limit, #73.64 
stream-map, 222 
带 多 个 参数 (with multiple arguments), ， 练 习 3.50 
stream-null?, 222 
在 MIT Scheme H, My iz 182 
stream-ref, 222 
stream-withdraw, 247 
sub (通用 型 ，generic ), 129 


sub-complex, 1/8 
sub-interval, 练习 2.8 


sub-rat, 56 
sub-vect, 练习 2.46 
sum, 38 


作为 积累 (as accumulation) ， 练 习 1.32 
迭代 版 本 (iterative version), ， 练 习 1.30 
sum? ，707 
sum-cubes, 38 
高 阶 过 程 (with higher-order procedures) , 39 
sum-integers, 38 
高 阶 过 程 (with higher-order procedures) ，39 
sum-odd-squares, 76, 79 
sum-of-squares, 8 
环境 模型 (in environment model), 165 
sum-primes, 227 
Sussman, Gerald Jay, A iz3, Beig31, Beiz159, #piz251 
Sutherland, Ivan, #4159 
symbol? (#Ait Æ, primitive procedure), /00 
和 数据 类 型 (data types and), 92.78 
用 带 类 型 指针 实现 (implemented with typed pointers )， 
377 
symbol-leaf, 112 
symbols, 112 
SYNC, #iz177 
tack-on-instruction-sequence, 414 
tagged-list?, 255 
Teitelman, Warren, 脚注 2 
term-list, 139 
test (寄存 器 机 器 ，in register machine) , 346 
模拟 (simulating), 368 
test-and-set!, 217, #yjz172 
test-condition, 368 
text-of-quotation, 255 
Thatcher, James W., #3271 
the-cars 
寄存 器 (register), 376, 379 
向量 (vector), 375 
the-cdrs 
寄存 器 (register), 376, 379 
向 量 (vector) ，375 
the-empty-stream, 222 
在 MIT Scheme 里 ， 移 注 182 
the-empty-termlist, 140, 142 
the-global-environment , 264, #32314 
theta of fin) (O( fin))), 28 
THE 多 道 程 序 设计 系统 (THE Multiprogramming System ), 
W172 
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timed-prime-test, 91.22 
TK!Solver, #72159 
transform-painter, 94 
transpose—~ 46 (a matrix), # 592.37 
tree->list..., #32.63 

tree-map, # 392.31 

true, Myz17 

true?, 261 

try-again, 289 

Turner, David, #3384, Brjyz196, #iz201 
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使 用 Scheme 数据 类 型 (using Scheme data types), ， 练 


习 2.78 
unev 寄 存 器 (register), 383 
unify-match, 331 
union-set, 103 
二 叉 树 表示 (binary-tree representation), ， 练 习 2.65 
排序 表 表 示 (ordered-list representation ) ， 练 习 2.62 
未 排序 表 表 示 (unordered-list representation) ， 练 习 
2.59 
unique (查询 语言 ，qduery language), 494.75 
unique-pairs, # 32.40 
UNIX, #72317, i337 
unknown-expression-type, 393 
unknown-procedure-type , 394 
update-insts! , 365 
upper-bound, 492.7 
up-split, 432.4 
user-initial-environment (MIT Scheme), Miz 
226 
user-print , 266 
为 编译 代码 而 做 的 修改 (modified for compiled code), 
脚注 334 
value-proc 367 
Val 寄存 器 (register), 383 
variable, 139 
variable?, 100, 255 
vector-ref (基本 过 程 ,primitive procedure), 374 
vector-set! (基本 过 程 ，primitive procedure), 374 
verbs, 292 
Wadler, Philip, #74138 
Wadsworth, Christopher, #7 7%200 
Wagner, Eric G. ， 和 脚注 71 
Walker, Francis Amasa ， 脚 注 89 
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Wand, Mitchell, #iz206, #12308 
Waters, Richard C., iz81 
weight, [12 
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weight-leaf, 1/2 
Weyl, Hermann, 53 
wheel (规则 ，rule )，311 
width , 64 
Wilde, Oscar (Perlis 的 释义 (paraphrase of)), #piz7 
Wiles, Andrew, #iz45 
Winograd, Terry, #7251 
Winston, Patrick Henry, PRiz251, A2257 
Wisdom, Jack, #3723 
Wise, David S., Biz 186 
withdraw, 15] 
并 发 系统 里 的 问题 (problems in concurrent system), 
208 
without-interrupts, 脚注 164 
Wright, E. M., #932191 
Wright, Jesse B., #7471 
xcor-vect, % 32.46 
Xerox Palo Alto Research Center ， 和 脚注 2>， 脚 注 159 
Ycor-vect ， 练 习 2.46 
Yochelson, Jerome C., i300 
Y 运 算 符 (operator), Æ 34231 
Zabih, Ramin, #32251 
Zetalisp ， 和 脚注 2 
Zilles, Stephen N., #:%71 
Zippel, Richard E., iy iz. 128 
爱丁堡 大 学 (University of Edinburgh), #ixz262 
按 名 调用 参数 传递 (call-by-name argument passing), Æ 
4186, #4240 
RD GBA (chronological backtracking), 289 
按 需 参 数 传 递 (call-by-need argument passing), Miz 
186, ##iz240 
记忆 性 (memoization and), i192 
八 皇 后 谜 题 (eight-queens puzzle), 练习 2.42 ， 练 习 4.44 
半 加 器 (half-adder), 189 
half-adder , 190 
的 模拟 (simulation of), 194~195 
包 (package), 124 ¥ 
复数 (complex-number), 130 
极 坐 标 表示 (polar representation), 125 
多 项 式 (polynomial) ，139 
有 理 数 (rational-number) 129 
直角 坐标 表示 (rectangular representation), 123 
Scheme 的 数 (Scheme-number) ，129 
保留 字 (reserved words), 435.38, 4k 35.44 
被 监视 的 过 程 (monitored procedure), 4 93.2 
被 开 方 数 (radicand ) 15 
本 机 语言 (native language of machine), 397 


毕 达 哥 拉 斯 三 元 组 (Pythagorean triples ) 
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用 非 确定 性 程序 (with nondeterministic programs) , 
练习 4.35 ， 练 习 4.36 ， 练 习 4.37 
用 流 (with streams ) ， 练 习 3.69 
H (closure), 55 
抽象 代数 里 (in abstract algebra), W372 
cons 的 闭 包 性 质 (closure property of cons), 66 
图 形 语言 操作 的 闭 包 性 质 (closure property of picture- 
language operations ), 86, 87 
许多 语言 里 缺少 (lack of in many languages) ， 脚 注 73 
编码 (code) 
ASCII, 109 
定 长 (fixed-length) , 110 
Huffman, Huffman ggg (code), 109 
莫 尔 斯 (Morse), 110 
WW (prefix), 110 
变 长 (variable-length) , 110 
编译 (compilation), R gia (compiler) 
编译 器 (compiler), 398~399 
与 解释 器 (interpreter vs.), 398~399 , 427 
尾 递归 ， 堆 栈 分 配 和 废料 收集 (tail recursion, stack 
allocation, and garbage-collection ) ， 和 脚注 325 
编译 时 环境 (compile-time environment), ， 练 习 5.40 
和 开放 代码 (open coding and), $% 35.44 
变 长 编码 (variable-length code), 110 
变动 函数 (mutator), 173 
变动 数据 对 象 (mutable data objects), 173~180, 5 TBA 
Fl (queue) ， 表格 (table) 
变量 (variable), 5, 3 3 局 部 变量 (local variable ) 
约束 的 (bound), 18 
自由 的 (free), 18 
作用 域 (scope of)，18 ， 男 见 变 量 的 作用 域 (scope of 
a variable ) 
LH AY (unbound), 162 
{A (value of), 162 
变量 的 作用 域 (scope of a variable )，18 ， 另 见 词 法 作用 
域 (lexical scoping ) 
内 部 的 (internal) define, 269 
在 (in) let 里 ,43 
过 程 的 形式 参数 (procedure’s formal parameters) ，19 
标记 一 清扫 废料 收集 器 (mark-sweep garbage collector ), 
脚注 300 
表 (list), 66 
与 反 引 号 (backquote with), #4321 
cdr (cdring down), 67 
与 append 组 合 (combining with append), 68 
cons ++ (consing up), 68 
将 二 又 树 变换 到 (converting a binary tree toa), %3 
2.63 


变换 到 二 叉 树 (converting to a binary tree ) ， 练 习 2.64 
空 (empty )， 见 空 表 (empty list) 
的 相等 (equality of), ， 练 习 2.54 
带头 单元 的 (headed), 183, Mriz156 
的 最 后 序 对 (last pair of), ， 练 习 2.17 
情 性 (lazy), 283~286 
的 长 度 (length of), 68 
与 表 结 构 (list structure vs.), $ jz74 
Flcar, cdr 和 cons 操 作 (manipulation with car, 
cdr, andcons), 66 
映射 (mapping over), 70~72 
的 第 ”个 元 素 (nth element of), 67 
上 的 操作 (operations on), 67~70 
的 打印 表示 (printed representation of ) 66 
引号 (quotation of) 97 - 
翻转 (reversing), #92.18 
操作 技术 (techniques for manipulating ), 67~70 
表达 式 (expression), 3 2 复合 表 达 式 (compound exp- 
ression) ， 基 本 表达 式 (primitive expression) 
代数 (algebraic ) ， 见 代数 表达 式 (algebraic expr- 
essions ) 
自 求 值 (self-evaluating )，252 
符号 (symbolic )，55 另 见 符号 (symbol) 
表达 式 风 格 (expression-oriented programming)， 脚 注 161 
表达 式 求 值 的 顺序 (order of subexpression evaluation )， 
见 求 值 顺序 (order of evaluation ) 
表达 式 序 列 (sequence of expressions ) 
在 cond 的 推论 部 分 (in consequent of conG)， 有 和 脚注 19 
过 程 体 里 (in procedure body), #iz14 
表格 (table), 183~188 
的 骨架 (backbone of), 184 
为 强制 (for coercion), 133 
用 于 数据 导向 的 程序 设计 (for data-directed progr- 
amming), 123 
局 部 (local), 186~187 
n 维 (n-dimensional), #& 93.25 
一 维 (one-dimensional ), 184~185 
操作 和 类 型 (operation-and-type)， 见 操作 和 类 型 表格 
(operation-and-type table ) 
用 二 叉 树 表 示 与 用 未 排序 表 表 示 (represented as binary 
tree vs. unordered list) ， 练 习 3.26 
检测 键 值 相等 (testing equality of keys), 练习 3.24 
两 维 (two-dimensional), 185 
用 于 模拟 的 待 处理 表 (used in simulation agenda), 
195 
用 于 保存 计算 出 的 值 (used to store computed values )， 
练习 3.27 
表 结 构 (list structure), 57 
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与 表 (list vs.), #eiz136 
变动 的 (mutable), 173~176 
用 向 量 表 示 (represented using vectors) , 375~378 
表 结 构 存 储 器 (list-structured memory), 374~383 
¥/eteid (end-of-list marker ) ， 著 注 74 Biz76 
表 里 的 循环 (cycle in list)， 练 习 3.13 
检查 (detecting ) ， 练 习 3.18 
表 列 (tableau), 234 
RI (tabulation), Miz34, # 93.27 
表 求 值 的 尾 递归 (evils tail recursion), # 1z308 
别名 (aliasing), #riz138 
并 发 性 (concurrency ), 206~220 
并 发 程序 的 正确 性 (correctness of concurrent progr- 
ams) ，209~210 
死 锁 (deadlock), 218~219 
和 销 数 式 程序 设计 (functional programming and), 
247 
控制 机 制 (mechanisms for controlling), 210~219 
并 行 性 (parallelism ) ， 见 并 发 (concurrency ) 
捕获 了 自由 变量 (capturing a free variable), 19 
不 动 点 (fixed point), 45~48 
用 计算 器 计算 (computing with calculator), $##jz57 
Az (of cosine), 46 
立方 根 作为 (cube root as), 49 
四 次 方 根 作为 (fourth root as), 练习 1.45 
黄金 分 割 作为 (golden ratio as) ， 练 习 1.35 
作为 迭代 改进 (as iterative improvement), ， 练 习 1.46 
在 牛顿 落 里 (in Newton’s method), 49 
7 次 方 根 作为 (nth root as)， 练 习 1.45 
平方 根 作 为 (square root as), 46, 49, 50 
变换 函数 的 (of transformed function), 50 
合 一 和 (unification and), W iz 284 
不 可 计算 (non-computable), Hp jz 227 
参数 传递 (argument passing), VIR BR AB (call- 
by-name argument passing) ; 按 需 参数 传递 (call-by- 
need argument passing ) 
操作 (operation ) 
跨 类 型 (cross-type ) 132 
通用 型 (generic), 55 
在 寄存 器 机 器 里 (in register machine ), 344~345 
操作 ， 寄 存 器 机 器 (operation in register machine), 372 
操作 一 类 型 表格 (operation-and-type table), 123 
所 需 的 赋值 (assignment needed for), #yiz130 
实现 (implementing) 187 
W (thunk), 278~279 
按 名 调用 (call-by-name), #iż186 
按 需 调 用 (call-by-need), 712186 
强迫 求 值 (forcing) 278 


实现 (implementation of), 281~282 
名 字 的 由 来 (origin of name), #2238 
层次 性 结构 (hierarchical structures), 6, 72~75 
查询 (query), 306, 3 R MAA if} (simple query ) ， 复 
合 查询 (compound query) 
查询 解释 器 (query interpreter) , 306 
加 入 规则 或 断言 (adding rule or assertion), 320 
复合 查询 (compound query ) ， 见 复合 查询 (compound 
query ) 
数据 库 (data base) , 333~335 
驱动 循环 (driver loop), 320, 325~326 
环境 结构 (environment structure in), % 34.79 
框架 (frame), 315, 338 
改进 (improvements to), #34.67, #394.76, #3 
4.77 
无 穷 循环 (infinite loops) , 322, 4 94.67 
实例 化 (instantiation), 325 
与 Lisp 解 释 器 (Lisp interpreter vs.) , 319, 320, %3 
4.79 
概述 (overview), 315~320 
模式 匹配 (pattern matching) , 315, 328~329 
模式 变量 表示 (pattern-variable representation ) 325, 
336~337 
Snot 和 lisp-value 有 关 的 问题 (problems with 
not and lisp-value) ，321~322， 练 习 4.77 
查询 求 值 器 (query evaluator) , 320, 326~328 
规则 (rmule)， 见 规则 (rule) 
简单 查询 (simple query), 308~309 
PPE (stream operations), 335 
框架 流 (streams of frames), 315, #72278 
查询 语言 的 语法 (syntax of query language), 336~337 
&— (unification), 318 
查询 语言 (query language), 306~314 
抽象 (abstraction in), 311 
复合 查询 (compound query), 310~311 
数据 库 (data base), 306~308 
SW (equality testing in), #iz268 
扩充 (extensions to), 94.66, % 94.75 
逻辑 推理 (logical deductions), 313~314 
与 数理 逻辑 (mathematical logic vs.) , 321~324 
规则 (rule), 311~314 
简单 查询 (simple query), 308~309 
长 庚 星 (evening star), R&B (Venus) 
常规 的 数 (在 通用 型 算术 系统 里 ) (ordinary numbers. 
(in generic arithmetic system ) ) 129 
抄录 (snarf )， 脚 注 235 
超 类 型 (supertype), 135 
多 个 (multiple), 135 
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成 功 继续 ( 非 确定 性 求 值 器 ) (success continuation 
(nondeterministic evaluator ) ) 296~297 
程序 (program), | 
作为 抽象 机 器 (as abstract machine), 266 
注释 (comments in)， 和 脚注 87 
作为 数据 (as data), 266~268 
的 递增 开发 (incremental development of) , 6 
的 结构 (structure of), 6, 17, 19~20, 3 ® phe BE 
障 (abstraction barriers ) 
#4 + Bre (structured with subroutines), Miz 
223 
程序 错误 (bug), 1 
捕获 了 自由 变量 (capturing a free variable), 19 
赋值 的 顺序 (order of assignments), 161 
别名 的 副作用 (side effect with aliasing ), Miz 138 
程序 的 递增 开发 (incremental development of programs ) , 
5 
程序 的 正确 性 (correctness of a program), Miz 20 
程序 计数 器 (program counter), 362 
程序 设计 (programming) 
数据 导向 的 (data-directed ) ， 见 数据 导向 的 程序 设计 
(data-directed programming ) 
命令 驱动 的 (demand-driven ) 224 
的 要 素 (elements of), 3 
函数 式 (functional)， 见 函数 式 程序 设计 (functional 
programming ) 
命令 式 (imperative) , 160 
AY THAD AS (odious style), #72187 
程序 设计 语言 (programming language), 1 
的 设计 (design of), 276 
函数 式 (functional), 247 
逻辑 (logic), 306 
面向 对 象 (object-oriented), My iz 118 
强 类 型 (strongly typed), W i4200 
其 高 级 (very high-level), #j220 
抽象 (abstraction ) ， 另 见 抽象 手段 (means of abstracti- 
on) ， 数 据 抽象 (data abstraction) ， 高 阶 过 程 (hig- 
herorder procedures ) 
公共 模式 和 (common pattern and), 38 
元 语言 (metalinguistic), 250 
过 程 性 的 (procedural), 17 
寄存 器 机 器 设计 里 (in register-machine design), 
348~351 
非 确定 性 程序 设计 里 搜索 的 (of search in nondetermi- 
nistic programming ) ，290 
抽象 的 方法 (means of abstraction), 3 
define, 5 
抽象 屏障 (abstraction barriers), 54, 58~60, 115 
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复数 系统 里 (in complex-number system), 116 
通用 算术 系统 里 (in generic arithmetic system), 128 
抽象 数据 (abstract data )，55 ， 另 见 数据 抽象 (data abs- 
traction ) 
抽象 语法 (abstract syntax ) 
元 循环 求 值 器 里 (in metacircular evaluator), 252 
查询 解释 器 里 (in query interpreter), 325 
稠密 多 项 式 (dense polynomial), 142 
申 (string), LF (character string ) 
串 行 化 器 (serializer), 211~213 
实现 (implementing), 216~218 
带 有 多 项 共享 资源 (with multiple shared resources ) ， 
214~216 
《创世纪 》Genesis ， 练 习 4.63 
词法 地 址 (lexical addressing ) 422~424 
词法 作用 域 (lexical scoping), 20 
环境 结构 和 (environment structure and ) ，422 
存储 器 (memory) 
在 (in) 1964, #yiz249 
表 结 构 的 (list-structured), 374~383 
错误 处 理 (error handling ) 
在 编译 代码 里 (in compiled code), #32337 
在 显 式 控制 求 值 器 里 (in explicit-control evaluator), 
393, #35.30 
打印 ， 基 本 操作 (printing, primitives for), #jz70 
大 数 (bignum), 376 
代码 生成 器 (code generator ) ，399 
的 参数 (arguments of), 400 
的 值 (value of ) ，400 
代数 ， 符 号 (algebra, symboilic)， 见 符号 代数 (symbolic 
algebra ) 
代数 表达 式 (algebraic expression ) 138 
求 导 (differentiating ) ，99~103 
表示 (representing), 100~103 
化 简 (simplifying), 101~102 
带 标 志 数 据 (tagged data), 119~122, ÆW ił292 
带 点 尾部 记 法 (dotted-tail notation) 
过 程 参 数 (for procedure Parameters ) ， 练 习 2.20， 脚 
注 113 
在 查询 模式 里 (in query pattern), 309, 329 
在 查询 语言 规则 里 (in query-language rule), 313 
read 和 (and), 329 
带 类 型 的 指针 (typed pointer), 375 
带头 表 头 单元 的 表 (headed list)，184， 脚 注 156 
待 处 理 表 (agenda )， 见 数字 电路 模拟 (digital-circuit 
simulation ) 
单 变 元 多 项 式 (univariate polynomial), 138 
单位 正方 形 (unit square), 91 
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AT, EPEKA E (cell, in serializer implementa- 
tion), 217 
当前 时 间 ， 对 于 待 处 理 表 (current time, for simulation 
agenda) ，196 
WR, MEAK (Earth, measuring circumference of), 
脚注 188 
地 址 (address), 374 
地 址 算术 (address arithmetic ) ，374 
递归 (recursion), 6 
数据 导向 的 (data-directed), 141 
表达 复杂 的 计算 过 程 (expressing complicated process), 6 
在 规则 里 (in rules), 312 
对 树 工作 (in working with trees), 72 
递归 方程 (recursion equations) , 2 
递归 过 程 (recursive procedure ) 
递归 的 过 程 定 义 (recursive procedure definition), 17 
与 递归 的 计算 过 程 recursive process vs., 23 
不 用 define 描 述 (specifying without define), % 
习 4.21 
递归 计算 过 程 (recursive process), 23 
和 和 迭代 计算 过 程 (iterative process vs.), 20~24, %3 
3.9 ，354， 练 习 $.34 
线性 (linear), 22, 28 
与 递归 过 程 (recursive procedure vs.), 23 
寄存 器 机 器 (register machine for), 354~358 
树 (tree), 24~27 
递归 论 (recursion theory), 44224 
点 ， 用 序 对 表示 (point, represented as a pair), ， 练 习 2.2 
电路 (circuit ) 
数字 的 (digital ) ， 兄 数字 电路 模拟 (digital-circuit 
simulation ) 
用 流 模拟 (modeled with streams), ， 练 习 3.73 ， 练 习 
3.80 
电子 线路 Mkt (electrical circuits, modeled with 
streams ) ， 练 习 3.73 ， 练 习 3.80 
电阻 (resistance ) . 
电阻 器 并 联 公式 (formula for parallel resistors), 62, 
64 ， 
电阻 器 的 误差 (tolerance of resistors) 62 
SKK Act (iterative improvement) ， 练 习 1.46 
迭代 过 程 (iterative process ), 22 
作为 流 过 程 (as a stream process) , 232~235 
算法 设计 (design of algorithm), ， 练 习 1.16 
通过 过 程 调 用 实现 (implemented by procedure call), 
15~16，23 ，391 ， 另 见 尾 递归 (tail recursion) 
线性 (linear), 22, 28 
与 递归 过 程 (recursive process vs.), 21~24, 433.9, 
354, #95.34 


寄存 器 机 器 (register machine for), 354 
迭代 计算 过 程 的 不 变量 (invariant quantity of an iterative 
process ) ， 练习 1.16 
选 代 结构 (iteration contructs )， 见 循环 结构 (looping 
constructs ) 
定 长 编码 (fixed-length code), 110 
定 积分 (definite integral) 39 
用 蒙特 卡 罗 模 拟 估 计 (estimated with Monte Carlo 
simulation), % 33.5, #33.82 
定理 证 明 ， 自 动 (theorem proving, automatic), #piz 
262 
Æ X (definition), define, HÆ X (internal defi- 
nition) 
丢 番 图 的 算术 (Diophantus’s Arithmetic), ROW 
本 (Fermat's copy of), #eiz45 
动作 ， 寄存器 机 器 里 (actions, in register machine), 
348 
有 逗号, 与 反 引 号 一 起 使 用 (comma, used with backquote) , 
脚注 321 
读 和 人 器 宏 字 符 (reader macro character), My {#285 
读 入 ~-- 求 值 -打印 循环 (read-eval-print loop), 5, 4% 2% 
驱动 循环 (driver loop) 
斯 点 (breakpoint), # 95.19 
B (assertion), 307 
fast (implicit), 312 
堆栈 (stack), i230 
框架 的 (framed), #32306 
在 寄存 器 机 器 里 做 递归 (for recursion in register mac- 
hine ), 354~358 
表示 (representing ), 361, 377 
堆栈 分 配 和 尾 递 归 (stack allocation and tail recursion) , 
脚注 325 
队列 (queue), 180~183 
双 端 (double-ended), # 33.23 
首部 (front of), 180 
操作 (operations on), 181 
的 过 程 实 现 (procedural implementation of), * 3 
3.22 
尾部 (rear of), 180 
模拟 待 处 理 表 (in simulation agenda) * 196 
对 Scheme 的 显 式 控制 求 值 跨 (explicit-control evaluator 
for Scheme), 383~397 
赋值 (assignments), 392 
组 合式 (combinations) , 385~388 
复合 过 程 (compound procedures ) 388 
条 件 (conditionals), 391 
控制 器 (controller), 384~394 


数据 通路 (data paths) ，383 
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定义 (definitions ) ，392 
派生 表达 式 (derived expressions), ， 练 习 23 
驱动 循环 (driver loop), 393 
错误 处 理 (error handling), 393, # 95.30 
没有 需要 求 值 的 子 表 达 式 的 表达 式 (expressions with 
no subexpressions to evaluate) , 384~385 
作为 机 器 语言 程序 (as machine-language program), 397 
机 器 模型 (machine model), 394 
为 编译 代码 而 做 的 修改 (modified for compiled code )， 
425~426 
监视 执行 情况 (堆栈 使 用 ) (monitoring performance 
(stack use) ) 395~396 
正则 序 求 值 (normal-order evaluation), 4 95.25 
运算 对 象 求 值 (operand evaluation) , 386~387 
操作 (operations), 383 
优化 (附加) (optimizations (additional)), 95.32 
基本 过 程 (primitive procedures), 388 
过 程 应 用 (procedure application), 385~388 
寄存 器 (registers), 383 
运行 (running), 393~395 
表达 式 序列 (sequences of expressions ), 388~391 
特殊 形式 (附加 ) (special forms (additional)), 练习 
5.23, 4 35.24 
堆栈 使 用 (stack usage), 385 
æa (tail recursion), 389~391 
作为 通用 机 器 (as universal machine), 397 
对 数 型 增长 (logarithmic growth), 29, 30, riz 104 
对 象 (object ) 149 
用 对 象 模 拟 的 优势 (benefits of modeling with), 154 
有 随时 间 变 化 的 状态 (with time-varying state), 150 
对 象 表 (obarray ) 376 
多 项 式 (polynomial ) ，138~147 
规范 形式 (canonical form), 144 
MÆ (dense), 142 
用 Horner 规 则 求 值 (evaluating with Horner’s rule) ， 
练习 2.34 
类 型 的 层次 结构 (hierarchy of types), 143 
未 定 元 (indeterminate of )，138 
稀 醉 (sparse), 142 
单 变量 (univariate), 138 
项 表 (term list of polynomial), 139 
多 项 式 算 术 (polynomial arithmetic), 138~147 
加 法 (addition), 139 
除法 (division ) ， 练 习 2.91 
欧 几 里 得 算法 (Euclid’s Algorithm), #32126 
最 大 公 因 子 (greatest common divisor )，145， 牌 注 128 
与 通用 算术 系统 结合 (interfaced to generic arithmetic 
system), 139 


乘法 (multiplication), 139 
GCD 的 概率 算法 (probabilistic algorithm for GCD ), $ 
72128 
有 理沙 数 (rational functions), 144 
减法 (subtraction), # 92.88 
情 性 表 (lazy list), 284~286 
情 性 求 值 器 (lazy evaluator), 276~284 
情 性 树 (lazy tree), By iz245 
情 性 序 对 (lazy pair) , 284~286 
俄罗斯 农民 的 乘法 方法 (Russian peasant method of 
multiplication), #i#40 
厄 拉 多 塞 (Eratosthenes), #riz 188 
atig Aik (sieve of Eratosthenes) ，227 
sieve, 227 
二 叉 树 (binary tree), 105 
平衡 (balanced), 106 
将 表 变 换 到 (converting a list toa), 4 392.64 
变换 到 表 (converting to alist), # 92.63 
Huffman 编码 (encoding), 109 
用 表 表 示 (represented with lists), 106 
将 集合 表示 为 (sets represented as), 105~109 
将 表格 构造 为 (table structured as), ， 练 习 3.26 
二 分 搜索 (binary search), 106 
二 进 制 数 加 法 (binary numbers, addition of), x, 加 法 器 
(adder) 
二 项 式 系 数 (binomial coefficients )， 脚 注 35 
反馈 循环 ， 用 流 模拟 (feedback loop, modeled with 
streams), 241 
反 门 (inverter), 189 
inverter, 191 
反 引 号 (backquote), {#321 
反正 切 (arctangent), #32110 
返回 多 个 值 (returning multiple values) ， 和 脚注 289 
方程 ， 求 解 (equation, solving ) ， 见 折 半 法 (half-interval 
method) ， 和 牛顿 法 (Newton’s method) , solve 
方程 的 根 (roots of equation), HAE (half-interval 
method) ， 牛顿 法 (Newton’s method) 
非 确定 性 ， 并 发 程序 的 行为 (nondeterminism, in behavior 
of concurrent programs ) ， 和 脚注 167 ， 脚 注 203 
非 确 定性 程序 (nondeterministic programs ) 
逻辑 谜 题 (logic puzzles), 290~291 
和 为 素数 的 数 对 (pairs with prime sums), 286 
分 析 自 然 语言 (parsing natural language) , 291~295 
毕 达 哥 拉 斯 三 元 组 . (Pythagorean triples), # 94.35, 
练习 4.36 ， 练 习 4.37 
非 确定 性 计算 的 程序 设计 (nondeterministic programming )， 
286 ， 练 习 4.41 ， 练 习 4.44 ， 练 习 4.78 
非 确 定性 计算 (nondeterministic computing) , 286~296 
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非 确定 性 求 值 器 (nondeterministic evaluator) , 296~304 
运算 对 象 的 求 值 顺序 (order of operand evaluation )， 
练习 4.46 ; 
非 确 定性 的 选择 点 (nondeterministic choice point), 288 
韭 严格 (non-strict), 277 
Sek BS 32% (Fibonacci numbers), ，24 ， 另 见 Eib 
欧 几 里 得 GCD 算 法 和 (Euclid’s GCD algorithm and), 32 
的 无 穷 流 (infinite stream of ) ， 见 Eibs 
废料 收集 (garbage collection ) ，378~383 
记忆 和 (memoization and), #7z241 
变动 和 (mutation and), #32145 
尾 递 归 和 (tail recursion and), #iz325 
废料 收集 器 (garbage collector ) 
紧缩 式 (compacting), #iz300 
标记 清扫 (mark-sweep), #3300 
停止 并 复制 (stop-and-copy) , 378~383 
费 马 (Fermat, Pierre de), Miz45 
费 马 小 定理 (Fermat’s Little Theorem), 34 
另 一 形式 (alternate form), # 9 1.28 
证 明 (proof), #1245 
57 Big tt (stratified design), 95 
分 隔 符 (separator code), 110 
45> (semicolon), #iz11 
引 和 人 注释 (comment introduced by), #7287 
分 号 的 癌症 (cancer of the semicolon), Miz 11 
R., ÆI? (decomposition of program into parts), 17 
分 派 (dispatching ) 
不 同 风格 的 比较 (comparing different styles), %3 
2.76 
基于 类 型 (on type) ，122 ， 另 见 数据 导向 的 程序 设计 
(data-directed programming ) 
分 情况 分 析 (case analysis) 
与 数据 导向 的 程序 设计 (data-directed programming 
vs.), 253 
一 般 的 (general ) ， 另 见 Cond 11 
分 两 种 情况 (with two cases, if), 12 
分 数 (fraction), 见 有 理 数 (rational number) 
分 析 型 求 值 器 (analyzing evaluator), 273~276 
作为 非 确定 性 求 值 器 的 基础 (as basis for nondeterm- 
inistic evaluator ) 296 
let ， 练 习 4.22 
分 析 自 然 语言 (parsing natural language), ，292~294 
真实 世界 的 自然 语言 理解 与 玩具 式 的 语法 分 析 (real 
language understanding vs. toy parser), #¥iz257 
封闭 世界 假设 (closed world assumption ) 323 
封装 (encapsulated), ¥7#132 
符号 (symbol), 96 
相等 (equality of), 98 


加 入 (interning), 376 
引号 (quotation of), 97 
表示 (representation of), 376. 
了 唯一 性 (uniqueness of ) ， 和 脚注 147 
符号 表达 式 (symbolic expression), 55, 3 L8 
(symbol ) 
符号 代数 (symbolic algebra) ，138~147 
符号 微分 (symbolic differentiation), 99~102 
负 号 Wals 
复合 表达 式 (compound expression), 3~4% 见 组 合式 
(combination) ， 特殊 形式 (special form ) 
作为 组 合式 的 运算 符 (as operator of combination) , 
练习 1.4 
复合 查询 (compound query), 310~311 
处 理 (processing) , 316~318, 326~328, % 34.75, 
% 34.76, % 394.77 
复合 过 程 (compound procedure), ，8 ， 另 见 过 程 (proce- 
dure ) 
像 基本 过 程 一 样 用 (used like primitive procedure) , 
8~9 
复合 数据 (compound data), 53 
复数 (complex numbers ) 
极 坐 标 表 示 (polar representation ) ，116 
直角 坐标 表示 (rectangular representation), 117 
直角 坐标 与 极 坐 标 形式 (rectangular vs. polar form), 
117 
表示 为 带 标志 数据 (represented as tagged data), 
119~121 
复数 算术 (complex-number arithmetic) ，116 
与 通用 算术 系统 结合 (interfaced to generic arithmetic 
System ) ，129~131 
系统 的 结构 (structure of system), A2-21 
副作用 错误 (side-effect bug), W138 
MA (assignment), 149~154, 4% Rset! 
的 优势 (benefits of), 154~157 
与 之 有 关 的 错误 (bugs associated with), Miz 138, 
160~161 
的 代价 (costs of), 157~162 
赋值 运算 符 (assignment operator), 150, 3 Rset! 
概率 算法 (probabilistic algorithm), 34~35 , #jz128, 
脚注 188 
高 级 语言 ， 与 机 器 语言 (high-level language, machine 
language vs.), 249 
高 阶 过 程 (higher-order procedures), 37 
元 循环 求 值 器 里 (in metacircular evaluator ) ，209 
过 程 作为 参数 (procedure as argument) ，37~40 
过 程 作为 通用 方法 (procedure as general method ) ， 
44~48 
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过 程 作 为 返回 值 (procedure as returned value), 
48~52 
强 类 型 和 (strong typing and), #yjz200 
格式 化 输入 表达 式 (formatting input expressions), Piz 
6 
工程 与 数学 (engineering vs. mathematics) ， 脚 注 47 
功能 块 ， 数 字 电 路 里 (function box, in digital circuit)， 
189 
共享 数据 (shared data), 177~178 
共享 状态 (shared state) , 209 
共享 资源 (shared resources), 214~216 
构造 函数 (constructor), 55 
作为 抽象 屏障 (as abstraction barrier), 59 
故障 (glitch), 1 
关系 ， 基 于 关系 的 计算 (relations, computing in terms 
of), 198, 305 
归并 无 穷 流 (merging infinite streams), BEA W 
(infinite stream ) 
归结 原理 ，Horn 子 旬 (resolution, Horn-clause), #4 
262 
归 约 到 最 低 项 (reducing to lowest terms), 58~59, 
146~147 
规范 形式 ， 多 项 式 (canonical form, for polynomials) , 
144 
规则 (查询 语言 ) (rule (query language )), 311~314 
应 用 (applying), ，319~320 ，329-~330 ， 练 习 4.79 
没有 体 (without body), #:#270, 313, 328 
amA /\ SIG RB (chess, eight-queens puzzle), # 
3242, #59444 
过 程 (procedure), 3 
匿名 (anonymous), 41 
任意 数目 的 参数 (arbitrary number of arguments), 4, 
练习 2.20 
作为 实际 参数 (as argument), 37~40 
作为 黑箱 (as black box )，17 
体 (body of), 8 
复合 (compound), 8 
用 define 构 造 (creating with define), 8 
用 lambda 构 造 (creating with lambda), 41, 162, 
164 
作为 数据 (as data), 3 
% (definition of), 8~9 
在 Lisp 里 为 一 级 (first-class in Lisp), 51 
形式 参数 (formal parameters of) ，8 
作为 通用 方法 (as general method ) . 44~48 
通用 型 (generic), 113, 116 
高 阶 (higher-order )， 见 高 阶 过 程 (higher-order proc- 
edure ) 
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体内 隐 含 的 begin (implicit begin in body of), # 
32131 
与 数学 函数 (mathematical function vs.), 13~14 
记忆 性 (memoized ) ， 练 习 3.27 
带 监视 的 (monitored), 练习 3.2 
名 字 (name of )，8 
命名 (用 define) (naming (with define)), 8 
作为 局 部 求 值 过 程 的 模式 (as pattern for local evolu- 
tion of a process ), 20 
作为 返回 值 (as returned value), 48~52 
返回 多 个 值 (returning multiple values), #12289 
形式 参数 的 作用 域 (scope of formal parameters), 19 
与 特殊 形式 (special form vs.), 4.94.26, 284 
过 程 抽象 (procedural abstraction) , 17 
过 程 的 局 部 演化 (local evolution of a process), 20 
过 程 体 (body of a procedure), 8 
过 程 应 用 (procedure application ) 
组 合式 的 表示 (combination denoting), 4 
的 环境 模型 (environment model of), 165~167 
代 换 模型 (substitution model of ) ， 见 过 程 应 用 的 代 换 
模型 (substitution model of procedure application ) 
过 程 应 用 的 代 换 模型 (substitution model of procedure 
application), 9~11, 162 
不 合适 (inadequacy of), 157~158 
计算 过 程 的 形状 (shape of process), 21~23 
过 零点 ， 信 和 号 (zero crossings of a signal), 493.74, 
练习 3.75， 练 习 3.76 
tue (filter), 491.33, 77 
函数 (数学 的 ) (function (mathematical) ) 
-> ip} (notation for) ， 脚 注 58 
阿 克 曼 (Ackermann’s), 练习 1.10 
复合 (composition of), ， 练习 1.42 
的 导数 (derivative of ) ，49 
的 不 动 点 (fixed point of), 45~47 
过 程 与 (procedure vs.), 13~14 
有 理 数 (Iational) 144~147 
的 反复 应 用 (repeated application of ) ， 练 习 1.43 
HEM (smoothing of), 练习 1.44 
函数 的 导数 (derivative of a function), 49 
函数 的 复合 (composition of functions), $ 9 1.42 
函数 式 程序 设计 (functional programming) , 157, 
245~248 
并 发 和 (concurrency and) , 247 
函数 式 程 序 设 计 语 言 (functional programming lang- 
uages ), 247 
时 间 和 (time and), 246~248 
合 一 (Unification)，318~319 
算法 的 发 现 (discovery of algorithm), iz 262 
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实现 (implementation ) 331~332 
与 模式 匹配 (pattern matching vs.), 319, W277 
盒子 和 指针 表示 方式 (box-and-pointer notation ) ，65 
表 尾 标记 (end-of-list marker), i274, Beik76 
赫 拉克 立 特 (Heraclitus), 149 
黑箱 (black box), 17 
红 黑 树 (red-black tree), Mp iz 106 
£ (macro)， 脚 注 217 ， 另 见 读 和 人 器 宏 字 符 (reader macro 
character ) 
AJR (mutual exclusion), My 7z172 
Bs (mutex), 216 
互 素 (relatively prime), # 91.33 
化 简 代 数 表达 式 (simplification of algebraic expressions ) , 
101 
画家 (painter), 86 
高 阶 操作 (higher-order operations ), 90 
操作 (operations), 88 
表示 为 过 程 (represented as procedures ), 93 
变换 和 组 合 (transforming and combining) , 94 
环境 (environment), 5, 162 
编译 时 (compile-time )， 见 编译 时 环境 (compile-time 
environment ) 
作为 求 值 的 上 下 文 (as context for evaluation ) 6 
外 围 的 (enclosing )，162 
全 局 的 (global ) ， 见 全 局 环境 (global environment ) 
词法 作用 域 和 (lexical scoping and )， 有 和 脚注 27 
查询 解释 器 里 (in query interpreter)， 练 习 4.79 
重 命名 和 (renaming Vs. ) ， 练 习 4.79 
缓存 一 致 性 规程 (cache-coherence protocols), #eiz164 
黄金 分 割 (golden ratio), 25 
作为 连 分 数 (as continued fraction) ， 练 习 1.37 
作为 不 动 点 (as fixed point) ， 练 习 1.35 
回潮 (backtracking), ，289 ， 另 见 非 确定 性 计算 (nonde- 
terministic computing ) 
汇编 程序 (assembler), 360, 364~366 
话 动 体 (mobile), # 32.29 
或 门 (or-gate ) 189 
or-gate, #393.28, # 33.29 
获取 互 斥 元 (acquire a mutex), 216 
机 器 语言 (machine language), 397 
与 高 级 语言 (high-level language vs.), 249 
积分 (integral), 3 8 定 积分 (definite integral) , 蒙特 
卡 罗 积 分 (Monte Carlo integration) ， 练 习 3.59 
震级 数 的 (of a power series ) 
积分 器 ， 信 号 的 (integrator, for signals), 239 
基本 表达 形式 (primitive expression), 3 
求 值 (evaluation of), 6 
基本 过 程 名 (name of primitive procedure ), 3 


变量 名 (name of variable), 5 
% (number), 3 
基本 查询 (primitive query) ， 见 简单 查询 (simple query ) 
基本 过 程 (标记 ns 的 不 属于 IEEE Scheme 标准 ) 


(Primitive procedures ) 


>, H 

apply, W113 

atan, W110 

car, 57 

cdr, 57 

cons, 57 

cos, 46 

display, My j70 

eq?, 98 

error (ns), 脚注 56 

eval (ns), 268 

list, 66 

log, #3 1.36 

max, 63 

min, 63 

newline, #270 

not, /2 

null?, 68 

number?, 100 

pair?, 73 

quotient, # 33.58 

random (ns), 34, W136 

read, iz222 

remainder , 30 

round, M#iz119 

runtime (ns), % 31.22 

set-car!, 173 

set-cdr!, 173 

sin, 46 

symbol?, 100 

vector-ref , 374 

vector-set! , 374 
基本 过 程 的 开放 代码 (open coding of primitives), 2 9 

5.38 ， 练 习 5.44 

基本 约束 (primitive constraints ) 198 
级 联 进位 加 法 器 (ripple-carry adder) ， 练 习 3.30 
级 数 ， 求 和 (series, summation of), 38 
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JAC) Mk FEY] (accelerating sequence of approxi- 
mations), 234 
流 (with streams), 233 
集成 电路 实现 Scheme (integrated-circuit implemen- 
tation of Scheme) , 383, 5-16 
集合 (set), 103 
数据 库 作 为 (data base as), 109 
的 操作 (operations on), 103 
的 排列 (permutations of ), 83 
表示 为 二 叉 树 (represented as binary tree), 105~108 
表示 为 排序 表 (represented as ordered list), 104~105 
表示 为 无 序 表 (represented as unordered list), 
102~103 
子 集 (Subsets of), 4.92.32 
集合 的 subsets (of a set) ， 练 习 2.32 
集合 的 排列 (permutations of a set), 83 
permutations, 84 
集合 的 表示 ，103~109 
集合 作为 未 排序 的 表 (unordered-list representation of 
sets), 103~104 
集合 作为 排序 的 表 (ordered-list representation of sets), 
104~105 
计算 过 程 ， 进 程 (process), 1 
TRIGA (iterative), 22 
线性 迭代 的 (linear iterative), 22 
线性 递 妇 的 (linear recursive), 22 
的 局 部 演化 (local evolution of ) 20 
增长 的 阶 (order of growth of), 28 
递归 的 (recursive), 22 
所 需 资 源 (resources required by) ，28 
的 形状 (shape of), 22 
树 形 递归 的 (tree-recursive), 24~27 
计算 机 科学 (computer science ), W :4223, 250 
与 数学 (mathematics vs.), 14, 304~305 
计算 器 ， 不 动 点 (calculator, fixed points with) , 257 
记录 ， 在 数据 库 里 (record, ，in a data base), 109 
记忆 (memoization), W234, 93.27 ` 
和 按 需 调用 (call-by-need and), Bp jz192 
用 delay, 225 
和 废料 收集 (garbage collection and), $ ił241 
槽 的 《of thunks), 278 
继续 (continuation ) 
非 确 定性 求 值 器 里 (in nondeterministic evaluator) , 
296~297 ， 另 见 失 败 继续 ， 成 功 继续 
寄存 器 机 器 模拟 器 里 (in register-machine simulator ), 
脚注 289 
寄存 器 (register), 343 
表示 (representing), 361 


追踪 (tracing), #95.18 
寄存 器 (被 修改 的 ) (modified registers), 9.494 FFI 
(instruction sequence ) 
寄存 器 列表 ， 模 拟 器 里 (register table, in simulator), 362 
寄存 器 机 器 (register machine), 343 
动作 (actions), 348 
控制 器 《controller) , 344 
控制 器 图 (controller diagram) , 345 
数据 通路 (data paths), 344 
数据 通路 图 (data-path diagram), 344 
设计 (design of), 344~359 
检测 操作 ，344 
描述 语言 (language for describing ) 345~348 
监视 执行 (monitoring performance), 372~373 
模拟 器 (simulator) ，359~373 
堆栈 (stack), 354~358 
子 程序 (subroutine), 351~354 
检测 操作 (test operation), 344 
寄存 器 机 器 上 的 initialize-stack 操 作 (operation in 
register machine )，361 , 371 


寄存 器 机 器 语言 (register-machine language ) 


assign, 347, 359 
branch, 346, 359 
const, 347, 358, 359 
人 和 人口 点 (entry point), 346 
goto, 346, 359° 

指令 (instructions), 346, 358 
标号 (label), 346 
label, 346, 359 

op, 347, 359 
perform, 348, 359 
reg, 347, 358 
restore, 355, 359 
save, 355, 359 

test, 346, 359 


加 法 器 (adder) 


全 (full), 190 
半 (half), 189 
级 联 进位 (ripple-carry ) 93.30 


加 入 符号 (interning symbols), 376 
加 州 大 学 伯克利 分 校 (University of California at Berkeley ) , 


脚注 2 
假 (false), W17 
假 言 推理 (modus ponens), ， 和 脚注 279 
检测 零 ( 通用 型 ) (zero test (generic) ) ， 练 习 2.80 
对 多 项 式 (for polynomials), 4 32.87 
简单 查询 (simple query ) ，308~309 
处 理 (processing) ，316，320，326 
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建 模 (modeling ) 
作为 一 种 设计 策略 (as a design strategy), 149 
在 科学 与 工程 里 (in science and engineering), 10 
键 值 (key ) l 
数据 库 里 (in a data base), 109 
表格 里 (inatable), 183 
检测 相等 (testing equality of ) ， 练 习 3.24 
将 Scheme 编译 到 (compiling Scheme into), # 95.52 
错误 处 理 (error handling), #4317, #912337 
递归 过 程 (recursive procedures), 23 
对 复合 数据 的 限制 (restrictions on compound data), 
脚注 73 
写 出 的 Scheme 解释 器 (Scheme interpreter written in), 
练习 5.51， 练 习 5.52 
将 输入 表达 式 分 类 (typing input expressions )， 脚 注 6 
阶乘 (factorial ) ，21 ， 另 见 Eactorial 
无 穷 流 (infinite stream), 4 33.54 
用 (with) letrec, % 34.20 
不 用 (without) letrec 或 者 define， 练 习 4.21 
阶 的 记 法 (order notation), 28 
结 点 ， 树 (node of a tree), 6 
截断 误差 (truncation error)， 脚 注 4 
解释 器 (interpreter) ,2， 另 见 求 值 器 (evaluator) 
与 编译 器 (compiler vs. ) ，397~398 ，428 
读 入 一 求 值 -打印 循环 (read-eval-print loop), 5 
4& HB (Venus), #iz98 
紧缩 型 废料 收集 器 (compacting garbage collector), # 
注 300 
局 部 变量 (local variable), 42~44 
局 部 名 (local name), 18~19 
局 部 状态 (local state), 149~162 
在 框架 里 维护 (maintained in frames), 167~171 
局 部 状态 变量 (local state variable) ，150~154 
矩形 的 表示 (rectangle, representing )， 练 习 2.3 
矩阵， 用 序列 表示 (matrix, represented as sequence), 
练习 2.37 
具体 数据 表示 (concrete data representation), 55 
绝对 值 (absolute value), 11 
卡尔 ， 阿 尔 芬 斯 (Karr, Alphonse), 149 
开 普 勒 (Kepler, Johannes), 343 
可 计算 性 (computability), #iz223, eiz227 
可 加 性 (additivity ) ，122~127 ，130 
空 表 (empty list) ，67 
FA’O 表示 (denoted as '()), 97 
用 nul1? 辨 别 (recognizing with null?) , 68 
控制 结构 (control structure), 321 
跨 类 型 操作 (cross-type operations), 132 
块 结构 (block structure ) 20 


环境 模型 里 (in environment model), 170 
查询 语言 里 (in query language )， 练 习 4.79 
框架 (查询 解释 器 ) (frame (query interpreter)), 315, 3 
见 模 式 匹配 (pattem matching) ， 合 一 (unification ) 
表示 (representation), 338 
框架 (环境 模型 ) (frame (environment model)), 162 
作为 局 部 状态 的 展台 (as repository of local state), 
167~170 
全 局 (global )，162 
框架 (图 形 语言 ) (frame (picture language)) 86, 91 
坐标 映射 (coordinate map) ，91 
框架 堆栈 方式 (framed-stack discipline), 4306 
扩散 的 模拟 (diffusion, simulation of ), 210 
括号 (parentheses) 
界定 组 合式 (delimiting combination ) ，4 
界定 cond 子 句 (delimiting cond clauses), 12 
在 过 程 定义 里 (in procedure definition) ，8 
拉 格 朗 日 插值 公式 (Lagrange interpolation formula) , 
脚注 121 
fije HK (Leibniz, Baron Gottfried Wilhelm von ) 
费 马 小 定理 的 证 明 (proof of Fermat’s Little Theorem) , 
脚注 45 
TARR (series forz), Biz49, 233 
莱 因 德 纸 草 书 (Rhind Papyrus), i240 
类 型 (type ) 
路 类 型 操作 (cross-type operations ) 132 
基于 类 型 分 派 (dispatching on), 122 
符号 代数 的 类 型 层次 结构 (hierarchy in symbolic 
algebra), 143 
的 层次 结构 (hierarchy of ) 143~144 
下 降 (lowering), 135, 392.85" 
多 个 子 类 型 和 超 类 型 (multiple subtype and supertype) , 
136 
提升 (raising ) ，135 ， 练 习 2.83 
子 类 型 (subtype), 135 
超 类 型 (supertype), 135 
塔 (tower of ) ， 图 2-25 
类 型 标志 (type tag ), 116, 119 
FAB (two-level), 131 
类 型 的 层次 结构 (hierarchy of types), 134~138 
在 符号 代数 里 (in symbolic algebra), 143~144 
不 合适 (inadequacy of ) 135 
类 型 塔 (tower of types), 2-25 
类 型 推导 机 制 (type-inferencing mechanism), {2200 
类 型 域 (type field )， 租 注 292 ` 
累积 器 (accumulator), 77, #393.1 
立方 根 (cube root) 
作为 不 动 点 (as fixed point), 49 
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用 牛顿 法 (by Newton’s method), %3 1.8 
粒子 的 世界 线 (world line of a particle), Beiz180, # 
注 201 
连 分 式 (continued fraction ) ， 练 习 1.37 
eff% (as )， 练 习 1.38 
黄金 分 割 作为 (golden ratio as ) ， 练 习 1.37 
正切 作为 (tangentas), #391.39 
连接 描述 符 (linkage descriptor), 400 
连接 符 , 在 约束 系统 里 (connector , in constraint system ) ， 
198 ; 
操作 (operations on), 200 
表示 (representing), 203 
8, ERS 电路 里 (wire, in digital circuit), 189 
连续 求 平方 (successive squaring), 30 
量子 力学 (quantum mechanics), W ;4204 
im (stream), 149 
和 延 时 求 值 (delayed evaluation and), 241~244 
zs (empty), 222 
实现 为 延 时 的 表 (implemented as delayed lists), 220 
~222 . ` 
实现 为 情 性 表 (implemented as lazy lists) , 284~285 
隐 起 定义 (implicit definition), 228~230 
无 穷 (infinite ) ， 见 无 穷 流 (infinite streams ) 
用 于 查询 解释 器 (used in query interpreter), 315, Æ 
32278 
流水 线 (pipelining), #7 iz 162 
逻辑 程序 设计 (logic programming), 304~306, 4% Liq) 
语言 (query language) ， 查 询 解释 器 (query inter- 
preter ) 
计算 机 (computers for), My iz265 
的 历史 (history of), Heiz262, #iz265 
逻辑 程序 设计 语言 (logic programming languages), 306 
与 数理 逻辑 (mathematical logic vs.) , 320~324 
逻辑 或 (logical or), 189 
逻辑 谜 题 (logic puzzles), 290~291 
We (logical and), 189 
马赛 大 学 (University of Marseille), Mp iz262 
满足 一 个 复合 查询 (satisfy a compound query), 310 
满足 一 个 模式 (简单 查询 ) (satisfy a pattern (simple 
query ) ) 309 
忙 等 待 (busy-waiting) , #34173 
枚 举 器 (enumerator), 77 
美观 打印 (pretty-printing), 4 
蒙特 卡 罗 积 分 (Monte Carlo integration ) ， 练 习 3.5 
流 形式 (stream formulation), ， 练 习 3.82 
蒙特 卡 罗 模 拟 (Monte Carlo simulation), 155 
流 形 式 (stream formulation), 245 


iki (puzzles ) 


/\ BJAR (cight-queens puzzle), 492.42, # 94.44 
逻辑 谜 题 (logic puzzles), 290~292 
密码 保护 的 账户 (password-protected bank account), % 
习 3.3 
密码 学 (cryptography ), i247 
BAR, LEAF (power series, as stream), 练习 3.59 
加 (adding), %3 3.60 
除 (dividing), 练习 3.62 
积分 (integrating )， 练 习 3.59 
乘 (multiplying), # 93.60 
面向 对 象 的 程序 设计 语言 (object-oriented programming 
languages), #12118 
名 字 (name )， 另 见 局 部 名 字 (local name) , Wik (var- 
iable) ， 局 部 变量 (local variable ) 
HA (encapsulated), #eiz 132 
形式 参数 的 (of a formal parameter), 18 
过 程 的 (of a procedure), 7 
名 字 里 的 叹 号 (exclamation point in names), #772130 
命令 式 程序 设计 (imperative programming ) 160 
命令 式 风 格 (imperative programming style) ， 脚 注 161 
命令 式 与 说 明 式 语言 (imperative vs. declarative know- 
ledge), 14, 304 
逻辑 程序 设计 和 (logic programming and), 305~306, 
321 
非 确定 性 计算 和 (nondeterministic computing and), 
脚注 246 
命名 (naming ) 
计算 对 象 的 (of computational objects ), 4 
过 程 的 (of procedures), 7 
命名 Let (特殊 形式 ，special form ) ， 练 习 4.8 
命名 约定 (naming conventions ) 
! 用 于 峰值 的 修改 (for assignment and mutation), 3 
注 130 
? 用 于 谓词 (for predicates )， 和 脚注 22 
Hin (modulo n), 34 
模 rn 的 余数 (remainder modulo n) , 34 
nag (congruent modulo n), 34 
模块 化 (modularity ), 79, 149 
沿 着 对 象 边 界 (along object boundaries), zł 144 
函数 式 程 序 与 对 象 (functional programs vs. objects), 
245~248 ` 
隐藏 原理 (hiding principle), $ ;ż132 
uòi (streams and), 232 
通过 基于 类 型 的 分 派 (through dispatching on type), 
122 
通过 无 穷 流 (through infinite streams), 246 
通过 为 对 象 建 模 (through modeling with objects ), 
154 


震 引 


Æ (simulation) 
电子 线路 (of digital circuit) ， 见 数字 电路 模拟 (digital- 
circuit simulation ) 
事件 驱动 的 (event-driven), 188 
作为 机 器 设计 的 工具 (as machine-design tool), 395 
监视 寄存 器 机 器 的 执行 (for monitoring performance 
of register machine ), 372 
蒙特 卡 罗 (Monte Carlo)， 见 蒙特 卡 罗 模 拟 (Monte 
Carlo simulation ) 
寄存 器 机 器 (of register machine), LET RILE 
拟 (register-machine simulator) 
模拟 计算 机 (analog computer), ， 图 3-34 
模式 (pattern) ，308~309 
模式 变量 (pattern variable), 308 
表示 (representation of), 325, 336~338 
模式 匹配 (pattern matching), 328 
实现 (implementation ) 328~329 
5S&— (unification vs.) , 319, #277 
魔术 师 (magician ) ， 见 数值 分 析 专 家 (numerical analyst ) 
莫 尔 斯 码 (Morse code), 110 
目标 代码 (object program), 400 
目标 寄存 器 (target register), 400 
内 部 定义 (internal definition), 19~20 
环境 模 型 里 (in environment model), 171~172 
的 自由 变量 (free variable in), 20 
let 5, 44 
非 确定 性 求 值 器 里 (in nondeterministic evaluator), 
脚注 261 
的 位 置 (position of) ， 脚 注 28 
的 限制 (restrictions on), 269 
扫描 出 (scanning out), 269 
名 字 的 作用 域 (scope of name), 269~270 
牛顿 法 (Newton’ethod ) 
用 于 立方 根 (for cube roots) ， 练 习 1.8 
用 于 微分 方程 (for differentiable functions ) ，49 
与 折 半 法 (half-interval method vs.) ， 和 脚注 62 
用 于 平方 根 (for square roots), 14~16, 49, 50 
拟 引 号 (quasiquote )， 脚 注 321 
欧 几 里 得 的 《几何 原理 》(Euclid's Elements) ， 脚 注 42 
欧 几 里 得 环 (Euclidean ring), #12126 
欧 几 里 得 算法 (Euclid’s Algorithm), 32, 344 
欧 几 里 得 有 关 素数 无 穷 多 的 证 明 (Euclid’s proof of infinite 
number of primes), ， 脚 注 191 
Betz (Euler, Leonhard) ， 练 习 1.38 
有 关 费 马 小 定理 的 证 明 (proof of Fermat’s Little The- 
orem ) ， 脚 注 45 
序列 加 速 器 (series accelerator), 233 
帕斯卡 (Pascal, Blaise )， 脚 注 35 
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帕斯卡 三 角形 (Pascal’s triangle), 571.12 
排除 错误 (debug), 1 
平方 根 (square root), 14~15, 5 sqrt 
JAER (stream of approximations ), 232 
平衡 的 活动 体 (balanced mobile), $% 32.29 
平衡 二 又 树 (balanced binary tree ) ， 另 见 二 叉 树 (binary 
tree) 
平滑 一 个 函数 (smoothing a function), $ 3 1.44 
平滑 一 个 信号 (smoothing a signal), #353.75, %3 
3.76 
平均 阻尼 (average damping), 47, #39 1.36 
屏障 同步 (barrier synchronization) ， 脚 注 177 
破碎 的 心 (broken heart), 380 
启明 星 (morning star)， 见 金星 (Venus) 
前 向 指针 (forwarding address) ，380 
前 组 表示 (prefix notation), 4 
与 中 组 表示 (infix notation vs.) , 4 92.58 
前 缀 码 (prefix code), 110 
在 入 的 语言 ， 语 言 设计 用 (embedded language, language 
l design using) , 276 
REE (nested definitions), RAM X (internal 
definition ) 
KER GT (nested mappings), ， 见 映射 (mapping) 
RE, 组 合式 (nested combinations), 4 
强健 (robustness), 96 
强 类 型 语言 (strongly typed language), #7z 200 
强迫 (force), 278 
强制 (coercion), 133~134 
在 代数 操作 里 (in algebraic manipulation) , 144 
在 多 项 式 算术 里 (in polynomial arithmetic), 141 
过 程 (procedure ), 133 
表格 (table), 133 
丘 奇 (Church, Alonzo), W453, $% 32.6 
丘 奇 数 (Church numerals), %3 2.6 
丘 奇 -图 灵 论 题 (Church-Turing thesis), {2223 
求 导 (differentiation ) 
iA (numerical), 49 
规则 (rules for), ，99 ， 练 习 2.56 
符号 的 (symbolic ) ，99~102 ， 练 习 2.73 
求 和 的 3 记 法 (sum (sigma) notation), 38 
求解 方程 (solving equation )， 见 折 半 法 (half-interval ` 
method) , 牛顿 法 (Newton’s method) , solve 
求 值 (evaluation ) 
应 用 序 (applicative-order), ， 见 应 用 序 求 值 (applicative- 
order evaluation ) 
延 时 (delayed)， 见 延 时 求 值 (delayed evaluation) 
的 环境 模型 (environment model of) ， 见 求 值 的 环境 


模型 (environment model of evaluation ) 
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模型 (models of) ，393 
正则 序 (normal-order )， 见 正则 序 求 值 (normal-order 
evaluation ) 
组 合式 的 (of a combination ) ，6~7 
and 的 (of and), 13 
cond 的 (of cond), /2 
iff} (of if), 12 
or 的 (ofor), 12 
基本 表达 式 的 (of primitive expressions), 6 
”特殊 形式 的 (of special forms), 7 
子 表 达 式 的 求 值 顺 序 (order of subexpression evaluation ) , 
ARÉ (order of evaluation ) 
的 代 换 模型 (substitution model of) ， 见 过 程 应 用 的 代 
换 模 型 (substitution model of procedure application ) 
求 值 的 环境 模型 (environment model of evaluation) , 
149, 162~172 
环境 结构 (environment structure), 3-1 
内 部 定义 (internal definitions), 171~172 
局 部 变量 (local state), 167~170 
消息 传递 (message passing), # 33.11 
元 循环 求 值 器 和 (metacircular evaluator and) , 251 
过 程 应 用 实例 (procedure-application example), 164 
~167 
求 值 规则 (rules for evaluation ), 163~164 
尾 递 归 和 (tail recursion and) , By iz142 
求 值 模型 (models of evaluation ) 393 
求 值 器 (evaluator ) ，250 ， 另 见解 释 器 (interpreter), Je 
循环 求 值 器 (metacircular evaluator) ， 分析 型 求 值 器 
(analyzing evaluator) ， 情 性 求 值 器 (lazy evaluator) ， 
非 确定 性 求 值 器 (nondet-erministic evaluator) ， 查 询 
求 值 器 (query interpreter) ， 显 式 控制 求 值 器 (explicit- 
control evaluator) 
作为 抽象 机 器 (as abstract machine), 267 
元 循环 (metacircular) , 251 
作为 通用 机 器 (as universal machine ), 268 
派生 表达 式 (derived expressions), 258~259 
加 入 显 式 控制 求 值 器 (adding to explicit-contro! evaluator ) , 
% 95.23 
求 值 顺序 (order of evaluation ) 
和 赋值 (assignment and) ， 练 习 3.8 
依赖 实现 (implementation-dependent), My 7z140 
编译 器 里 (incompiler), # 95.36 
显 式 控 制 求 值 器 里 (in explicit-control evaluator) , 
388 
元 循环 求 值 器 里 (in metacircular evaluator ) ， 练 习 4.1 
Scheme #, #33.8 
区 间 的 宽度 (width of an interval), % 92.9 
区 间 算 术 (interval arithmetic), 62~65 


驱动 循环 (driver loop) 
显 式 控制 求 值 器 里 (in explicit-control evaluator ), 
392 
情 性 求 值 器 里 (in lazy evaluator), 280 
元 循环 求 值 器 里 (in metacircular evaluator), 265 
非 确 定性 求 值 器 里 (in nondeterministic evaluator )， 
289，301 
查询 解释 器 里 (in query interpreter), 302, 324 
全 加 器 (full-adder), 190 
full~adder, 190 
全 局 环境 (global environment), 6, 162 
元 循环 求 值 器 里 (in metacircular evaluator), 264 
全 局 框架 (global frame), 162 
Sh (worm), #12337 
三 角 关 系 (trigonometric relations), 119 
扫描 出 内 部 定义 (scanning out internal definitions), 270 
在 编译 器 里 (incompiler), #772331, 2 35.43 
RAIRE (roundoff error), Beiz4, Bez 109 
深度 优先 搜索 (depth-first search ) 289 
深入 的 认识 (consciousness expransion of) ， 脚 注 210 
深 约束 (deep binding )， 和 脚注 219 
黄 高 级 语言 (very high-level language), #ii20 
生成 句子 (generating sentences), # 34.49 
失败 ， 在 非 确 定性 计算 中 (failure, in nondeterministic 
computation) ，288 
错误 与 (bug vs.), 298 
搜索 和 (searching and), 288 
失败 继续 ， 非 确定 性 求 值 器 (failure continuation, non- 
deterministic evaluator), 296, 297 
由 amb 构造 的 (constructed by amb), 301 
由 赋值 构造 的 (constructed by assignment), 300 
由 驱动 循环 构造 的 (constructed by driver loop), 301 
时 间 (time) 
和 赋值 (assignment and), 206 
和 通信 (communication and), 219 
并 发 系统 里 (in concurrent systems), 207~210 
和 函数 式 程序 设计 (functional programming and), 
246~248 
非 确定 性 计算 里 (in nondeterministic computing ), 
286~288 
的 用 途 (purpose of), Miz162 
时 间 段 ， 在 待 处 理 表 里 (time segment, in agenda), 196 
时 间 片 (time slicing ), 218 
时 序 图 (timing diagram), 3-29 
实际 参数 ， 实 参 (argument), 4 
任意 个 数 (arbitrary number of), ，4 ， 练 习 2.20 
延 时 的 (delayed), 242 
实例 化 一 个 模式 (instantiate a pattern ) ，309 
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实数 (real number), i34 


实现 依赖 性 (implementation dependencies), 3 A RH 


定 的 值 (unspecified values ) 
数 (numbers), M3423 


子 表达 式 求 值 的 顺序 (order of subexpression evaluation ) , 


脚注 140 
事件 的 顺序 (order of events) 


与 实际 出 现 松弛 关系 (decoupling apparent from actual), 


224 


并 发 系统 里 的 不 确定 性 (indeterminacy in concurrent 


systems ), 207 
事件 驱动 的 模拟 (event-driven simulation) , 188 
MIRA RIC (release a mutex), 216 
树 (tree) 
Bet (tree), Bp jz 106 
ZX (binary), 4 LRH (binary tree) 
将 组 合式 看 作 (combination viewed as), 6 
叶 统 计 (counting leaves of), 72 
叶 枚 举 (enumerating leaves of ), 78 
的 边缘 (fringe of)， 练 习 2.28 
Huffman, 110 
情 性 (lazy), #72245 
映射 (mapping over), 75~76 
ZÆ (red-black), Briz106 
表示 为 序 对 (represented as pairs), 72~75 
遍历 所 有 树叶 (reversing at all levels), %3 2.27 
树 的 终端 结 点 (terminal node of a tree), 6 
树 形 递 归 计 算 过 程 (tree-recursive process), 24~27 
增长 的 阶 (order of growth), 28 
HERR (tree accumulation ) 6 
数 (number) 
的 比较 (comparison of), 12 
小 数 点 (decimal point in )， 和 脚注 23 
相等 (equality of), ，12 ， 和 脚注 102 ， 脚 注 294 
在 通用 算术 系统 里 (in generic arithmetic system), 
129 
实现 依赖 性 (implementation dependencies), ， 脚 注 23 
整数 与 实数 (integer vs. real number) ， 和 脚注 4 
整数 ， 准 确 (integer, exact), W423 
Lisp 里 ，3 , 
有 理 数 (rational number), 43423 
数据 (data), 1, 3 
抽象 (abstract)，55， 另 见 数据 抽象 (data abstraction ) 
的 抽象 模型 (abstract models for ) ， 脚 注 71 
的 代数 描述 (algebraic specification for), Biz71 
复合 (compound), 53~54 
的 具体 表示 (concrete representation of) , 55 
层次 性 (hierarchical ) 66, 72-74 


表 结 构 (list-structured) , 57 
的 意义 (meaning of), 60~62 
变动 (mutable )， 见 变动 性 数据 对 人 象 (mutable data 
objects ) 
数值 (numerical), 3 / 
的 过 程 表 示 (procedural representation of), 61~62 
作为 程序 (as program), 266~268 
共享 (shared), 177~179 
符号 (symbolic), 96 
带 标志 (tagged), 119~122, yjz292 
数据 抽象 (data abstraction), 54, 55, 115, 118, 255, 
另 见 元 循环 求 值 器 (metacircular evaluator ) 
队列 的 (for queue)，180 
数据 导向 的 程序 设计 (data-directed programming), 116, 
122~127 
分 情况 分 析 与 (case analysis vs.), 253 
在 元 循环 求 值 器 里 (in metacircular evaluator), 353 
在 查询 解释 器 里 (in query interpreter), # 34.3 
数据 导向 的 递归 (data-directed recursion), 141 
数据 的 抽象 模型 (abstract models for data) , i271 
数据 的 代数 规范 (algebraic specification for data), By iz 
5 
数据 的 过 程 表 示 (procedural representation of data) , 
61~62 
变动 数据 (mutable data), 179 
数据 库 (data base ) 
数据 导向 的 程序 设计 和 (data-directed programming 
and) ， 练 习 2.74 
索引 (indexing), #72271, 333 
Insatiable Enterprises 人 事 (personnel), 练习 2.74 
逻辑 程序 设计 和 (logic programming and), 306 
Microshaft 人事 (personnel), 306~308 
作为 记录 集合 (as set of records ) ，109 
数据 类 型 (data types ) 
Lisp 里 的 ， 练 习 2.78 
强 类 型 语言 里 的 (in strongly typed languages), Wi 
220 
数 里 的 小 数 点 (decimal point in numbers), Hy jz 23 
数论 (number theory) ， 脚 注 45 
数学 (mathematics ) 
与 计算 机 科学 (computer science vs.) 14, 305 
与 工程 (engineering vs. ) ， 脚 注 47 
数学 函数 (mathematical function), LA% (数学 ) 
(function (mathematical ) ) 
数值 分 析 (numerical analysis), #iz4 
数值 分 析 专家 (numerical analyst ) ， 和 脚注 55 
数值 积分 的 辛普森 规则 (Simpson's Rule for numerical 
integration ) ， 练 习 1.29 
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数值 数据 (numerical data), 3 
数字 电路 模拟 (digital-circuit simulation) , 188~197 
待 处 理 表 (agenda), 193~194 
待 处 理 表 实现 (agenda implementation), 195~197 
基本 函数 框 (primitive function boxes), 191~192 
表示 连 线 (representing wires), 192~193 
样 例 模 拟 (sample simulation), 194~195 
数字 信号 (digital signal), 189 
双 端 队列 (deque), 433.23 
说 明 性 与 行动 性 知识 (declarative vs. imperative knowledge ) , 
14，304 
逻辑 程序 设计 和 (logic programming and), 306 
非 确 定性 计算 和 (nondeterministic computing and) , 
脚注 246 
死 锁 (deadlock), 218~219 
避免 (avoidance), 218 
发 现 (recovery), #12176 
四 次 方 根 ， 作 为 不 动 点 (fourth root, as fixed point), g 
241.45 
搜索 (search ) 
二 叉 树 (of binary tree), 105 
深度 优先 (depth-first), 289 
系统 化 (systematic), 288 
素数 (prime number), 33~37 
和 密码 学 (cryptography and), i248 
JEt SEPA (Eratosthenes’s sieve for), 227 
的 费 马 检验 (Fermat test for), 34~35 
的 无 穷 序 列 (infinite stream of), primes 
的 Miller-Rabin 检验 (test for)， 练 习 1.28 
的 检验 (testing for), 33~37 
素数 的 费 马 检查 (Fermat test for primality ), 33~37 
变形 (variant of), # 31.28 
算法 (algorithm ) 
最 优 的 (optimal), W82 
概率 的 (probabilistic), 34~35, Hy iz128 
算术 (arithmetic ) 
地 址 算术 (address arithmetic) , 374 
通用 型 (generic)，127 ， 另 见 通用 型 算术 操作 (generic 
arithmetic operations ) 
复数 (on complex numbers), 116 
区 间 (on intervals}, 62~65 
多 项 式 (on polynomials), LEMAR (polynomial 
arithmetic ) 
ÆR (on power series), #93.60, $k 33.62 
有 理 数 (on rational numbers), 55~58 
基本 过 程 (primitive procedures for), 4 
随机 数 生成 器 (random-number generator )， 牌 注 129， 
154 


用 于 蒙特 卡 罗 模 拟 (in Monte Carlo simulation), 155 
用 于 素数 检验 (in primality testing )， 脚 注 45 
带 重 置 (with reset ) ， 练 习 3.6 
带 重 置 ， 流 版 本 (with reset, stream version ) ， 练 习 
3.81 
所 需 寄存 器 (needed registers ) ， 见 指令 序列 (instruction 
sequence ) 
特殊 形式 (special form), 7 
求 值 器 里 的 派生 表达 式 (as derived expression in eva- 
luator ), 258 
需要 (need for)， 练 习 1.6 
与 过 程 (procedure vs. ) ， 练 习 4.26 ，284 
特殊 形式 (其 中 标 必 的 不 属于 IEEE 标 准 Scheme ) 
and, /3 
begin, 151 
cond, il 
cons-stream (ns), 223 
define, 5, 8 
delay (ns), 222 
if, 13 
lambda, 41 
let, 43 
let*, #947 
letrec, 练习 4.20 
命名 的 (named) let ， 练 习 4.8 
or, 13 
quote, #jz100 
set! , 151 T 
提示 (prompts), 265 
显 式 控 制 求 值 器 (explicit-control evaluator) , 393 
情 性 求 值 器 (lazy evaluator), 280 
元 循环 求 值 器 (metacircular evaluator), 265 
非 确定 性 求 值 器 (nondeterministic evaluator), 302 
查询 解释 器 (query interpreter ) ，324 
条 件 表达 式 (conditional expression ) 
cond, ll 
if, 12 
停机 定理 (Halting Theorem), #7 jz227 
停机 问题 (halting problem), # 34.15 
停止 并 复制 废料 收集 器 (stop-and-copy garbage collector ) , 
379~383 
通用 机 器 (universal machine ), 268 
显 式 控制 求 值 器 作为 (explicit-control evaluator as), 
397 
通用 计算 机 作为 (general-purpose computer as), 397 
通用 计算 机 ， 作 为 通用 机 器 (general-purpose computer, 


as universal machine), 397 
通用 型 操作 (generic operation), 55 
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通用 型 过 程 (generic procedure), 113, 116 
通用 型 选择 函数 (generic selector), 121, 122 


通用 型 算术 操作 (generic arithmetic operations), 129~ 
132 


系统 的 结构 (structure of system), 2-23 
同步 (synchronization ) ， 见 并 发 (concurrency ) 
同一 和 变化 (sameness and change ) 
的 意义 (meaning of), 159~160 
和 共享 数据 (shared data and), 177 
透明 性 ， 引 用 (transparency, referential}, 159 
图 灵 (Turing, Alan M.), #34223 
图 灵机 (Turing machine), #;4223 
图 形 学 (graphics )， 见 图 形 语言 (picture language) 
图 形 语 言 (picture language), 86~96 
推理 的 方法 (inference, method of ) 321 
推迟 进行 的 操作 (deferred operations) , 22 
推论 部 分 (consequent) 
cond 子 名 的 (of cond clause), 11 
iffy, 12 
TLM ERI, Biz. 175 
外 围 环境 (enclosing environment) , 162 
GOA F (differential equation), 241, 4 Rsolve 
二 阶 (second-order), # 393.78, % 33.79 
伪 除 ， 多 项 式 (pseudodivision of polynomials), 146 
伪 余 ， 多 项 式 (pseudoremainder of polynomials), 146 
伪 随 机 序列 (pseudo-random sequence), #iz134 
尾 递归 (tail recursion), 23 
和 编译 (compiler and), 411 
和 求 值 的 环境 模型 (environment model of evaluation 
and)， 脚 注 142 
和 显 式 控制 求 值 器 (explicit-control evaluator and), 
389, 2% 35.26, % 35.28 
和 废料 收集 (garbage collection and), My iz325 
和 元 循环 求 值 器 (metacircular evaluator and), 390 
在 Scheme 里 ， 筋 注 31 
昆 递 归 求 值 器 (tail-recursive evaluator), 390 
未 定 元 ， 多 项 式 (indeterminate of a polynomial), 138 
未 规定 的 值 (unspecified values ) 
define, Hiz8 
display, #iz70 
if 没 有 替代 部 分 (without alternative), #2157 
newline, 脚注 70 
set! 32130 
set-car!, 脚注 144 
set-cdr!, Biz144 
未 约束 变量 (unbound variable), 262, 494.77 
位 置 (location), 374 
谓词 (predicate), 11 


cond 的 子 旬 (of cond clause), 11 
iffy (of if), 12 
命名 习惯 (naming convention for), My jz22 
问号 , 在 谓词 名 里 (question mark, in predicate names) , 
Bp i222 
无 穷 流 (infinite stream ), 226~232 
归并 (merging )， 练 习 3.56 ，237 ，238， 练 习 3.7，248 
当 并 作为 一 种 关系 (merging as arelation) ， 脚 注 203 
阶乘 的 (of factorials )， 练 习 3.54 
韭 波 那 契 数 的 (of Fibonacci numbers), Rfibs 
整数 的 (of integers ) ， 见 integerS 
序 对 的 (of pairs), 235~238 
素数 的 (of prime numbers), primes 
随机 数 的 (of random numbers), 245 
aw BRR (representing power series), #59 3.59 
模 报信 号 (to model signals), 238~241 
级 数 求 和 (to sum a series) , 233 
无 穷 序 列 (infinite series), ， 和 脚注 284 
稀疏 多 项 式 (sparse polynomial) 142 
系统 化 的 搜索 (systematic search) ，288 
线段 (line segment ) 
用 一 对 点 表示 (represented as pair of points), ， 练 习 2.2 
用 一 对 向 量 表示 (represented as pair of vectors), & 
习 2.48 
线性 递 归 过 程 (linear recursive process), 22 
增长 的 阶 (order of growth) ，28 
线性 迭代 过 程 (linear iterative process), 23 
增长 的 阶 (order of growth) ，28 
线性 增长 (linear growth), 22, 28 
相等 (equality) 
在 通用 算术 系统 里 (in generic arithmetic system), 练 
习 2.79 
表 的 (of lists), # 32.54 
数 的 (of numbers), 12, Wriż102, Wei2294 
引用 透明 性 和 (referential transparency and), 160 
符号 的 (of symbols), 98 
FEN (relativity, theory of), 219 
向 量 (数据 结构 ) (vector (data structure ) ) 374 
向 量 (数学 ) (vector (mathematical ) ) 
操作 (operations on), $32.37, %3 2.46 
在 图 形 语 言 的 框架 里 (in picture-language frame), 91 
用 序 对 表示 (represented as pair), $ 92.46 
用 序列 表示 (represented as sequence), # 32.37 
向 上 兼容 性 (upward compatibility), 练习 4.31 
消息 传递 (message passing) 62, 127~128 
和 环境 模型 (environment model and ) ， 练 习 3.11 
470K 8H (in bank account), 153 
数字 电路 模拟 里 (in digital-circuit simulation), 192 
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和 尾 递归 (tail recursion and), #7231 
效率 (efficiency )， 另 见 增 长 的 阶 (order of growth ) 
编译 的 (of compilation), 398 
数据 库 访 问 的 (of data-base access), #3%271 
求 值 的 (of evaluation ) ，272 
Lisp 的 (of Lisp), 2 
查询 处 理 的 (of query processing) ，317 
树 形 递归 过 程 的 (of tree-recursive process ) 27 
faa, 数字 (signal, digital), 189 
信号 处 理 (Signal processing ) 
平 请 一 个 函数 (smoothing a function), $ 3 1.44 
平滑 一 个 信号 (smoothing a signal), $ 33.75, 练习 
3.76 
HRA (stream model of), 238~240 
信号 的 过 零点 (zero crossings of a signal), 4.33.74, 
练习 3.75 ， 练 习 3.76 
信和 号 处 理 和 计算 (signal-processing view of computation ) ， 
77 
信号 量 (semaphore), M4172 
大 小 为 n (of sizen), % 33.47 
信号 流 图 (signal-flow diagram), 77, 3-33 
信息 检索 (information retrieval), 5. 数据库 (data base) 
信用 卡 账户 ， 国 际 (credit-card accounts, international ) , 
脚注 178 
形 参 (parameter ) ， 见 形式 参数 (formal parameters ) 
形式 参数 (formal parameters) ，8 
的 名 字 (names of), 18 
的 作用 域 (scope of), 19 
序 对 (pair), 56 
公理 定义 (axiomatic definition of), 61 
盒子 和 指针 记 法 (box-and-pointer notation for), 65 
无 穷 流 (infinite stream of), 235~238 
情 性 (lazy), 284-286 
变动 的 (mutable), 173~176 
过 程 表示 (procedural representation of ), 61~62, 179, 
284 
用 向 量 表示 (represented using vectors), 302~305 
用 于 表示 序列 (used to represent sequence) , 66 
用 于 表示 树 (used to represent tree), 72~74 
序列 (sequence), 66 
作为 规范 的 界面 (as conventional interface), 76~85 
作为 模块 化 的 来 源 (as source of modularity), 79 
操作 (operations on), 77~82 
用 序 对 表示 (represented by pairs), 66 
序列 加 速 器 (Sequence accelerator), 233 
选择 函数 (selector), 55 
作为 抽象 屏障 (as abstraction barrier), 59 
通用 型 (generic), 121, 122 


循环 结构 (looping constructs), 16, 23 
在 元 循环 求 值 器 里 实现 (implementing in metacircular 
evaluator ) ， 练习 4.9 
亚 里 士 多 德 《 论 天 》 (Aristotle’s De caelo) (Buridan 的 
评述 (commentary on) )， 脚 注 175 
亚历山大 的 Heron (Heron of Alexandria), #221 
延 时 ， 在 数字 电路 里 (delay, in digital circuit ) 
延 时 参数 (delayed argument), 242 
延 时 对 象 (delayed object), 222 \ 
延 时 求 值 (delayed evaluation), 149 
赋值 和 (assignment and), # 93.52 
显 式 与 自动 (explicit vs..automatic), 285 
在 情 性 求 值 器 里 (in lazy evaluator), 276~285 
正则 译 求 值 和 (normal-order evaluation and), 244~245 
打印 和 (printing and )， 练 习 3.51 
mA (streams and) ，241~244 
严格 (strict), 277 
依赖 导向 的 回 滴 (dependency-directed backtracking ) , 
脚注 251 
移植 一 个 语言 (porting a language) ，428 
银行 账户 (bank account), 150, #393.11 
交换 余额 (exchanging balances), 214 
共用 (joint), 160, # 33.7 
共用 ， 用 流 模拟 (oint, modeled with streams), 43-38 
共用 ， 并 发 访问 (joint, with concurrent access) ，207 
用 密码 保护 (password-protected ) ， 练 习 3.3 
申 行 化 (serialized), 211 
流 模 型 (stream model) ，246 
转移 款项 (transferring money), $ 33.44 
引号 (quotation), 96~98 
字符 申 (of character strings), i299 
Lisp 数 据 对 象 (of Lisp data objects) , 97 
自然 语言 里 (in natural language), 97 
引号 , 单 引号 与 双 引 号 (quotation mark, single vs. double), 
脚注 99 
引用 透明 性 (referential transparency ) 159 
隐藏 原理 (hiding principle), #iz132 
应 用 序 求 值 (applicative-order evaluation ), 10 
在 Lisp 里 ，11 
与 正则 序 比较 (normal order vs. ) ， 练 习 1.5 91.20, 
277~278 
映射 (mapping ) 
对 表 (Over lists), 70~72 
KH (nested), 82~86, 304~308 
作为 转换 器 (as a transducer), 77 
对 树 (over trees), 75~76 
用 赋值 实现 (implemented with assignment) , 179~180 
表 结 构 (list structure), 173~176 
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序 对 (pairs), 173~176 
的 过 程 表 示 (procedural representation of), 179 
共享 数据 (shared data), 177 
AHR (rational number ) 
算术 操作 (arithmetic operations on) , 55~58 
在 (in) MIT Scheme #1, i223 
打印 (printing), 57 
归 约 到 最 低 项 (reducing to lowest terms), 58~59 
表示 为 序 对 (represented as pairs), 57 
有 理 数 函数 (rational function), 144~147 
归 约 到 最 低 项 (reducing to lowest terms), 146~147 
有 理 数 算术 (rational-number arithmetic) , 55~58 
与 通用 算术 系统 连接 (interfaced to generic arithmetic 
system), 129 
需要 复 合 数 据 (need for compound data), 53 
余弦 (cosine) 
的 不 动 点 (fixed point of), 46 
HIW Be (power series for), 2 33.59 
与 门 (and-gate ) 189 
and-gate, 190 
宇宙 辐射 (cosmic radiation) ， 脚 注 47 
语法 (grammar), 292 
语法 (syntax), ， 另 见 特殊 形式 (special forms ) 
抽象 (abstract ) ， 见 抽象 语法 (abstract syntax ) 
表达 式 的 ， 描 述 (of expressions, describing), Me iz 14 
程序 设计 语言 的 (of a programming language), 7 
语法 分 析 ， 与 执行 分 离 (syntactic analysis, separated 
from execution ) 
在 元 循环 求 值 器 里 (in metacircular evaluator )，273~276 
在 寄存 器 机 器 里 (in register-machine simulator ), 364~368 
语法 糖衣 (syntactic sugar), #211 
define, 256 
let fe (as), 43 
循环 结构 作为 (looping constructs as), 23 
过 程 与 数据 ， 作 为 (procedure vs. data as), #piz155 
语句 (statements ) ， 见 指令 序列 (instruction sequence ) 
语言 (language ) ， 见 自然 语言 (naturai language) , Æ 
序 设计 语言 (programming language ) 
语言 的 一 级 元 素 (first-class elements in language), 51 
元 循环 求 值 器 ,Scheme (metacircular evaluator for Scheme ) , 
251~268 
分 析 型 版 本 (analyzing version), 272~276 


组 合式 (过 程 应 用 ) (combinations (procedure applic- 


ations ) ) ， 练 习 4.2 
的 编译 (compilation of) ， 练 习 5.56， 练 习 5.52 
数据 抽象 (data abstraction in)，251，252， 练 习 5.52 
数据 导向 的 (data-directed) eval ， 练 习 4.3 
派生 表达 式 (derived expressions), 258~260 


驱动 循环 (driver loop), 265 
的 效率 (efficiency of), 272 
RA AIH HA (environment model of evaluation in) , 
251 
环境 操作 (environment operations) , 261 
evalffapply , 252~255 
eval-apply k (cycle), 251, 4-1 
表达 式 表示 (expression representation), 252, 255~258 
全 局 环境 (global environment), 264 
高 阶 过 程 (higher-order procedures in) ， 脚 注 209 
被 实现 语言 与 实现 语言 (implemented language vs. 
imp-lementation language), #j#210 
的 工作 (job of), Hy #208 
运算 对 象 的 求 值 顺序 (order of operand evaluation) , 
练习 4.1 
基本 过 程 (primitive procedures ) ，264~266 
环境 的 表示 (representation of environments ) ，261~263 
过 程 的 表示 (representation of procedures ) 、261 
真 和 假 的 表示 (representation of true and false ) ，260 
运行 (running), 264~266 
特殊 形式 (增加 的 ) (special forms (additional)), # 
习 4.4， 练 习 4.5 ， 练 习 4.6 ， 练 习 4.7， 练 习 4.8 ， 练 
习 4.9 
特殊 形式 作为 派生 表达 式 (special forms as derived 
expressions ), 257~258 
和 符号 求 导 (symbolic differentiation and) , 255 
被 求 值 语言 的 语法 (syntax of evaluated language) , 
255~258 ， 练 习 4.2， 练 习 4.10 
AR BB (tail recursiveness unspecified in), 390 
true 和 false, 364 
元 语言 抽象 (metalinguistic abstraction ) ，250 
原子 操作 (atomic) test-and-set!, 217 
源 程 序 (source program), 397 
源 语言 (source language), 397 
约定 的 界面 (conventional interface), 55 
序列 作为 (sequence as) 76~86 
愿望 思维 (wishful thinking), 56, 99 
约束 (bind), 18 
约束 (binding), 162 
BE (deep), By iz219 
约束 (constraint ) 
基本 的 (primitive), 198 
的 传播 (propagation of ) ，198~205 
约束 变量 (bound variable), 18 
约束 的 传播 (Propagation of constraints), 198~205 
约束 网 络 (constraint network), 198 
增长 的 阶 (order of growth), 28~29 
线性 迭代 过 程 (linear iterative process ), 29 
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线性 递归 过 程 (linear recursive process), 29 
对 数 (logarithmic), 30 
树 递归 过 程 (tree-recursive process), 29 
遮蔽 一 个 约束 (shadow a binding), 162 
折 半 法 (half-interval method), 44~45 
half-interval~method, 45 
与 牛顿 法 (Newton's method vs.), #iz62 
真 (true)， 牌 注 17 
真 值 保 持 (truth maintenance), #32251 
整数 (integer), #iz4 
除法 (dividing), W423 
精确 的 (exact)， 脚 注 23 
整数 除法 (division of integers), Hy jz23 
整数 化 因子 (integerizing factor) ，146 
正切 (tangent) 
作为 连 分 数 (as continued fraction ) ， 练 习 1.39 
的 震级 数 (power series for), # 3 3.62 
E3 (sine) 
逼近 小 的 角 (approximation for small angle), %3 1.15 
AR (power series for), #3 3.59 
正则 序 求 值 (normal-order evaluation), 10 
与 应 用 序 (applicative order vs. ) ， 练 习 1.$ ， 练 习 1.20 ， 
277~278 
和 延 时 求 值 (delayed evaluation and), 244~245 
在 显 式 控 制 求 值 器 里 (in explicit-control evaluator) , 
练习 3.25 
iffy, $31.5 
正则 序 求 值 器 (normal-order evaluator), & 惰性 求 值 器 
(lazy evaluator ) 
证 明 程序 的 正确 性 (proving programs correct) ， 和 脚注 20 
执行 过 程 (execution procedure) 
在 分 析 型 求 值 器 里 (in analyzing evaluator), 273 
在 非 确 定性 求 值 器 里 (in nondeterministic evaluator ), 
296~298 
在 寄存 器 模拟 器 里 (in register-machine simulator) , 
362, 366~372 
{A (value) 
组 合式 的 (of a combination), 4 
表达 式 的 (of an expression), W7, 3 RAMA 
{& (unspecified values ) 
指令 计数 (instruction counting), # 95.15 
指令 序列 (instruction sequence), 400~402 
#44 Hit (instruction execution procedure) , 362 
指令 追踪 (instruction tracing), $% 3 5.16 
指数 (exponentiation) , 29~30 
Kin (modulo n), 34 
指数 性 地 增长 (exponential growth ), 25 
PS VASE RE BSA (of tree-recursive Fibonacci-number 


computation ) , 25 
指针 (pointer) 
盒子 和 指针 记 法 (in box-and-pointer notation ) 65 
带 类 型 的 (typed), 375 
中 组 记 法 , 与 前 级 记 共 (infix notation, prefix notation vs. ) ， 
练习 2.58 
仲裁 器 (arbiter), #12175 
朱 世 杰 (Chu Shih-chieh) , 3235 
注释 ， 在 程序 里 (comments in programs), W87 
状态 (state) 
局 部 (local), LARRA (local state ) 
共享 (shared), 208 
在 流 方 式 中 消失 了 (vanishes in stream formulation ) , 
247 
状态 变量 (state variable), 22, 150 
局 部 (local ) 150~154 
追踪 (tracing ) 
指令 执行 (instruction execution), %3 5.16 
寄存 器 赋值 (register assignment), ， 练 习 5.18 
准确 的 整数 (exact integer), ， 脚 注 23 
子 类 型 (subtype), 135 
多 个 (multiple), 136 
字符 (character) , 109 
ffe (character strings ) 
的 基本 过 程 (primitive procedures for) ， 脚 注 285 
的 引号 (quotation of), #iz99 
自动 存储 分 配 (automatic storage allocation), 374 
自动 魔法 般 地 (automagically), 289 
自动 搜索 (automatic search ) ，286 ， 另 见 搜 索 (search) 
历史 (history of), #32251 
自 求 值 表 达 式 (self-evaluating expression), 252 
自然 对 数 Eiln 2 (logarithm, approximating In 2), 
练习 3.65 
自然 语言 (natural language ) 
WAH (parsing )， 见 分 析 自 然 语言 (parsing natural 
language ) 
引号 (quotation in), 96 
自由 变量 (free variable), 18 
捕获 (capturing), 19 
内 部 定义 里 (in internal definition), 19 
自由 表 (free list), #12296 
阻塞 的 进程 (blocked process), 72173 
组 合 的 方法 (means of combination )，3， 另 见 闭 包 (closure) 
组 合式 (combination), 4~5 
以 组 合式 作为 组 合式 的 运算 符 (combination as operator 
of), i59 
以 复合 表达 式 作为 组 合式 的 运算 符 (Compound expression 
as operator of )， 练 习 1.4 
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的 求 值 (evaluation of), 6~7 
Iambda 表 达 式 作为 组 合式 的 运算 符 (expression as 
operator of) ，41 
作为 树 (asatree), 6 
组 合式 的 意义 ` (combination, means of )， 另 见 闭 包 (closure ) 
组 合式 的 运算 对 象 (operands of a combination), 4 
组 合式 的 运算 符 (operator of a combination), 4 
组 合式 作为 (combination as), Hy jz59 
符号 表 达 式 作为 (compound expression as), ， 练 习 1.4 
1Lambda 表 达 式 作为 (expression as), 42 
最 大 公约 数 (greatest common divisor) ，32~33 ， 另 见 


GCD 
通用 的 (generic), %3 2.94 
多 项 式 的 (of polynomials), 145 
用 于 估计 r (used to estimate x), 155 
用 于 有 理 数 算术 (used in rational-number arithmetic) , 
58 
最 小 允诺 原则 (principle of least commitment), 119 
最 优 (optimality ) 
Horner 规 则 (rule), #382 
Huftman 编 码 (code), 112 
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